#!/usr/bin/perl

($sec,$min,$hour,$mdate,$month,$year,$dow,$ydate,$idst) = localtime;
$month++;
$year += 1900;

dbmopen (%Hits,"../other/counter.dbm",0666) || die "$0 cant open other/counter DBM file ($!).\n";
$Hits{sprintf("%04d/%02d/%02d",$year,$month,$mdate)}++;
$Hits{sprintf("%04d/%02d"     ,$year,$month       )}++;
dbmclose(%Hits);

$refer = $ENV{'QUERY_STRING'};
if ($refer)
	{
	$refer =~ m¦http://([^/]+)¦;
	$domain = $1;

	dbmopen (%Referers,"../other/referers.dbm",0666) || die "$0 cant open other/referers DBM file ($!).\n";
	$Referers{sprintf("%04d/%02d:%s",$year,$month,$refer)}++;
	dbmclose(%Referers);
	}

print "Location:../pix/clear.gif\n\n";