Build a full URL for the redirect

mpeters · May 26, 2010 · 1947122 · 1947122
1 parent f53d48f
commit 1947122
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/Smolder/Redirect.pm b/lib/Smolder/Redirect.pm
@@ -3,6 +3,8 @@ use strict;
 use warnings;
 use base 'CGI::Application';
 
+use Smolder::Conf qw( HostName Port );
+
 sub setup {
     my $self = shift;
     $self->run_modes( ['redirect'] );
@@ -12,7 +14,10 @@ sub setup {
 sub redirect {
     my $self = shift;
     $self->header_type('redirect');
-    $self->header_add( -uri => '/app' );
+    $self->header_add( -uri => 'http://' 
+            . HostName
+            . ( Port == 80 ? '' : ':' . Port )
+            . '/app' );
     return "Redirecting...\n";
 }