Changeset 285 for server/trunk/admin/lib
- Timestamp:
- 01/09/11 13:42:49 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/admin/lib/Sophie/Cli.pm
r248 r285 192 192 my $env = __PACKAGE__->new({}, $base); 193 193 194 $env->add_func('delete_expired_sessions', 195 { 196 code => sub { 197 my ($self, $match) = @_; 198 my $res = 199 $self->xmlreq('admin.maintenance.delete_expired_sessions', $match); 200 if ($res) { 201 print $OUT (map { "$_\n" } @{ $res->value }); 202 } 203 } 204 } 205 ); 194 206 $env->add_func('list_user', 195 207 {
Note: See TracChangeset
for help on using the changeset viewer.