git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6a83a3a
)
Fixed absolute hostname redirections for mod_perl proxying.
modperl
author
short
<>
Thu, 16 Oct 2003 16:18:05 +0000
(16:18 +0000)
committer
short
<>
Thu, 16 Oct 2003 16:18:05 +0000
(16:18 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
e2f94bc
..
e41a314
100644
(file)
--- 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";
}