Changeset 112 in bookmarks for trunk/lib/Bookmarks

Timestamp:

02/17/16 22:05:50 (9 years ago)

Author:

peter

Message:

• Added the sidebar resource.
• Moved the list resources to list.
• Respond with a 406 if the required modules are not available for XBEL, Atom, or CSV.

Location:

trunk/lib/Bookmarks

Files:

• Controller.pm (modified) (3 diffs)
• List.pm (modified) (9 diffs)

trunk/lib/Bookmarks/Controller.pm

@@ -71 +71 @@
 }
 
+sub _get_search_from_request {
+    my $self = shift;
+
+    my @tags   = grep { $_ ne '' } $self->request->param('tag');
+    my $query  = $self->request->param('q');
+    my $limit  = $self->request->param('limit');
+    my $offset = $self->request->param('offset');
+    my $page   = $self->request->param('page');
+
+    return $self->bookmarks->search({
+        query  => $query,
+        tags   => \@tags,
+        limit  => $limit,
+        offset => $offset,
+        page   => $page,
+    });
+}
+
 sub list {
     my $self = shift;
@@ -79 +97 @@
     my $format = $self->request->param('format') || 'html';
 
-    my @tags = grep { $_ ne '' } $self->request->param('tag');
-    my $query = $self->request->param('q');
-    my $limit = $self->request->param('limit');
-    my $offset = $self->request->param('offset');
-    my $page = $self->request->param('page');
-
     my $list = Bookmarks::List->new({
         bookmarks => $self->bookmarks,
-        search    => $self->bookmarks->search({
-            query  => $query,
-            tags   => \@tags,
-            limit  => $limit,
-            offset => $offset,
-            page   => $page,
-        }),
+        search    => $self->_get_search_from_request,
     });
 
@@ -101 +107 @@
     }
     return $list->$as_format;
+}
+
+sub sidebar {
+    my $self = shift;
+
+    my $list = Bookmarks::List->new({
+        bookmarks => $self->bookmarks,
+        search    => $self->_get_search_from_request,
+    });
+
+    require Template;
+    require File::Basename;
+    my $template = Template->new({ INCLUDE_PATH => File::Basename::dirname($INC{'Bookmarks/List.pm'}) });
+
+    my @all_tags = $list->bookmarks->get_tags({ selected => @{ $list->tags }[0] });
+    my @cotags = $list->bookmarks->get_cotags({ search => $list->search });
+
+    $template->process(
+        'list.tt',
+        {
+            base_url     => $list->bookmarks->base_uri,
+            title        => $list->title,
+            query        => $list->query,
+            selected_tag => @{ $list->tags }[0],
+            search_tags  => $list->tags,
+            links        => [ $list->_get_list_links('text/html', { q => $list->query, tag => $list->tags }) ],
+            all_tags     => \@all_tags,
+            cotags       => \@cotags,
+            resources    => $list->results,
+            pages        => $list->search->pages,
+        },
+        \my $output,
+    );
+    return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$output]];
 }
 

trunk/lib/Bookmarks/List.pm

@@ -32 +32 @@
             text => 'JSON',
             type => 'application/json',
+            path => 'list',
             query => {
                 %$query,
@@ -40 +41 @@
             text => 'XBEL',
             type => 'application/xml',
+            path => 'list',
             query => {
                 %$query,
@@ -56 +58 @@
             text => 'CSV',
             type => 'text/csv',
+            path => 'list',
             query => {
                 %$query,
@@ -64 +67 @@
             text => 'URI List',
             type => 'text/uri-list',
+            path => 'list',
             query => {
                 %$query,
@@ -72 +76 @@
             text => 'HTML',
             type => 'text/html',
+            path => 'list',
             query => {
                 %$query,
@@ -105 +110 @@
 sub as_xbel {
     my $self = shift;
-    require XML::XBEL;
-    #TODO: conditional support; if XML::XBEL is not present, return a 5xx response
+
+    eval { require XML::XBEL; } or
+        return [406, ['Content-Type' => 'text/plain'], ['This server does not support XBEL lists']];
 
     my $xbel = XML::XBEL->new;
@@ -147 +153 @@
 sub as_csv {
     my $self = shift;
-    require Text::CSV::Encoded;
+
+    eval { require Text::CSV::Encoded } or
+        return [406, ['Content-Type' => 'text/plain'], ['This server does not support CSV lists']];
+
     my $csv = Text::CSV::Encoded->new({ encoding_out => 'utf8' });
     my $text = qq{id,uri,title,tags,ctime,mtime\n};
@@ -182 +191 @@
     my $template = Template->new({ INCLUDE_PATH => File::Basename::dirname($INC{'Bookmarks/List.pm'}) });
 
-    my @all_tags = $self->bookmarks->get_tags({ selected => @{ $self->tags }[0] });
-    my @cotags = $self->bookmarks->get_cotags({ search => $self->search });
-
     $template->process(
-        'list.tt',
+        'html_list.tt',
         {
             base_url     => $self->bookmarks->base_uri,
             title        => $self->title,
             query        => $self->query,
-            selected_tag => @{ $self->tags }[0],
-            search_tags  => $self->tags,
             links        => [ $self->_get_list_links('text/html', { q => $self->query, tag => $self->tags }) ],
-            all_tags     => \@all_tags,
-            cotags       => \@cotags,
             resources    => $self->results,
             pages        => $self->search->pages,
@@ -207 +209 @@
     my $self = shift;
 
-    require XML::Atom;
+    eval { require XML::Atom } or
+        return [406, ['Content-Type' => 'text/plain'], ['This server does not support Atom lists']];
+
     $XML::Atom::DefaultVersion = "1.0";