# Example: Cliff's Counter Script

# initializing variables for later use

1- $logpath = "/server/path/to/count.html";
# where access data is kept

2- $visible = 1;
# show counter or not?

3- $pad = 5;
# number of digits for your counter

# below is the main processing

4- open (LOG, "$logpath");
5- @data = <LOG>;
6- close(LOG);

# keep following (#7) on 1 line...do no wrap

7- $url = "<tr><td align=\"right\"><a href=\"$ENV{'DOCUMENT_URI'}\">
$ENV{'DOCUMENT_URI'}</a>:</td>";

8- $count = 0;
9- $pad = "%.$pad"."d";
10- open (LOG, ">$logpath");

11- foreach $line(@data) {
12-     if ($line =~ /$url/) {
13-       $line =~ /<td>(.*)<\/td>/;
14-       $count = $1;
15-       $count++;
16-       $count = sprintf($pad, $count);
17-       print LOG "$url<td>$count</td></tr>\n";
18-    }
19-    elsif ($count == 0 && substr($line,0,8) eq "</table>") {
20-       $count++;
21-       $count = sprintf($pad, $count);
22-       print LOG "$url<td>$count</td></tr>\n";
23-       print LOG "$line";
24-   }
25-   else {
26-     print LOG "$line";
27-   }
28-}
29- close(LOG);
30- if ($visible) {
31-     print "Content-type: text/html\n\n";
32-     print "$count";
33- }