#!/usr/local/bin/perl


$shortdate = `date +"%D %T"`;
chop $shortdate;
$host = $ENV{'REMOTE_HOST'};

open FILE,"link.txt";
@line = <FILE>;
close FILE;

$line = (grep(/^$host,,,/, reverse @line))[0];
($host,$url,$banner_url) = split(/,,,/,$line);

open FILE, ">>click.txt";
print FILE "$host,,,$url,,,$banner_url,,,$ENV{'DOCUMENT_URI'},,,$shortdate\n";
close FILE;

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