#!/usr/local/bin/perl

($document = $ARGV[0]) =~ s/\s*//g;   #### NEW ADDITION

require "ctime.pl";   ## used for Time Stamp
$Time = &ctime(time);
chop($Time);             #### NEW ADDITION removes hard return after date


### LOG THE SESSION


open(FILE, ">>buystats.html") || die "no open";

print FILE "<FONT FACE=\"Helvetiva, Arial\" SIZE=\"-1\">";
print FILE "$ENV{'REMOTE_HOST'}, ";
print FILE "<FONT COLOR=\"#003366\"><B>$document</B></FONT>, ";
print FILE "$ENV{'HTTP_REFERER'}, $Time, $ENV{'HTTP_USER_AGENT'}";
print FILE "</FONT><BR>\n";
close(FILE);

### REDIRECT USER TO A DIFFERENT URL

print "Location: http://www.digitalriver.com/dr/v2/ec_Main.Entry?SP=10007&SID=126&CID=0\n\n";


exit;