Changeset 41 in bookmarks for trunk/BookmarkApp.pm

Timestamp:

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

Author:

peter

Message:

• move the reverse proxy check and change to SERVER_NAME from the BookmarkApp to the index.cgi script
• the dbname is passed in as a parameter to BookmarkApp

File:

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

trunk/BookmarkApp.pm

@@ -11 +11 @@
 use Bookmarks;
 use URI;
-
-my $dbname = 'fk.db';
 
 sub setup {
@@ -24 +22 @@
         edit
     }]);
+
     my $base_uri = URI->new;
     $base_uri->scheme('http');
-    $base_uri->host($ENV{HTTP_X_FORWARDED_HOST} || $ENV{SERVER_NAME});
+    $base_uri->host($ENV{SERVER_NAME});
     $base_uri->port($ENV{SERVER_PORT});
     $base_uri->path($ENV{SCRIPT_NAME} . '/');
 
     my $bookmarks = Bookmarks->new({
-        dbname   => $dbname,
+        dbname   => $self->param('dbname'),
         base_uri => $base_uri,
     });