#!/usr/bin/perl # Gif images should be named as 0.gif, 1.gif, ..., 9.gif # # Permission is granted to copy and redistribute this program if this notice # remains intact. # # Written by inomoto@in.aitech.ac.jp 12 Feb. 1997 # based on the "Matt's cgi counter" at http://www.worldwidemart.com/ # # Adaptat pel curs D70 Serveis de xarxa amb Linux. SGTI 2000 - 2001 # $| = 1; # # Poseu el cami relatiu del directori on hi ha magatzemats els # .gif dels nombres, respecte a la que ha d'apareixer el comptador. # # Si desem els gifs al directori # # /home/httpd/icons # # i el comptador ha d'apareixer dins la pagina # principal index.html que hi ha a l'arrel del web # # /home/httpd/html/ # # l'entrada sera: $image = "../icons"; $image = "../icons"; # # Poseu el cami absolut i el fitxer que emmagatzemara # el nombre de visites. # # Per exemple, si aquest cgi ha de comptar les visites # de la pagina principal, i el fitxer de text de nom # # count.txt # # es crea a # #/home/httpd/html # # l'estrada sera: $count = "/home/httpd/html/count.txt"; $count = "/home/httpd/html/count.txt"; # Get counter number and increment it open(COUNT,"$count") || die "Can't open count data file for Reading: $!\n"; $c = ; close(COUNT); if ($count =~ /\n$/) { chop($c); } $c++; open(COUNT,">$count") || die "Can't open count data file for Writing: $!\n"; print COUNT "$c"; close(COUNT); # Determine counter width $num = $length = length($c); # Set Individual Counter Numbers Into Associative Array while ($num > 0) { $CHAR{$num} = chop($c); $num--; } # Output gif images to Web server $j = 1; print ""; print ""; while ($j <= $length) { print ""; $j++; }