Changeset 39 in bookmarks for trunk

Timestamp:

05/27/13 15:54:30 (11 years ago)

Author:

peter

Message:

• include bookmark tags as Atom categories for the entry
• include bookmark ctime as the Atom published datetime for the entry

File:

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

trunk/BookmarkApp.pm

@@ -236 +236 @@
     require XML::Atom::Entry;
     require XML::Atom::Link;
+    require XML::Atom::Category;
 
     my $feed = XML::Atom::Feed->new;
@@ -257 +258 @@
         $entry->id($bookmark->bookmark_uri->canonical);
         $entry->title($bookmark->title);
+        
         my $link = XML::Atom::Link->new;
         $link->href($bookmark->uri);
         $entry->add_link($link);
+        
         $entry->summary('Tags: ' . join(', ', @{ $bookmark->tags }));
+
+        my $cdatetime = time2isoz $bookmark->ctime;
         my $mdatetime = time2isoz $bookmark->mtime;
         # make the timestamp W3C-correct
-        $mdatetime =~ s/ /T/;
+        s/ /T/ foreach ($cdatetime, $mdatetime);
+        $entry->published($cdatetime);
         $entry->updated($mdatetime);
+        
+        for my $tag (@{ $bookmark->tags }) {
+            my $category = XML::Atom::Category->new;
+            $category->term($tag);
+            $entry->add_category($category);
+        }
+
         $feed->add_entry($entry);
     }