source:
trunk/LATMOS-Accounts/patchset/logas_in_cli.patch
@
2393
Last change on this file since 2393 was 2282, checked in by nanardon, 5 years ago | |
---|---|
File size: 962 bytes |
-
LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm
diff --git a/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm b/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm index ddc4ce2..6c36ae7 100644
a b sub BUILD { 60 60 }, 61 61 }); 62 62 63 =head3 logas 64 65 logas [username] 66 67 Create an object alias named C<Name> for object C<Object>. 68 69 =cut 70 71 $self->add_func( 72 'logas', { 73 code => sub { 74 my ($self, $username) = @_; 75 if ($self->base->SetConnectedUser($username)) { 76 $username ||= ''; 77 print $OUT "Connected as `$username'\n"; 78 } 79 }, 80 completion => sub { 81 return $_[0]->base->list_objects('user'); 82 } 83 }, 84 ); 85 63 86 =head3 unexported 64 87 65 88 unexported yes|no|show
Note: See TracBrowser
for help on using the repository browser.