Changeset 209 for server

Timestamp:

12/28/10 18:40:40 (13 years ago)

Author:

nanardon

Message:

• add dump/load as yaml user var
• add set_password() for user

Location:

server/trunk/web/lib

Files:

• Sophie.pm (modified) (1 diff)
• Sophie/Controller/User.pm (modified) (4 diffs)

server/trunk/web/lib/Sophie.pm

@@ -51 +51 @@
     xmlrpc => {
         xml_encoding => 'UTF-8',
+        show_errors => 1,
     },
 

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

@@ -4 +4 @@
 use MIME::Base64;
 use Storable qw/nfreeze thaw/;
+use YAML;
 
 BEGIN {extends 'Catalyst::Controller'; }
@@ -55 +56 @@
 }
 
+sub dumpdata : XMLRPC {
+    my ( $self, $c, $dataname ) = @_;
+
+    return $c->stash->{xmlrpc} = YAML::freeze(
+        $c->forward('fetchdata', [ $dataname ])
+    );
+}
+
 sub set_user_data : Private {
     my ( $self, $c, $user, $dataname, $data ) = @_;
@@ -67 +76 @@
     });
     $c->model('Base')->storage->dbh->commit;
+    return $c->stash->{xmlrpc} = 'Updated';
+}
+
+sub setdata : XMLRPC {
+    my ( $self, $c, $dataname, $data ) = @_;
+
+    return $c->forward('set_user_data', [ $c->user->mail, $dataname, $data ]);
+}
+
+sub loaddata : XMLRPC {
+    my ( $self, $c, $dataname, $data ) = @_;
+
+    $c->forward('setdata', [ $dataname, YAML::thaw($data) ]);
 }
 
@@ -88 +110 @@
 }
 
-sub setdata : XMLRPC {
-    my ( $self, $c, $dataname, $data ) = @_;
+sub set_user_password : Private {
+    my ($self, $c, $user, $clear_password ) = @_;
 
-    return $c->forward('set_user_data', [ $c->user->mail, $dataname, $data ]);
+    my @random = (('a'..'z'), ('A'..'Z'), (0 .. 9));
+    my $salt = join('', map { $random[rand(@random)] } (0..5));
+
+    my $pass = crypt($clear_password, '$1$' . $salt);
+    if (my $rsuser = $c->model('Base::Users')->find({
+            mail => $user,
+        }
+    )) {
+        $rsuser->update({ password => $pass });
+        $c->model('Base')->storage->dbh->commit;
+        return $c->stash->{xmlrpc} = 'Password changed for user ' . $user;
+    } else {
+        $c->error( 'No such user' );
+    }
+}
+
+=head2 user.set_password( PASSWORD )
+
+Change the password for the current user to password C<PASSWORD>.
+
+The change take effect immediately, so user must login again with the new
+password to continue to use the website.
+
+The password is stored internally crypted using UNIX MD5 method.
+
+=cut
+
+sub set_password : XMLRPC {
+    my ( $self, $c, $clear_password ) = @_;
+
+    $c->forward('set_user_password', [ $c->user->mail, $clear_password ]);
 }