| #!/usr/bin/perl | |
| # Script to generate a Refresh header HTTP redirect | |
| print "Status: 200 ok\r\n"; | |
| print "Refresh: 2; url=resources/redirect-target.html#1\r\n"; | |
| print "Content-type: text/html\r\n"; | |
| print "\r\n"; | |
| print <<HERE_DOC_END | |
| <html> | |
| <head> | |
| <title>200 Refresh Redirect</title> | |
| <script> | |
| if (window.testRunner) { | |
| testRunner.clearBackForwardList(); | |
| testRunner.waitUntilDone(); | |
| } | |
| </script> | |
| <body>This page is a 200 refresh redirect on a 2 second delay.</body> | |
| </html> | |
| HERE_DOC_END |