#!/usr/bin/perl

##################################################
# teller.cgi
#
# Copyright Kramer IT
#
##################################################

($sec,$min,$hour,$mday,$mon,$year,$wday,$CURRENT,$isdst)=localtime(time);
$mon++;
$year += 1900;

open (FILE, ">> stats/$year$mon.dat") or print "kan stats niet maken";
flock FILE, 2;

print FILE time;
print FILE "\t$ENV{'REMOTE_HOST'}";
print FILE "\t$ENV{'REMOTE_ADDR'}";
print FILE "\n";

close (FILE);

print "Content-type: text/html\n\n";