Changeset 249

Timestamp:

12/31/10 12:04:59 (13 years ago)

Author:

nanardon

Message:

• add user management function

File:

• server/trunk/web/lib/Sophie/Controller/Admin.pm (modified) (2 diffs)

server/trunk/web/lib/Sophie/Controller/Admin.pm

@@ -245 +245 @@
     }
 
+    $c->forward('/distrib/exists', [ $distribution ]) or do {
+        $c->error('No such distribution');
+        return;
+    };
+
     my $ref = {
         distrib => $distribution,
@@ -333 +338 @@
 }
 
+sub list_user : XMLRPC {
+    my ($self, $c, $match) = @_;
+
+    $c->stash->{xmlrpc} = [
+        $c->model('Base::Users')->search(
+            {
+                $match ? ( mail => { '~' => $match } ) : (),
+            }
+        )->get_column('mail')->all ];
+}
+
+sub delete_user : XMLRPC {
+    my ($self, $c, $mail) = @_;
+
+    if (my $user = $c->model('Base::Users')->find({ mail => $mail })) {
+        if ($user->delete) {
+            $c->model('Base')->storage->dbh->commit;
+            return $c->stash->{xmlrpc} = "User $mail deleted";
+        }
+    }
+    $c->stash->{xmlrpc} = "No user $mail";
+}
+
 sub create_user : XMLRPC {
     my ($self, $c, $user, $password) = @_;