#!/usr/bin/perl $minLen = 7; #This is absolute path of the directory where the counter files are stored. Must be global-writeable. $counterdir = "/directory/sub/sub/sub/counts/"; $lockWait = 5; &ReadParse; &initialize; &loadbitmaps; &incrementCount; &generateBitmap; &writeBitmap; exit(0); sub writeBitmap { print "Content-type: image/x-xbitmap\n\n"; print "#define count_width ",$len*8,"\n#define count_height 16\n"; print "static char count_bits[] = {\n"; for($i = 0; $i < ($#bytes + 1); $i++) { print "0x$bytes[$i]"; if ($i != $#bytes) { print ","; if (($i+1) % 7 == 0) { print "\n" ; } } } print "};\n"; } sub generateBitmap { $count = $totalReads; @bytes = (); $len = length($count) > $minLen ? length($count) : $minLen; $outtext = sprintf("%0${len}d",$count); for ($i = 0; $i < $len*3; $i++ ) { push(@bytes,"ff"); } for ($y=0; $y < 10; $y++) { for ($x=0; $x < $len; $x++) { push(@bytes,substr($chars{substr($outtext,$x,1)},$y*3,2)); } } for ($i = 0; $i < $len*3; $i++ ) { push(@bytes,"ff"); } } sub initialize { if ($#in < 0) { $scriptURL = "http://" . $ENV{'SERVER_NAME'} . ":" . $ENV{'SERVER_PORT'} . $ENV{'SCRIPT_NAME'}; print ("Content-type: text/html\n\n"); print ("Visitor counter\n"); print ("
Make your own free website on Tripod.com

counter.xbm

To put a visitor counter like this \n"); print ("\n"); print ("on your web page, put an image tag in your HTML document like:
\n"); print ("<IMG SRC=\"$scriptURL?unique_id\">
\n"); print ("where \"unique_id\" is a unique identifier for your counter.

\n"); print ("When creating a new counter you can set the starting value by adding a count parameter to the URL. So if the counter \"qwerty\" didn't exist, accessing the URL
\n"); print ("$scriptURL?qwerty&COUNT=1234
\n"); print ("will create a new counter called \"qwerty\" with its counter set to 1234.
The counter can only be set when creating a new counter.\n"); print ("


\n"); exit; } else { $countername = $in[0]; $countername =~ s/\W//g; $counterFile = $counterdir . $countername; if (!( -f $counterFile )) { $start = $in{'COUNT'} -1; open(CNTRFILE,">$counterFile"); print CNTRFILE "$start\n"; close(CNTRFILE); } } } sub incrementCount { if (&lockFile == 1) { $count = "0"; return; } &incrementTotalReads; &unlockFile; } sub unlockFile { unlink("$counterFile.lock"); } sub lockFile { $lockCount = 0; while (-f "$counterFile.lock") { if ($lockCount > $lockWait) { $count = 0; return 1; } sleep 1; $lockCount++; } open(LOCK,">$counterFile.lock") || die("Can't open $counterFile.lock: $!\n"); return 0; } sub incrementTotalReads { if (-e $counterFile) { open(COUNT,"$counterFile") || die("Can't open $counterFile: $!\n"); } $totalReads = ; chop $totalReads; close(COUNT); $totalReads++; open(COUNT,">$counterFile") || die "$0: can\'t open $counterFile: $!\n"; print (COUNT "$totalReads\n"); close(COUNT); } sub loadbitmaps { $chars{'0'} = "c3 99 99 99 99 99 99 99 99 c3"; $chars{'1'} = "cf c7 cf cf cf cf cf cf cf c7"; $chars{'2'} = "c3 99 9f 9f cf e7 f3 f9 f9 81"; $chars{'3'} = "c3 99 9f 9f c7 9f 9f 9f 99 c3"; $chars{'4'} = "cf cf c7 c7 cb cb cd 81 cf 87"; $chars{'5'} = "81 f9 f9 f9 c1 9f 9f 9f 99 c3"; $chars{'6'} = "c7 f3 f9 f9 c1 99 99 99 99 c3"; $chars{'7'} = "81 99 9f 9f cf cf e7 e7 f3 f3"; $chars{'8'} = "c3 99 99 99 c3 99 99 99 99 c3"; $chars{'9'} = "c3 99 99 99 99 83 9f 9f cf e3"; } # Perl Routines to Manipulate CGI input # Copyright 1993 Steven E. Brenner sub ReadParse { if (@_) { local (*in) = @_; } local ($i, $loc, $key, $val); # Read in text if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) { $in .= getc; } } @in = split(/&/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Convert %XX from hex numbers to alphanumeric $in[$i] =~ s/%(..)/pack("c",hex($1))/ge; # Split into key and value. $loc = index($in[$i],"="); $key = substr($in[$i],0,$loc); $val = substr($in[$i],$loc+1); $in{$key} .= '\0' if (defined($in{$key})); # \0 is the multiple separator $in{$key} .= $val; } return 1; }