Changeset 2416 for trunk/LATMOS-Accounts/bin

Timestamp:

06/25/20 09:25:24 (4 years ago)

Author:

nanardon

Message:

Make la-rename continue even if rename failed in one base (or object is not found)

File:

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

trunk/LATMOS-Accounts/bin/la-rename

@@ -59 +59 @@
 $labase->wexported(1);
 
-my $obj = $labase->get_object($otype, $ARGV[0]) or do {
-    die "Object $otype $ARGV[0] not found\n";
-};
+if ($labase->can('SetCB')) {
+    $labase->SetCB( sub {
+        my ( $base, $res ) = @_;
+        if ($res) {
+            print $base->label . ': Object renamed' . "\n";
+            $base->commit;
+        } else {
+            warn $base->label . ': Cannot rename object' . "\n";
+            $base->rollback;
+        }
+    } );
+}
 
 if (!$labase->rename_object($otype, @ARGV)) {
-    die "Error while renaming $otype $ARGV[0] to $ARGV[1]\n";
+    die "Some errors occurs, please check\n";
 }
 
-$labase->commit;