#! /usr/bin/perl


#############################################################################
# Set Variables
$date_command = "/usr/bin/date";




# Get the Date for Entry
$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);




  

   

open(OUT, ">>mai.html");
print OUT "<p><hr>[$shortdate]\n";
print OUT "$ENV{'REMOTE_ADDR'}\n";
print OUT ", $ENV{'REMOTE_HOST'}\n" if $ENV{'REMOTE_HOST'};
print OUT "<br>$ENV{'HTTP_USER_AGENT'}\n" if $ENV{'HTTP_USER_AGENT'};
print OUT "$ENV{'HTTP_REFERER'}\n";
close(OUT);
# Print Out picture
#print "Location: http://fly.hiwaay.net/~garson/em_spe~1.gif\n\n";





print "Content-type: image/gif\n\n";
open (GIF, "em_spe~1.gif");
while (<GIF>) { print $_; }
close(GIF);