--- db/prgsrc/counter7.pl	2001/12/31 18:22:32	1.3
+++ db/prgsrc/counter7.pl	2002/01/03 18:03:53	1.4
@@ -1,14 +1,22 @@
 #!/usr/bin/perl
 $wait=3;
-$cfile	= 'counts/count7.txt';
-open STDERR, ">errors";
-$lockdir="counts/";
-$l = lc $ENV{'DOCUMENT_NAME'};
 $header="Content-Type: text/html\n\n";
 print $header;
-&lockfile && (print '?? раз', exit);
 
-open(F, $cfile);
+$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");
 @DATA = <F>;
 close(F);
 foreach (@DATA) {
@@ -18,7 +26,7 @@ foreach (@DATA) {
   {
     $c++;
     $_ = "$c - $bl\n";
-    $tmp = "cfile$$.tmp";
+    $tmp = "$cfile$$.tmp";
     open(F, ">$tmp");
     print F @DATA;
     close(F);
@@ -38,9 +46,9 @@ print "первый раз";
 
 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) {