Changeset 1377 for trunk/LATMOS-Accounts/lib/LATMOS

Timestamp:

08/13/15 17:53:30 (9 years ago)

Author:

nanardon

Message:

Add a noDelete options to synchronization

File:

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

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

@@ -275 +275 @@
     my %desterror;
     my $updated = 0;
+
+    # We do base one by one
+
     foreach my $destbase ($self->to) {
         my %objlist;
@@ -298 +301 @@
 
             # deleting non existing object in dest:
+
+            # Sync: noDelete.Base = yes          mean no delete
+            #       noDelete.Base.Otype = yes    mean no delete for this object
+            if ($self->{options}->{'noDelete'} ||
+                $self->{options}->{'noDelete.' . $destbase->label} ||
+                $self->{options}->{'noDelete.' . $destbase->label . '.' . $otype}) {
+                la_log(LA_INFO, 'Not deleting object type\'%s` from base \'%s` because %s is set',
+                    $otype,
+                    $destbase->label,
+                    $self->{options}->{'noDelete.' . $destbase->label . '.' . $otype}
+                        ? 'noDelete.' . $destbase->label . '.' . $otype
+                        : $self->{options}->{'noDelete.' . $destbase->label}
+                            ? 'noDelete.' . $destbase->label
+                            : 'noDelete'
+                );
+            } else {
+
             my $deletefiltered = 'deletefiltered.' . $destbase->label . '.' . $otype;
+
             foreach ($destbase->list_objects($otype)) {
 
@@ -326 +347 @@
                 }
             }
+            } # noDelete.Base
+
 
             # Finding object to synchronize: