#!/usr/bin/perl -w

$log = "log/log.txt";
$file = $ENV{'QUERY_STRING'};
$file =~ s/%(..)/pack('c', hex($1))/eg;
$link = "code/$file";
chomp($date = `date`);

if($file eq "" || !-e $link) {
	print "Location: notfound.html\n\n";
	exit 1;
}

open(LOG, ">>$log");
select LOG;
print $date . " $file: " . $ENV{'REMOTE_ADDR'}, $ENV{'REMOTE_HOST'} . "\n";
close(LOG);

select STDOUT;

print "Location: $link\n\n";