#!/usr/bin/perl

require LWP::UserAgent;

$caller = $ENV{"REMOTE_ADDR"};
$target = $ENV{"QUERY_STRING"};

unless (fork)
	{
	$ua = new LWP::UserAgent;
	$request = new HTTP::Request('HEAD', $target);
	$response = $ua->request($request);
	if ($response->is_success)
		{
		open(logfile, ">>/home/hutch/webs/www.lionheart.me.uk/htdocs/counters/called.txt");
		print logfile $caller ."\t". $target ."\n";
		close(logfile);
		}
	else
		{
		open(logfile, ">>/home/hutch/webs/www.lionheart.me.uk/htdocs/counters/failed.txt");
		print logfile $caller ."\t". $target ."\t". $response->code ."\t". $response->message ."\n";
		close(logfile);
		}
	exit;
	}
print "Location: $target\n\n";
exit;