LayoutTests/http/tests/history/redirect-200-refresh-2-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: 2; 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.layoutTestController) {
  15     layoutTestController.clearBackForwardList();
  16     layoutTestController.waitUntilDone();
  17 }
  18 </script>
  19
  20 <body>This page is a 200 refresh redirect on a 2 second delay.</body>
  21 </html>
  22 HERE_DOC_END