#!/usr/bin/perl
# Simple script to generate a 302 HTTP redirect with http-equiv=refresh

print "Status: 302 Found\r\n";
print "Content-type: text/html\r\n";
print "\r\n";

print <<HERE_DOC_END
<html>
<meta http-equiv="refresh" content="0;URL=redirect302-metaredirect.html">
<script>
    if (window.testRunner)
        testRunner.waitUntilDone();
</script>
<body>
Test failed! - This page uses a meta redirect to load another page.
The key aspect is that the browser should get the body of the 302
message and use it to perform a redirect
</body></html>
HERE_DOC_END