Changeset 53 in bookmarks

Timestamp:

08/15/13 19:48:39 (11 years ago)

Author:

peter

Message:

• converted from a regular CGI application to a PSGI web application
• added an app.psgi main script
• use Plack::Middleware::ReverseProxy to adjust environment for when behind a reverse proxy
• use Plack::Middleware::Auth::Digest to do HTTP digest authentication for non-GET requests
• read in the db name, reverse proxy server IP, and digest password hash from a conf.yml config file
• use the CGI::url method instead of trying to build the base URI from the %ENV hash
• default to an empty tags parameter so split does not emit a warning

Location:

trunk

Files:

• BookmarkApp.pm (modified) (2 diffs)
• BookmarkApp/Dispatch.pm (modified) (1 diff)
• app.psgi (added)

trunk/BookmarkApp.pm

@@ -24 +24 @@
     }]);
 
-    my $base_uri = URI->new;
-    $base_uri->scheme('http');
-    $base_uri->host($ENV{SERVER_NAME});
-    $base_uri->port($ENV{SERVER_PORT});
-    $base_uri->path($ENV{SCRIPT_NAME});
+    my $url = $self->query->url;
+    $url .= '/' unless $url =~ m{/$};
+    my $base_uri = URI->new($url);
 
     my $bookmarks = Bookmarks->new({
@@ -441 +439 @@
         $bookmark->uri($q->param('uri'));
         $bookmark->title($q->param('title'));
-        $bookmark->tags([ split(' ', $q->param('tags')) ]);
+        $bookmark->tags([ split ' ', $q->param('tags') || '' ]);
 
         # write to the database

trunk/BookmarkApp/Dispatch.pm

@@ -3 +3 @@
 
 package BookmarkApp::Dispatch;
-use base 'CGI::Application::Dispatch';
+use base 'CGI::Application::Dispatch::PSGI';
 
 sub dispatch_args {