From b13343a93caa63ef5bc5d01a2f34c6508edcfa25 Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 19 Nov 2003 14:49:16 +0000
Subject: [PATCH] +CGI argument 'Wabs' to produce absolute HREFs/SRCs.

---
 Web.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/Web.pm b/Web.pm
index 8073616..1292afc 100644
--- a/Web.pm
+++ b/Web.pm
@@ -182,6 +182,17 @@ sub top_dir (;$)
 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;
-- 
1.8.3.1