my($in)=@_;
if (my $uri=$ENV{"REQUEST_URI"}) {
+ if ($W->{"args"}{"Wabs"}) {
+ if ($in=~m#^/#) {
+ $in=~s#^/*##;
+ }
+ else {
+ $in=$ENV{"REQUEST_URI"}."/".$in;
+ $in=~tr#/#/#s;
+ 1 while $in=~s#/(?:[^/]+)/\Q..\E/#/#g
+ }
+ return "http://".&{$W->{"web_hostname_sub"}}()."/".(defined $in ? $in : "");
+ }
$uri.="Index" if $uri=~m#/$#;
if (defined $in) {
my($inpath,$inquery)=split /[?]/,$in,2;