Codebase Browser
chromium
Go to App

chromium/third_party/blink/web_tests/http/tests/inspector-protocol/page/resources/navigation-chain3.pl 

#!/usr/bin/perl
use CGI;

my $query = new CGI;

if ($query->param("afterPostForm") || 0) {
  print "Content-type: text/html\r\n\r\n";
  print "<html><head><title>Hello World 2b</title></head>\n";
  print "<script>window.location.reload();</script>\n";
  print "</body></html>\n";
} else {
  if ($query->param("afterGetForm") || 0) {
    print "Content-type: text/html\r\n\r\n";
    print "<html><head><title>Hello World 2a</title></head>\n";
    print "<body onload='formElem.submit()'>\n";
    print "<form method='post' action='' name='formElem'>";
    print "<input type='hidden' name='afterPostForm' value='bar'>";
    print "</form></body></html>\n";
  } else {
    print "Content-type: text/html\r\n\r\n";
    print "<html><head><title>Hello World 2a</title></head>\n";
    print "<body onload='formElem.submit()'>\n";
    print "<form method='get' action='' name='formElem'>";
    print "<input type='hidden' name='afterGetForm' value='bar'>";
    print "</form></body></html>\n";
  }
}