Changeset 285

Timestamp:

01/09/11 13:42:49 (13 years ago)

Author:

nanardon

Message:

• add function to delete expired sessions

File:

• server/trunk/admin/lib/Sophie/Cli.pm (modified) (1 diff)

server/trunk/admin/lib/Sophie/Cli.pm

@@ -192 +192 @@
     my $env = __PACKAGE__->new({}, $base);
 
+    $env->add_func('delete_expired_sessions',
+        {
+            code => sub {
+                my ($self, $match) = @_;
+                my $res =
+                $self->xmlreq('admin.maintenance.delete_expired_sessions', $match);
+                if ($res) {
+                    print $OUT (map { "$_\n" } @{ $res->value });
+                }
+            }
+        }
+    );
     $env->add_func('list_user',
         {