blob: 97470051a26f1a4b1fa28b4327e239d5150acb34 [file] [log] [blame]
#!/usr/bin/perl
# Simple script to generate a 302 HTTP redirect
print "Status: 302 Moved Temporarily\r\n";
print "Location: referrer.html\r\n";
print "Content-type: text/html\r\n";
print "\r\n";
print <<HERE_DOC_END
<html><body>
This page should not be seen - it is a 302 redirect to another page.
</body></html>
HERE_DOC_END