+ if ($W->{"args"}{"Wabs"}) {
+ # FIXME: $in may not be defined here!
+ # to prevent: Use of uninitialized value in ...
+ 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 : "");
+ }