#!/usr/local/bin/perl -w
use strict;
use CGI;
my $q = new CGI;

my @image_extensions = qw(gif png jpg jpeg);

my $referer = $ENV{'HTTP_REFERER'};
my $user = $ENV{'REMOTE_ADDR'};
my $usercomp = $ENV{'REMOTE_HOST'};
my $url = $ENV{'REDIRECT_URL'};
my $gmt = gmtime(time);

if ($referer) {
  open(FILE2,">>public/404.txt");
  print FILE2 "$url|$referer|$user|$usercomp|$gmt\n";
  close(FILE2);
}

for (@image_extensions) {
  if ($url =~ /\.${_}$/) {
    print $q->redirect(-uri=>'http://image.url/here.gif');
    exit(0);
  }
}

print $q->header,
      $q->start_html,
      $q->h1('Whoops!'),
      $q->h3($url),
      $q->p('That page does not exist. Please press your back button and try again.'),
      $q->end_html;
exit(0);