Select Code to Download

print "<p>base_url = $base_url\n";
$base_url = 'http://123.456.789.000';
print "<p>base_url = $base_url\n";

base_url = 
base_url = http://123.456.789.000

base_url = 
base_url = http://proxy.theirdomain.com:xxxx

print "<p>at A called_from = $called_from\n";
print "<p>at A base_url = $base_url\n";
...
for $i (0 .. $#url_parts) {
    print "<br>url_parts[$i] = $url_parts[$i]\n";
}

at A called_from = http://123.456.789.000/mysubfolder/mypage.htm
at A base_url = http://123.456.789.000
at B base_url = http://123.456.789.000
url_parts[0] = 
url_parts[1] = mysubfolder/mypage.htm

at A called_from = http://proxy.theirdomain.com:xxxx/mysubfolder/mypag
+e.htm
at A base_url = http://proxy.theirdomain.com:xxxx
at B base_url = http://proxy.theirdomain.com:xxxx
url_parts[0] = 
url_parts[1] =