Changeset 815 for LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

Timestamp:

03/03/10 22:50:58 (14 years ago)

Author:

nanardon

Message:

• use lock on base files based to ensure data are not read while another process write it

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

@@ -8 +8 @@
 use LATMOS::Accounts::Log;
 use LATMOS::Accounts::Utils qw(exec_command);
+use Fcntl qw(:flock);
 
 =head1 NAME
@@ -143 +144 @@
 }
 
-use Fcntl qw(:flock);
-
 sub lock {
     my ($self) = @_;
 
     $self->{lock}{handle} and return 1;
+    la_log(LA_DEBUG, "Trying to lock (pid $$)");
     if ($self->{options}{state_dir}) {
         my $lockfile = $self->{options}{state_dir} . '/synclock';
@@ -155 +155 @@
         $self->{lock}{handle} = $handle;
         $self->{lock}{filename} = $lockfile;
+        la_log(LA_DEBUG, "lock done (pid $$)");
         return 1;
     } else { return 1 }