#!/usr/bin/perl
use CGI qw(:standard);
&decode_vars;
$title=$fields{'title'};
$affiliatenum=$fields{'affiliatenum'};
$titleurl=$fields{'titleurl'};
$navigation=$fields{'navigation'};
$type=$fields{'type'};
$star=$fields{'star'};
$name=$fields{'name'};
$description=$fields{'description'};
if ($navigation eq "") {
$navigation = "navigation";
}
print "Content-type: text/html\n\n";
print <<"END";
$title
<![CDATA[<body>
<script language="JavaScript">
<!--
alert("Your Browser Does Not Support Frames.\nInstall A More Recent Version.");
</script>
</body>]]>
END
##################################################################
sub decode_vars
{
$i=0;
@pairs=split(/&/,$ENV{'QUERY_STRING'});
foreach $item(@pairs)
{
($key,$content)=split(/=/,$item,2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$content=~s/\t/ /g;
$fields{$key}=$content;
}
}