Changeset 2500

Timestamp:

11/30/21 23:36:29 (3 years ago)

Author:

nanardon

Message:

Add error message

File:

• trunk/LATMOS-Accounts/bin/la-sync (modified) (1 diff)

trunk/LATMOS-Accounts/bin/la-sync

@@ -100 +100 @@
     unexported => $unexp,
 ) or die "cannot create sync object\n";
-$sync->load_dest and return;
+$sync->load_dest and do {
+    die "Cannot load dest base\n";
+};
+
 if ($otype) {
-    my @list = $all
-        ? $sync->from->list_objects($otype)
-        : @ARGV;
+    my @list;
+
+    if ($all) {
+        @list =  $sync->from->list_objects($otype)
+    } elsif (@ARGV) {
+        @list = @ARGV;
+    } else {
+        die "No object to synchronize given, -a missing ?\n";
+    }
 
     foreach (@list) {