ap-client

commit: 9864193d04d7f02f463566cafc38cfdcb2e89f54
parent: 406ddf2d43e804a1e61d2b0304ee7dff9aa610ae
Author: Haelwenn (lanodan) Monnier <contact@hacktivis.me>
Date:   Mon, 25 May 2020 11:39:38 +0200

ap-represent.pl: Add href and mediaType support

Diffstat:
M
ap-represent.pl
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/ap-represent.pl b/ap-represent.pl
@@ -24,11 +24,12 @@ sub print_object {
 	my ($indent, $object) = @_;
 
 	printf "%*s %s", $indent, '⇒', $object->{"type"};
-	printf ' <%s>', $object->{"id"} if $object->{"id"};
+	printf ' id:<%s>', $object->{"id"} if $object->{"id"};
+	printf ' href:<%s>', $object->{"href"} if $object->{"href"};
 	printf ' “%s”', $object->{"name"} if $object->{"name"};
 	printf ' @%s', $object->{"preferredUsername"} if $object->{"preferredUsername"};
 	printf ' ⚠' if ($object->{"sensitive"} eq JSON->true);
-	foreach("url", "context", "inbox", "outbox", "prev", "next", "published", "updated", "summary", "content", "bcc", "bto", "to", "cc", "object", "attachment", "tag", "orderedItems") {
+	foreach("url", "context", "inbox", "outbox", "prev", "next", "published", "updated", "summary", "content", "bcc", "bto", "to", "cc", "object", "attachment", "tag", "orderedItems", "mediaType") {
 		print_object_key($indent, $object, $_);
 	}
 }