$baseurl = "http://sunrise.npac.syr.edu:8005/iwcp";
$cgiurl = $baseurl."/cgi-bin";
$sqlurl = "http://sunrise.npac.syr.edu:8005/cgi-bin/ifciwcp";
$plpath = "/oradata/disk4/httpdstg/cgi-bin/cdata/pl/iwcp";
$webAdminEmail = "wcsadmin\@utc.carrier.com";
sub formParse
{
if ($ENV{'REQUEST_METHOD'}eq 'GET')
{
$buffer = $ENV{'QUERY_STRING'};
}
else
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$name =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\'/\`/g;
$FORM{$name} = $value;
}
}
sub printHeader
{
print "\n";
print "\n";
print "";
print " \n";
}
sub printFooter
{
print "\n";
print "\n";
}
sub printSecurityScriptCode_Full
{
print "\n";
}
sub printSecurityScriptCall
{
print "\n";
}
sub printSecurityScriptOnly
{
print "function check_userStats(){\n\n";
print "window.onerror = null;\n";
print "if (!top.userstats)\n";
print "{\n";
print " top.document.location = \"$baseurl\"\n";
print "}\n";
print "else\n";
print "{\n";
print " var distributor_num = top.userstats.document.userstats.DISTRIBUTOR_NUM.value;\n";
print " if (distributor_num == \"undefined\" || distributor_num == \"\" || distributor_num==\"null\" ||
distributor_num == null)\n";
print " {\n";
print " top.document.location = \"$baseurl\"\n";
print " }\n";
print "}\n";
print "}\n";
}
sub printCarrierCopyrightInfo
{
print "\n";
}
sub printWebComment
{
local ($commentText) = @_;
print "\n";
}
sub printInternalError
{
local ($errorString1a) = @_;
&printHeader;
&printCarrierCopyrightInfo;
print "\n";
print "\n";
print "
The following internal error has occurred:";
print "
";
print "
$errorString1a
\n";
print "Please note what you were doing when this problem\n";
print "occurred, so we can identify and correct it.
\n";
print "Write down the Web page you were using, any data you may have entered into a form";
print "or search box,
";
print "and anything else that may help us duplicate the problem.
";
print "
";
print "Then contact the administrator of this service:$webAdminEmail.
\n";
&printFooter;
}