#!/usr/bin/perl
########################## 
# counter 1.0 
# 
# By Command-O Software 
# http://www.command-o.com 
#
# Copyright 1996. 
# All Rights Reserved
#
#If you find this script useful, we would appreciate a 
#donation to keep this service active for the community.
#Command-O Software, P.O. Box 12200, Jackson WY 83002
##########################
#<!--#exec cgi="counter.cgi"-->
$file = "$ENV{'DOCUMENT_URI'}";
$file =~ s/\//_/g;
open(FILE,"data/$file");
flock (FILE, 2);
$count = <FILE>;
flock (FILE, 8);
close(FILE);

$count++;

open(FILE,">data/$file"); 
flock (FILE, 2);
print FILE "$count"; 
flock (FILE, 8);
close(FILE); 
print "Content-type: text/html\n\n";
print "$count";
exit;