Return to counter7.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.1, 2001/12/31 18:05:16 | version 1.2, 2001/12/31 18:11:52 |
---|---|
Line 2 | Line 2 |
$wait=3; | $wait=3; |
$cfile = 'counts/count7.txt'; | $cfile = 'counts/count7.txt'; |
open STDERR, ">errors"; | open STDERR, ">errors"; |
$lockdir="c:/html/countdir/"; | $lockdir="counts/"; |
$l = lc $ENV{'DOCUMENT_NAME'}; | $l = lc $ENV{'DOCUMENT_NAME'}; |
$header="Content-Type: text/html\n\n"; | $header="Content-Type: text/html\n\n"; |
&lockfile && (print $header.'?? раз', exit); | &lockfile && (print $header.'?? раз', exit); |