Changeset 17 in bookmarks for trunk/BookmarkApp.pm

Timestamp:

03/28/13 17:17:24 (12 years ago)

Author:

peter

Message:

• use the canonical form of the base URI in the feed id
• use the X-Forwarded-Host header instead of just the server name, if present, to calculate the base URI, so that the public URI reflects any proxying that may be going on

File:

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

trunk/BookmarkApp.pm

@@ -13 +13 @@
 my $base_uri = URI->new;
 $base_uri->scheme('http');
-$base_uri->host($ENV{SERVER_NAME});
+$base_uri->host($ENV{HTTP_X_FORWARDED_HOST} || $ENV{SERVER_NAME});
 $base_uri->port($ENV{SERVER_PORT});
 $base_uri->path($ENV{SCRIPT_NAME} . '/');
@@ -123 +123 @@
     my $feed = XML::Atom::Feed->new;
     $feed->title('Bookmarks' . ($tag ? " tagged as $tag" : ''));
-    $feed->id($base_uri . 'feed');
+    $feed->id($base_uri->canonical . 'feed');
 
     # construct a feed from the most recent 12 bookmarks