#!/usr/bin/perl -w

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

##################################################
#
#	WPearsall Simple Counter.
#	(c) Copyright WPearsall's Scripts.
#   Modified to work by Rick Furr
#     Jan 22, 2003
#	All rights reserved.
#
##################################################

# Counter Log Directory? (Creates and Reads From Here)(CHMOD 777)
$logdir ="/home/vcalc.net/htdocs/counters";

$after_count = "Hits Since April 22, 1997";

# The Font Tag
$font = "<font size='7' face='veranda, arial'>";

# /////////////////////////////////////////////////////
#
# 				END OF CONFIG
#
# \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

&get_counter_log;

$log1 = "$logdir/counter-$FORM{page}.txt";

# This section is the page counter

if (-e "$log1")
{ 
  #proceed with your code

	open(LOG1,"$log1");  # Open log and get count
	@log_lines = <LOG1>;
	close(LOG1);

	foreach $line (@log_lines)
			{
        $next_number = $line +1;
      		}

	unless ($next_number ne "")
	{
	$next_number = 1;
	}
}
else
{
$next_number=$FORM{start}
}

	open(LOG1,">$log1");  # Open log and print new count
        print LOG1 "$next_number";
	close(LOG1);

	print "<!-- BEGIN\n";
	print "document.write(\"<table BORDER=1 CELLSPACING=0 CELLPADDING=4 BORDERCOLOR='#000000'>\");\n";
		print "document.write(\"<tr BGCOLOR='#CCCCCC'>\");\n";
			print "document.write(\"<td align='center'>\");\n";
				print "document.write(\"$font <B> $next_number </B></font> <BR>\");\n";
				print "document.write(\"$after_count\");\n";
			print "document.write(\"</td>\");\n";
		print "document.write(\"</tr>\");\n";
	print "document.write(\"</table>\");\n";

sub get_counter_log
{
	if ($ENV{"REQUEST_METHOD"} eq 'GET') {
	$buffer = $ENV{'QUERY_STRING'};
	} else {
        	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
        	($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /; 
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$FORM{$name} = $value;
	}
}