![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to counter7.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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); |