Changeset 9 in bookmarks for trunk

Timestamp:

03/25/12 15:45:11 (13 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

Location:

trunk

Files:

• BookmarkApp.pm (modified) (2 diffs)
• Bookmarks.pm (modified) (2 diffs)
• index.cgi (modified) (1 diff)

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;
 }
 

trunk/Bookmarks.pm

@@ -2 +2 @@
 
 use Class::Accessor 'antlers';
+use SQL::Interp qw{:all};
 use Bookmark;
 
@@ -36 +37 @@
     my $params = shift;
     my $tag = $params->{tag};
-    my $sth_resource;
-    if ($tag) {
-        $sth_resource = $self->dbh->prepare('select * from resources join tags on resources.uri = tags.uri join bookmarks on resources.uri = bookmarks.uri where tags.tag = ? order by ctime desc');
-        $sth_resource->execute($tag);
-    } else {
-        $sth_resource = $self->dbh->prepare('select * from resources join bookmarks on resources.uri = bookmarks.uri order by ctime desc');
-        $sth_resource->execute;
-    }
+    my $limit = $params->{limit};
+
+    my ($sql, @bind) = sql_interp(
+        'select * from resources join bookmarks on resources.uri = bookmarks.uri',
+        ($tag   ? ('join tags on resources.uri = tags.uri where tags.tag =', \$tag) : ''),
+        'order by ctime desc',
+        ($limit ? ('limit', \$limit) : ''),
+    );
+
+    my $sth_resource = $self->dbh->prepare($sql);
+    $sth_resource->execute(@bind);
 
     my $sth_tag = $self->dbh->prepare('select tag from tags where uri = ? order by tag');

trunk/index.cgi

@@ -9 +9 @@
     table => [
         '[get]'              => { app => 'BookmarkApp', rm => 'list' },
+        'list[get]'          => { app => 'BookmarkApp', rm => 'list' },
+        'feed[get]'          => { app => 'BookmarkApp', rm => 'feed' },
         ':id/:field?[get]'   => { app => 'BookmarkApp', rm => 'view' },
         ':id?[post]'         => { app => 'BookmarkApp', rm => 'edit' },