#!/usr/athena/bin/perl

print <<HTTPHEAD;
Content-Type: text/html
Status: $ENV{'REDIRECT_STATUS'} Not Found

<!doctype HTML public "-//IETF//DTD HTML 2.0//EN">
<html>
<head>
<title>File Not Found</title>
</head>

<body>
<h1>404 File Not Found</h1>

<blockquote><em>I ate your Web page. <br>
Forgive me.  It was juicy <br>
And tart on my tongue.  </em></blockquote>

<h2>Translation:</h2>

<p> The URL you requested could not be found on this server.  </p>

<hr>

<h1>Please don't email us...yet!</h1>

You might want to try :
<ul>
<li> Double-check the URL to make sure it is correct.  </li>
<li> Try a second time, in case the server was just momentarily unavailable.</li>
<li> You might want to use <a href="http://web.mit.edu/search.html">MIT's Search Engine</a></li>
<li> Perhaps you meant to access
HTTPHEAD

my $newurl = 'http://web.mit.edu' . $ENV{REDIRECT_URL}; 
my $oldurl = 'http://stuff.mit.edu' . $ENV{REDIRECT_URL}; 
print "<a href=\"$newurl\">$newurl</a> rather than $oldurl?</li>\n"; 
if ($ENV{REDIRECT_URL} =~ /^\/(people)|~/) { 
print "<li>It looks like you
were trying to access a personal homepage.  If you cannot find it, the
owner might have graduated or left MIT.</li>\n"; 
}

print <<HTTP 
</ul> 
<p> If you still get the <strong>404 File Not
Found</strong> error, it is likely that this page has been moved or
deleted.  Unfortunately, it is extremely unlikely that the SIPB
webmasters will know what happened to this file, since the creators of
each page have sole control over content.  Please direct any questions
to <a href="/help/before-you-mail.html">stuffmaster\@mit.edu</a>.  Make
sure to include important information like the URL you are trying to
find.  Questions with insufficient information may take longer to
answer.  Thanks!</p>

</body>
</html>
HTTP
