#!/usr/bin/perl
print "Content-type: text/html\r\n";
@keypairs = split(/&/, $ENV{'QUERY_STRING'});
$type = "";
foreach $pair (@keypairs)
{
($name, $value) = split(/=/, $pair);
if ($name eq "type") {
$type = $value;
}
}
print "Set-Cookie: reload-subframe-$type=1\r\n";
print "\r\n";
print "";
print "";
print "";
@cookies = split(/;/, $ENV{'HTTP_COOKIE'});
$subframe_content = "Fail";
foreach $pair (@cookies)
{
($name, $value) = split(/=/, $pair);
$name =~ s/^\s+//;
$name =~ s/\s+$//;
if ($name eq "reload-subframe-$type") {
$subframe_content = "Pass";
}
}
$src = "'reload-subframe-content.pl?text=$subframe_content'";
if ($type eq "iframe") {
print "";
print "";
print "";
} elsif ($type eq "object") {
print "";
print "";
print "";
} else {
print "";
}
print "";