#!/usr/bin/perl #print "Content-type: text/plain\n\n"; #for (keys %ENV) { # print "$_ $ENV{$_}\n"; #} $error404 = $ENV{'REQUEST_URI'}; $error404_check = $error404; $error404_check =~ s/^\///; $error404_check =~ s/\.html/\.shtml/; $error404 =~ s/\.html/\.shtml/; #print "whoa\n\n" . $error404 . "\n"; print "Content-Type: text/html; charset=us-ascii\n"; print "Content-Transfer-Encoding: 7bit\n\n"; if(-f $error404_check){ print < $ENV{'REQUEST_URI'} not found redirecting to $error404. EndHTML }else{ print <

Not Found

The requested URL $ENV{'REQUEST_URI'} was not found on this server.

Main Page

Apache/1.3.12 Server at Buckswoodside.com Port 80

EndHTML }