Fixed absolute hostname redirections for mod_perl proxying.

[www.jankratochvil.net.git] / project / Rel.pl

diff --git a/project/Rel.pl b/project/Rel.pl
index f5feef0..fd39944 100755 (executable)
--- a/project/Rel.pl
+++ b/project/Rel.pl
@@ -66,6 +66,6 @@ for (0..$#projects) {
        }
 
 $W->{"r"}->status(MOVED);
-$W->{"r"}->header_out("Location"=>"http://".$W->{"r"}->hostname()
+$W->{"r"}->header_out("Location"=>"http://".&{$W->{"web_hostname_sub"}}()
 #              .":7680"        # DEBUG
                ."/project/".(!$target ? "" : "$target/"));