#!/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 "<html>";
print "<head>";
print "</head>";

@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 "<body>";
    print "<iframe src=$src></iframe>";
    print "</body>";
} elsif ($type eq "object") {
    print "<body>";
    print "<object data=$src></object>";
    print "</body>";
} else {
    print "<frameset>";
    print "<frame src=$src>";
    print "</frameset>";
}

print "</html>";