Changeset 2473

Timestamp:

06/04/21 17:25:13 (3 years ago)

Author:

nanardon

Message:

Add rename() to la-cli

File:

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

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

@@ -238 +238 @@
     );
 
-=head2 testpass
-
-Test password for given user
-
-=cut
-
-    $self->add_func('testpass', {
-            completion => sub {
-                if (! $_[2]) {
-                    return $_[0]->base->list_objects('user');
-                }
-            },
-            code => sub {
-                my ($self, $user, @passwd) = @_;
-                my $uobj = $self->base->get_object('user', $user) or do {
-                    $self->print("Cannot get user $user\n");
+=head3 rename
+
+Rename an object
+
+=cut
+
+    $self->add_func(
+        'rename',
+        {
+            help => 'Rename an object',
+            completion => sub {
+                if ($_[2] && !$_[3]) {
+                    return $_[0]->base->list_objects($_[2]);
+                } else {
+                    return $_[0]->base->list_supported_objects;
+                }
+            },
+            code => sub {
+                my ($self, $otype, $from, $to) = @_;
+                if (!$to) {
+                    $self->print('not enough arguments' . "\n");
                     return;
-                };
-
-                if (! $uobj->CheckAccountValidity ) {
-                    $self->print("Account $user cannot currently log\n");
-                }
-
-                foreach (@passwd) {
-                    my $is = $uobj->ComparePassword( $_ );
-                    if ($is) {
-                        $self->print("Passord for $user is $_\n");
-                        last;
-                    }
-                }
-            },
-        });
+                }
+                if ( $self->base->rename_object($otype, $from, $to) ) {
+                    $self->print("Object $otype/$from renamed to $to\n");
+                    $self->commit; 
+                } else {
+                    $self->rollback;
+                }
+            },
+        }
+    );
 
 =head3 create
@@ -397 +397 @@
         }
     );
+
     $self->add_func('exchangeip', 
         {