#!/usr/local/bin/perl
################################################################
# Counter                Version 1.3                           #
# File name              counter.cgi                           #
# Copyright 1996-1999    Pavel A. Lepshin good@imras.yar.ru    #
# Created 10/11/957      Last Modified 25/01/1999              #
# Good's Free CGI     http://www.imras.yar.ru/~good/free_cgi   #
################################################################
# THIS SCRIPT IS FREE!!! DO NOT DISTRIBUTE!!!                  #
################################################################
# Define parameters                                            #
################################################################
$basedir = "/www/roopsvod/counters"; # location of you multicounter directory
################################################################
# Body of program                                              #
################################################################
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$user = $ENV{'QUERY_STRING'};
open (COUNT,"$basedir/$user");
$countold = <COUNT>;
close COUNT;
$countnew = $countold + 1;
open (COUN,">$basedir/$user");
print COUN "$countnew";
close COUN; 
print "Content-Type: text/html\n\n"; 
print "$countnew\n";
exit;