#!/usr/bin/perl
no encoding;
use CGI qw(:standard);
use POSIX qw(strftime);

$uri = param('uri');
$referer = param('ref');
if ($referer eq "(none)") {
    $referer = "-";
}
$errcode = "200";
$method = param('met');
$proto = param('pro');
@path = split(/\//,$uri);
shift(@path);
if (substr($path[0],0,1) eq "~") {
    $path[0] = substr($path[0],1)."/www";
}
for ($i = 0; $i <= $#path; ++$i) {
    $userpath .= "/$path[$i]";
}
$filename = "/afs/athena.mit.edu/user/".substr($path[0],0,1)."/".substr($path[0],1,1)."$userpath";
$length = (stat($filename))[7];

$ip = remote_addr();
$client = user_agent();
$user = remote_user();
$timestr = strftime "[%d/%h/%Y:%T +0000]", gmtime;
$write = "$ip - $user - $timestr \"$method $userpath $proto\" 200 $length \"$referer\" \"$client\"\n";

open (LOG, '>>', "fake.log") or die "Can't open fake.log";
print LOG $write;
close(LOG);
print("Content-type: image/png\n\n");

print '‰PNG

   IHDR         µ   IDATxÚc``    +	M„    IEND®B`‚'