Changeset 2436

Timestamp:

07/12/20 11:07:24 (4 years ago)

Author:

nanardon

Message:

Backup sync status file

File:

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

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

@@ -9 +9 @@
 use LATMOS::Accounts::Utils qw(exec_command);
 use Fcntl qw(:flock);
+use File::Copy;
 
 =head1 NAME
@@ -456 +457 @@
     my ($self) = @_;
     if (my $file = $self->GetFileName) {
+        copy($file, "$file.old") or die "Cannot backup status $file";
         open(my $handle, '>', $file) or do {
             la_log(LA_ERR, "Cannot open status file %s for writing: %s",