Changeset 870 for LATMOS-Accounts-Web

Timestamp:

12/23/11 16:13:29 (13 years ago)

Author:

nanardon

Message:

• add XML::RPC interface to website
• add XML::RPC clients project
  • add tools to allow user to change their password

Location:

LATMOS-Accounts-Web/lib/LATMOS/Accounts

Files:

• Web.pm (modified) (1 diff)
• Web/Controller/About.pm (modified) (1 diff)
• Web/Controller/Rpc.pm (added)
• Web/Controller/Users.pm (modified) (2 diffs)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -22 +22 @@
     Authentication
     Prototype
+    XMLRPC
     /;
 

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/About.pm

@@ -27 +27 @@
 }
 
+sub echo : XMLRPC {
+    my ( $self, $c, @args ) = @_;
+    return RPC::XML::fault->new( 400, "No input!"
+    ) unless @args;
+    return join ' ', @args;
+}
 
 =head1 AUTHOR

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm

@@ -48 +48 @@
 }
 
+
+sub change_password : Private {
+    my ($self, $c, $username, $password) = @_;
+
+    my $base = $c->model('Accounts')->db;
+    $c->stash->{user} = $base->get_object('user', $username) or do {
+        $c->forward('/no_object');
+        return "Cannot get user object";
+    };
+
+    my $sync = $c->model('Accounts')->sync_access;
+
+    # This is widelly burk:
+    # synchaccess do not manage connect() at time, opening a
+    # backdoor then :\
+    foreach ($sync->bases) { $_->{_user} = $username }
+
+    my $suser = $sync->get_object('user', $username);
+    my $msg = $c->stash->{user}->check_password($password);
+    if ($msg ne 'ok') {
+        return $msg . ', mot de passe inchangé';
+    } elsif ($suser && $suser->set_password($password)) {
+        $sync->commit;
+        return;
+    } else {
+        return 'Erreur lors du changement de mot de passe';
+    }
+}
+
 sub default : LocalPath {
     my ( $self, $c, undef, $username, $subform, $arg ) = @_;
@@ -68 +97 @@
             if ($c->req->param('passwd')) {
                 if ($c->req->param('passwd') eq ($c->req->param('cpasswd') || '')) {
-                    my $sync = $c->model('Accounts')->sync_access;
-                    
-                    # This is widelly burk:
-                    # synchaccess do not manage connect() at time, opening a
-                    # backdoor then :\
-                    foreach ($sync->bases) { $_->{_user} = $c->user->{username} }
-                    
-                    my $suser = $sync->get_object('user', $username);
-                    my $msg = $c->stash->{user}->check_password($c->req->param('passwd'));
-                    if ($msg ne 'ok') {
-                        $c->stash->{pmerror} = $msg . ', mot de passe inchangé';
-                    } elsif ($suser && $suser->set_password($c->req->param('passwd'))) {
-                        $c->stash->{pmerror} = 'Mot de passe changé';
-                        $sync->commit;
-                    } else {
-                        $c->stash->{pmerror} = 'Erreur lors du changement de mot de passe';
-                    }
+                    $c->stash->{pmerror} = $c->forward('change_password',
+                        [ $username, $c->req->param('passwd') ] ) || 'Mot de passe changé';
                 } else {
                     $c->stash->{pmerror} = 'Mot de passe différents';