src/third_party/WebKit/LayoutTests/http/tests/history/redirect-200-refresh-0-seconds.pl

   1 #!/usr/bin/perl
   2 # Script to generate a Refresh header HTTP redirect
   3
   4 print "Status: 200 ok\r\n";
   5 print "Refresh: 0; url=resources/redirect-target.html#1\r\n";
   6 print "Content-type: text/html\r\n";
   7 print "\r\n";
   8
   9 print <<HERE_DOC_END
  10 <html>
  11 <head>
  12 <title>200 Refresh Redirect</title>
  13 <script>
  14 if (window.testRunner) {
  15     testRunner.clearBackForwardList();
  16     testRunner.waitUntilDone();
  17 }
  18 </script>
  19
  20 <body>This page is a 200 refresh redirect on a 0 second delay.</body>
  21 </html>
  22 HERE_DOC_END