#! /usr/bin/perl
# Last change: HH 2 Nov 99 10:15 pm
use URI;
####change it to the default index-page#####
$refer=$ENV{'HTTP_REFERER'};
$defaultpage=44;
my $host;
my $extern;
###strip referer
if ($refer ne "") {
my $uri=new URI $refer;
$host=$uri->host;
$extern=1;
} else {
$extern=0;
}
print "Content-type: text/html\n\n";
##redirect to default page
print qq!
HTML REDIRECT
!;