#!/usr/bin/perl
$que = $ENV{QUERY_STRING};
$ref = $ENV{HTTP_REFERER};
$dat = `date`;
$rem = $ENV{REMOTE_ADDR};
chop($dat);
$ph = $que." | ".$dat." | ".$ref." | ".$rem."\n";
open(LOGF, ">>bantrlog");
@l = <LOGF>;
print LOGF $ph;
close(LOGF);

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