Changeset 212 for server

Timestamp:

12/29/10 03:04:36 (13 years ago)

Author:

nanardon

Message:

• add create_user()

File:

• server/trunk/admin/lib/Sophie/Cli.pm (modified) (2 diffs)

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

@@ -192 +192 @@
     my $env = __PACKAGE__->new({}, $base);
 
+    $env->add_func('create_user',
+        {
+            code => sub {
+                my ($self, $user, $password) = @_;
+                my $res = $self->xmlreq('admin.create_user', $user, $password);
+                if ($res) {
+                    print $OUT $res->value . "\n";
+                }
+            },
+        }
+    );
     $env->add_func('select',
         {
@@ -364 +375 @@
 sub xmlreq {
     my ($self, $code, @args) = @_;
-    $self->base->send_request(
+    my $res = $self->base->send_request(
         $code, @args,
     );