Changeset 33 in bookmarks for trunk

Timestamp:

05/24/13 01:26:04 (12 years ago)

Author:

peter

Message:

• generate Atom 1.0 feeds
• include an <updated> element in each entry in the feed, using the bookmark mtime

File:

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

trunk/BookmarkApp.pm

@@ -210 +210 @@
     my $title = 'Bookmarks' . (@tags ? " tagged as " . join(' & ', @tags) : '');
 
+    require XML::Atom;
+    $XML::Atom::DefaultVersion = "1.0";
+
     require XML::Atom::Feed;
     require XML::Atom::Entry;
@@ -244 +247 @@
         $entry->add_link($link);
         $entry->summary('Tags: ' . join(', ', @{ $bookmark->tags }));
+        my $mdatetime = time2isoz $bookmark->mtime;
+        # make the timestamp W3C-correct
+        $mdatetime =~ s/ /T/;
+        $entry->updated($mdatetime);
         $feed->add_entry($entry);
     }