#!/usr/bin/perl 

#--------------------------------------------------------------------------
# This PERL Script is Copyright 2000 
#  by KitchenMedia - Holden Richards
#--------------------------------------------------------------------------

     $path =$ENV{PATH_TRANSLATED};
     $path =~ s/counter\.cgi/count.txt/ig;
     $counterfile = $path;


    open(i,"<$counterfile") || die "Can't open $_ ";
    while (!eof(i)) {
        $line = <i>;
     if ($line =~ m@([0-9a-zA-Z])@g ){
      $num = $line;
     }
   }
   close(i);

   $num = $num+1;

  open (WRITE,">$counterfile") || die "Error: $!\n";
   print WRITE "$num\n";
  close(WRITE);
       

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

   $num1 = substr($num,0,1);
   $num2 = substr($num,1,1);
   $num3 = substr($num,2,1);
   $num4 = substr($num,3,1);
   $num5 = substr($num,4,1);

   $len = length($num);

   if ($len ==1){
   print "<CENTER><NOBR>0000$num1</NOBR></CENTER>\n";
   }
   if ($len ==2){
   print "<CENTER><NOBR>000$num1$num2</NOBR></CENTER>\n";
   }
   if ($len ==3){
   print "<CENTER><NOBR>00$num1$num2$num3</NOBR></CENTER>\n";
   }
   if ($len ==4){
   print "<CENTER><NOBR>0$num1$num2$num3$num4</NOBR></CENTER>\n";
   }
   if ($len ==5){
   print "<CENTER><NOBR>$num1$num2$num3$num4$num5</NOBR></CENTER>\n";
   }

exit;