From: short <>
Date: Thu, 16 Oct 2003 16:18:05 +0000 (+0000)
Subject: Fixed absolute hostname redirections for mod_perl proxying.
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=refs%2Fheads%2Fmodperl

Fixed absolute hostname redirections for mod_perl proxying.
---

diff --git a/Web.pm b/Web.pm
index e2f94bc..e41a314 100644
--- a/Web.pm
+++ b/Web.pm
@@ -134,7 +134,7 @@ my($class,%args)=@_;
 		{ delete $W->{"have_ent"}; }
 	if ($W->{"detect_ent"} && !defined $W->{"have_ent"} && $W->{"r"}->method() eq "GET") {
 		$W->{"head"}.='<meta http-equiv="Refresh" content="0; URL='
-				.CGI::escapeHTML("http://".$W->{"r"}->hostname()."/".($W->{"r"}->uri()=~m#^/*(.*)$#)[0]
+				.CGI::escapeHTML("http://".&{$W->{"web_hostname_sub"}}()."/".($W->{"r"}->uri()=~m#^/*(.*)$#)[0]
 						."?".($W->{"QUERY_STRING"} || "detect_ent_glue=1").'&have_ent=detect')
 				.'" />'."\n";
 		}