<%perl>
my $intake = $ENV{'QUERY_STRING'} || "base.html";
my (@chewing, $i, @spit, $whichfile);
if ($intake ne "base.html") {
@chewing = split(/\&/, $intake);
$i = (@chewing);
my $loop = 0;
while ($loop <= $i) {
if ($chewing[$loop] =~ /whereto/) {
@spit = split(/=/, $chewing[$loop]);
$whichfile = $spit[1];
}
$loop++;
}
# $i--;
# @spit = split(/=/, $chewing[$i]);
# $whichfile = $spit[1];
} else {
$whichfile = $intake;
}
|
|
|
|