#!/usr/bin/perl

$count = 1;

@cookies = split(/;/, $ENV{'HTTP_COOKIE'});
foreach $pair (@cookies)
{
    ($name, $value) = split(/=/, $pair);
    
    $name =~ s/^\s+//;
    $name =~ s/\s+$//;
    
    if ($name eq "redirect-cycle-count") {
        $count = $value;
    }
}

if ($count eq 1) {
    print "Status: 302 Moved Temporarily\r\n";
    print "Location: redirect-cycle-2.pl\r\n";
    print "Content-type: text/html\r\n";
    print "Set-Cookie: redirect-cycle-count=2\r\n";
    print "\r\n";
    print "<html>";
    print "<body>";
    print "<div>Page 1</div>";
    print "</body>";
    print "</html>";
} else {
    print "Content-type: text/html\r\n";
    print "\r\n";
    print "<html>";
    print "<head>";
    print "<script type='text/javascript'>";
    print "function startTest() { testRunner.dumpBackForwardList(); }";
    print "</script>";
    print "</head>";
    print "<body onload='startTest();'>";
    print "<div>Page 3</div>";
    print "</body>";
    print "</html>";
}