#!perl
# Fig. 26.15: counter.pl
# Program to track the number of times a web page
# has been accessed.
use CGI qw( :standard );

open( COUNTREAD, "counter.dat" );
   $data = <COUNTREAD>;
   $data++;
close( COUNTREAD );

open( COUNTWRITE, ">counter.dat" );
   print COUNTWRITE $data;
close( COUNTWRITE );

print header;
print "<CENTER>";
print "<STRONG>You are visitor number</STRONG><BR>";

for ( $count = 0; $count < length( $data ); $count++ )
{
   $number = substr( $data, $count, 1 );
   print "<IMG SRC = \"images/counter/$number.jpg\">";
}

print "</CENTER>";

########################################################################## 
# (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
# All Rights Reserved.                                                   #
#                                                                        #
# DISCLAIMER: The authors and publisher of this book have used their     #
# best efforts in preparing the book. These efforts include the          #
# development, research, and testing of the theories and programs        #
# to determine their effectiveness. The authors and publisher make       #
# no warranty of any kind, expressed or implied, with regard to these    #
# programs or to the documentation contained in these books. The authors #
# and publisher shall not be liable in any event for incidental or       #
# consequential damages in connection with, or arising out of, the       #
# furnishing, performance, or use of these programs.                     #
##########################################################################
