From: short <>
Date: Thu, 16 Oct 2003 16:18:05 +0000 (+0000)
Subject: Fixed absolute hostname redirections for mod_perl proxying.
X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=8d2ad1c67c83946b3e407604bbbd7053df4c94e2

Fixed absolute hostname redirections for mod_perl proxying.
---

diff --git a/WebConfig.pm b/WebConfig.pm
index bdcb236..d73ecab 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -53,10 +53,9 @@ our %WebConfig=(
 		"pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
 		"pserver_path"=>"/cvs",
 		"resume_url"=>$resume_url,
-		"mailman_url_sub"=>sub () { return "http://www.jankratochvil.net/mailman/"; },
-		                        # { return "http://".$My::Web::W->{"r"}->hostname()."/mailman/"; },
-		"pipermail_url_sub"=>sub () { return "http://www.jankratochvil.net/pipermail/"; },
-		                          # { return "http://".$My::Web::W->{"r"}->hostname()."/pipermail/"; },
+		"web_hostname_sub"=>sub () { return "www.jankratochvil.net"; },	# $My::Web::W->{"r"}->hostname()
+		"mailman_url_sub"  =>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/mailman/"; },
+		"pipermail_url_sub"=>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/pipermail/"; },
 		"heading"=>sub () {
 			print '<table border="0" align="center" style="font-size: larger;">'."\n";
 				print '<col width="20%">'."\n";
diff --git a/project/Rel.pl b/project/Rel.pl
index f5feef0..fd39944 100755
--- 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/"));