--- db/prgsrc/counter7.pl	2001/12/31 18:05:16	1.1
+++ db/prgsrc/counter7.pl	2001/12/31 18:22:32	1.3
@@ -2,10 +2,11 @@
 $wait=3;
 $cfile	= 'counts/count7.txt';
 open STDERR, ">errors";
-$lockdir="c:/html/countdir/";
+$lockdir="counts/";
 $l = lc $ENV{'DOCUMENT_NAME'};
 $header="Content-Type: text/html\n\n";
-&lockfile && (print $header.'?? раз', exit);
+print $header;
+&lockfile && (print '?? раз', exit);
 
 open(F, $cfile);
 @DATA = <F>;
@@ -22,7 +23,7 @@ foreach (@DATA) {
     print F @DATA;
     close(F);
     rename("$tmp", $cfile);
-    print $header.$c. " раз".&Suffix($c);
+    print "$c раз".&Suffix($c);
     &unlockfile ;
     exit
   }
@@ -32,7 +33,7 @@ open(F, ">>$cfile");
 print F "1 - $l\n"; 
 close(F);
 
-print $header."первый раз";
+print "первый раз";
 &unlockfile;
 
 sub lockfile