#!/usr/bin/perl

use DBI;


	$user = "takawone_test";
	$pass = "goomani";
	$dbname = "takawone_access";


	$buff = $ENV{'QUERY_STRING'};
	@lens = split(/&/,$buff);
	foreach $len (@lens){
	    ($name, $value) = split(/=/, $len);
	    $value =~ tr/+/ /;
	    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	    $in{$name} = $value;
	}

	$URL = "$in{'URL'}";
	$ref = "$in{'REF'}";
	$ip = $ENV{'REMOTE_ADDR'};


	$db = DBI->connect("DBI:mysql:$dbname:localhost","$user","$pass");
	$statement = "INSERT INTO tbl_access (a_url, a_ref, a_ip) VALUES ('$URL','$ref','$ip')";
	$sth = $db->prepare("$statement");
	$sth->execute;
	$sth->finish;
	$db->disconnect;


	print "Content-type: image/gif\n\n";
	open(IN,"access.gif");
	print <IN>;
	close(IN);



exit;