--- db/prgsrc/counter7.pl	2001/12/31 18:05:16	1.1
+++ db/prgsrc/counter7.pl	2002/01/03 18:03:53	1.4
@@ -1,13 +1,22 @@
 #!/usr/bin/perl
 $wait=3;
-$cfile	= 'counts/count7.txt';
-open STDERR, ">errors";
-$lockdir="c:/html/countdir/";
-$l = lc $ENV{'DOCUMENT_NAME'};
 $header="Content-Type: text/html\n\n";
-&lockfile && (print $header.'?? раз', exit);
+print $header;
+
+$cfile	= 'count7';
+$cfiledir = '/home/piataev/public_html/cgi-bin/counts7';
+chdir $cfiledir;
+
+open STDERR, ">errors" or print "Oppa";
+$lockdir="";
+$lockdir=$cfiledir;
+$l = lc $ENV{'DOCUMENT_NAME'};
+if ($a=&lockfile)
+  { print "$a ?? раз"; 
+    exit ;
+  }
 
-open(F, $cfile);
+open(F, "$cfile");
 @DATA = <F>;
 close(F);
 foreach (@DATA) {
@@ -17,12 +26,12 @@ foreach (@DATA) {
   {
     $c++;
     $_ = "$c - $bl\n";
-    $tmp = "cfile$$.tmp";
+    $tmp = "$cfile$$.tmp";
     open(F, ">$tmp");
     print F @DATA;
     close(F);
     rename("$tmp", $cfile);
-    print $header.$c. " раз".&Suffix($c);
+    print "$c раз".&Suffix($c);
     &unlockfile ;
     exit
   }
@@ -32,14 +41,14 @@ open(F, ">>$cfile");
 print F "1 - $l\n"; 
 close(F);
 
-print $header."первый раз";
+print "первый раз";
 &unlockfile;
 
 sub lockfile
 {  
-   $tmp="$lockdir$cfile$$.tmp";
-   $lock="$lockdir$cfile.loc";
-   open F,">$tmp" or return 1;
+   $tmp="$cfile$$.tmp";
+   $lock="$cfile.loc";
+   open F,">$tmp" or (print $@,return 1);
    print F $$;
    close F;
    if (-e $lock) {