#!/usr/local/bin/perl

$Log = '/usr/local/apache/var/log/robot-log';
@Interesting = ('HTTP_USER_AGENT', 'REMOTE_ADDR', 'REMOTE_HOST', 'HTTP_FROM');

print "Content-type: text/plain\n\n";
open(ROBOT, "robots.dat") || die("Can't open robots.dat!\n");

while (<ROBOT>) {
        print;
}

print "\n";

close(ROBOT);

open(LOG, ">>$Log") || die("Can't open $Log: $!\n");

print LOG '[' . localtime() . ']';

foreach $env (@Interesting) {
   print LOG "\t$env=$ENV{$env}";
}
print LOG "\n";
close LOG;