Changeset 9 in bookmarks for trunk/BookmarkApp.pm

Timestamp:

03/25/12 15:45:11 (12 years ago)

Author:

peter

Message:

• use SQL::Interp to generate the SQL for Bookmarks::get_resources()
• Bookmarks::get_resources() accepts a limit parameter to add a limit to the SQL query
• added a feed run mode that returns an Atom feed of the most recent 12 bookmarks; can have an optional ?tag parameter that only looks for bookmarks with that tag
• added an explicit "list" dispatch target that calls the `list run mode

File:

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

trunk/BookmarkApp.pm

@@ -30 +30 @@
     $self->run_modes([qw{
         list
+        feed
         view
         edit
@@ -104 +105 @@
         );
     }
+}
+
+sub feed {
+    my $self = shift;
+    my $q = $self->query;
+
+    my $tag = $q->param('tag');
+
+    require XML::Atom::Feed;
+    require XML::Atom::Entry;
+    require XML::Atom::Link;
+
+    my $feed = XML::Atom::Feed->new;
+    $feed->title('Bookmarks');
+    $feed->id($base_uri . 'feed');
+
+    # construct a feed from the most recent 12 bookmarks
+    for my $bookmark ($bookmarks->get_resources({ tag => $tag, limit => 12 })) {
+        my $entry = XML::Atom::Entry->new;
+        $entry->id($bookmark->{bookmark_uri});
+        $entry->title($bookmark->{title});
+        my $link = XML::Atom::Link->new;
+        $link->href($bookmark->{uri});
+        $entry->add_link($link);
+        $entry->summary('Tags: ' . join(', ', @{ $bookmark->{tags} }));
+        $feed->add_entry($entry);
+    }
+
+    $self->header_props(
+        -type => 'application/atom+xml',
+        -charset => 'UTF-8',
+    );
+    return $feed->as_xml;
 }