#!/usr/local/bin/perl
$lowband = "index.text.html";
$lowband_main = "main.text.html";
$referer = $ENV{'HTTP_REFERER'};
if ($referer =~ /^http:\/\/([^\/]*)\/main.html/) {
$result = substr($referer, 0, rindex($referer, '/') + 1);
$result = $result.$lowband_main;
}
else {
$result = substr($referer, 0, rindex($referer, '/') + 1);
$result = $result.$lowband;
}
print "Location: $result\n\n";