#!/usr/bin/perl

$imageLoc = 'spacer.gif';
#$countLoc = 'd:\inetpub\wwwroot\dualdiagnosisresources\cgi-bin\counter\count.txt';
$countLoc = '..\..\pub\count.txt';

#print "Content-type: text/plain\n\n";
#print `copy \inetpub\wwwroot\dualdiagnosisresources\cgi-bin\counter\index.html \inetpub\wwwroot\dualdiagnosisresources\cgi-bin\counter\count.txt`;
#exit;

goto RESET if ($ENV{'QUERY_STRING'} =~ "reset");

($sec,$min,$hour,$mday,$mont,$year,$wday,$yday,$isdst) = localtime(time);
$yearAct= $year;
$year = $year - 100 + 2000;
$mont++;

open (COUNTIN, $countLoc);
foreach (<COUNTIN>) {
	if ($_ =~ ":") {
		($da,$ct) = split(/: /);
		$COUNTS{$da} = $ct;
		@keys = (@keys,$da);
	}
}
close (COUNTIN);

$dayString = "$mont/$mday/$year";
$COUNTS{$dayString}++;

#print "Content-Type: text/plain\n\n";
open (COUNTOUT, "> $countLoc");
print COUNTOUT "Traffic by Day\n";
print COUNTOUT "==============\n";
print COUNTOUT "\n";
foreach $d (keys %COUNTS) {
	print COUNTOUT "$d: $COUNTS{$d}";
}
print COUNTOUT "\n";
close (COUNTOUT);

print "Content-type: image/gif\n\n";
open (IMAGEIN, $imageLoc);
print <IMAGEIN>;
close (IMAGEIN);
exit;

RESET:
open (COUNTOUT, "> $countLoc");
print COUNTOUT "Traffic by Day\n";
print COUNTOUT "==============\n";
print COUNTOUT "\n";
close (COUNTOUT);

print "Content-type: text/plain\n\n";
print "Counter Reset!\n";
exit;