Changeset 36 in bookmarks for trunk

Timestamp:

05/25/13 02:56:47 (11 years ago)

Author:

peter

Message:

• the XBEL creation uses the accessors insead of direct hash access of Bookmark
• added a ?format=text option that returns a text/uri-list representation

File:

• trunk/BookmarkApp.pm (modified) (2 diffs)

trunk/BookmarkApp.pm

@@ -104 +104 @@
 
         for my $bookmark (@resources) {
-            my $cdatetime = time2isoz $bookmark->{ctime};
-            my $mdatetime = time2isoz $bookmark->{mtime};
+            my $cdatetime = time2isoz $bookmark->ctime;
+            my $mdatetime = time2isoz $bookmark->mtime;
             # make the timestamps W3C-correct
             s/ /T/ foreach ($cdatetime, $mdatetime);
 
             $xbel->add_bookmark({
-                href     => $bookmark->{uri},
-                title    => $bookmark->{title},
-                desc     => 'Tags: ' . join(', ', @{ $bookmark->{tags} }),
+                href     => $bookmark->uri,
+                title    => $bookmark->title,
+                desc     => 'Tags: ' . join(', ', @{ $bookmark->tags }),
                 added    => $cdatetime,
                 #XXX: are we sure that modified is the mtime of the bookmark or the resource?
@@ -125 +125 @@
 
         return $xbel->toString;
+    } elsif ($format eq 'text') {
+        $self->header_props(
+            -type    => 'text/uri-list',
+            -charset => 'UTF-8',
+        );
+        return join '', 
+            map {
+                sprintf "# %s\n# Tags: %s\n%s\n",
+                $_->title,
+                join(', ', @{ $_->tags }), 
+                $_->uri
+            } @resources;
     } else {
         $self->header_props(