counter doesn't show in NN

by Nate Harel <nharel(at)consultant.com>
Date:	Mon, 05 Mar 2001 08:20:20 -0500
To:	hwg-techniques(at)hwg.org
	todo: View Thread, Original
Hi all,

I have been using a shareware counter on my site and discovered that it 
shows fine on IE, but does not show at all on NN.

The code is attached below. The way it is inserted into the page is with an 
"image" reference like

	<img src="../cgi-bin/count_nba.pl?nba" width="100" height="25">

Can anyone either help me understand that the problem is with this, or 
perhaps suggest another shareware counter I can use? (I don't want to use 
the counters that advertise).

Thanks

Nate



#!/usr/bin/perl
$minLen = 7;

#This is absolute path of the directory where the counter files are stored. 
Must be global-writeable.
$counterdir = "/custs/home/cgi-bin/count/";
$mailprog = "/usr/lib/sendmail";


$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 ("<HTML><HEAD><TITLE>Visitor counter</TITLE></HEAD>\n");
     print ("<BODY><h1>counter.xbm</h1>To put a visitor counter like this \n");
     print ("<IMG SRC=\"$scriptURL?unique_id\">\n");
     print ("on your web page, put an image tag in your HTML document 
like:<br>\n");
     print ("&lt;IMG SRC=\"$scriptURL?unique_id\"&gt;<br>\n");
     print ("where \"unique_id\" is a unique identifier for your 
counter.<p>\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<br>\n");
     print ("$scriptURL?qwerty&COUNT=1234<br>\n");
     print ("will create a new counter called \"qwerty\" with its counter 
set to 1234.<br>The counter can only be set when creating a new counter.\n");
     print ("<hr></BODY></HTML>\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 = <COUNT>;
   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;
}
HWG hwg-techniques mailing list archives, maintained by Webmasters @ IWA