Changeset 179

Timestamp:

12/22/05 14:32:45 (18 years ago)

Author:

thauvin

Message:

• add --only-new and --only-old options

File:

• trunk/soft/ObsData/bin/obsdata (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/bin/obsdata

@@ -30 +30 @@
     'h|help' => sub { pod2usage(-exitval => 0) },
     'i' => \my $interactif,
+    'only-new' => \my $onlynew,
+    'only-old' => \my $onlyold,
 ) or pod2usage();
 
@@ -76 +78 @@
     my ($oa, $oe) = @_;
     for ($oe->id) {
+        /^do_archive$/ and do {
+            if ($onlyold && !$oe->test_result('archive_exists')) {
+                return 0;
+            }
+            if($onlynew && $oe->test_result('archive_exists')) {
+                return 0
+            }
+        };
         /^overwrite$/ && !$oe->test_result('dest_exists') and return 1;
     }