#!/usr/bin/perl
use CGI qw(:standard);
&decode_vars;
$title=$fields{'title'};
$affiliatenum=$fields{'affiliatenum'};
$titleurl=$fields{'titleurl'};
$navigation=$fields{'navigation'};
$open=$fields{'open'};
$open="navigationopen";
if($open =~ /^pages\//) {
$open = $open;
} else {
$open = "bg01/$open";
}
print "Content-type: text/html\n\n";
print <<"END";
$title
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;
}
}