Changeset 248 for server/trunk/admin/lib
- Timestamp:
- 12/31/10 12:04:39 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/admin/lib/Sophie/Cli.pm
r212 r248 192 192 my $env = __PACKAGE__->new({}, $base); 193 193 194 $env->add_func('list_user', 195 { 196 code => sub { 197 my ($self, $match) = @_; 198 my $res = $self->xmlreq('admin.list_user', $match); 199 if ($res) { 200 print $OUT (map { "$_\n" } @{ $res->value }); 201 } 202 } 203 } 204 ); 205 $env->add_func('delete_user', 206 { 207 code => sub { 208 my ($self, $match) = @_; 209 my $res = $self->xmlreq('admin.delete_user', $match); 210 if ($res) { 211 print $OUT $res->value . "\n"; 212 } 213 }, 214 completion => sub { 215 my ($self, undef, @args) = @_; 216 my $res = $self->xmlreq( 217 'admin.list_user'); 218 return @{$res->value}; 219 }, 220 } 221 ); 222 $env->add_func('set_password', 223 { 224 code => sub { 225 my ($self, $match, $password) = @_; 226 my $res = $self->xmlreq('admin.set_user_password', $match, 227 $password); 228 if ($res) { 229 print $OUT $res->value . "\n"; 230 } 231 }, 232 completion => sub { 233 my ($self, undef, $user) = @_; 234 if (!$user) { 235 my $res = $self->xmlreq( 236 'admin.list_user'); 237 return @{$res->value}; 238 } else { return } 239 }, 240 } 241 ); 194 242 $env->add_func('create_user', 195 243 { … … 217 265 my $res = $self->xmlreq( 218 266 'distrib.list', @args); 219 return map { $_ }@{$res->value};267 return @{$res->value}; 220 268 }, 221 269 },
Note: See TracChangeset
for help on using the changeset viewer.