#! /usr/bin/perl
# User definable parts -
# - rootdir is the base path to be prefixed to any file names
# - home is the url for the opening page of the site, whatever that turns
# out to be
$rootdir ="/u/html/closetohome/overboard";
$home ="/closetohome/overboard";
##################################################################
#$from = $ENV{'HTTP_REFERER'};
#($to = $from) =~ s/right/left/;
($iss, $hear) = split(/&/, $ENV{'QUERY_STRING'});
if ($ENV{'QUERY_STRING'}) {($iss, $hear) = split(/&/,$ENV{'QUERY_STRING'});}
else {$iss = "1";}
if ($hear){$dest = "http://www.wnet.org/cgi-bin/nf/hearsay/a/1/";}
else {$dest = "subscribe.html";}
# Now with the program
###########################################################
# Has to output a Content-type
print "Content-type: text/html\n\n ";
# Check to see if all required information was entered
&no_name unless $iss;
sub no_name
{
print <<"HTML";
Improper Access
Improper Access
This script has been called incorrectly. If you are seeing this message
during normal use of Overboard, please email
purp and describe what you were
doing
that brought you here. If you reached this page directly, click
here to go to our
opening page.
iss: $iss
hear: $hear
query: $ENV{'QUERY_STRING'}
HTML
exit;
}
print <<"HTML";
Overboard - Issue $iss
HTML
exit;