Changeset 211

Timestamp:

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

Author:

nanardon

Message:

• add login pages

Location:

server/trunk/web

Files:

• lib/Sophie/Controller/Admin.pm (modified) (1 diff)
• lib/Sophie/Controller/Login.pm (modified) (1 diff)
• root/static/sophie.css (modified) (1 diff)
• root/templates/html/login/create.html (added)
• root/templates/html/login/create.tt (added)
• root/templates/html/login/index.html (modified) (1 diff)

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

@@ -327 +327 @@
 }
 
+sub set_user_password : XMLRPC {
+    my ( $self, $c, $user, $password ) = @_;
+
+    $c->forward('/user/set_user_password', $user, $password);
+}
+
+sub create_user : XMLRPC {
+    my ($self, $c, $user, $password) = @_;
+
+    if ($c->model('Base::Users')->create({
+            mail => $user,
+        })) {
+        $c->forward('set_user_password', [ $user, $password ]);
+        return $c->stash->{xmlrpc} = "User $user created";
+    } else {
+        return;
+    }
+}
+
 =head1 AUTHOR
 

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

@@ -24 +24 @@
 sub index :Path :Args(0) :XMLRPCPath('/login') {
     my ( $self, $c, $login, $password ) = @_;
+    $login ||= $c->req->param('username');
+    $password ||= $c->req->param('password');
 
-    if ($c->authenticate({
-            mail => $login || $c->req->param('username'),
-            password => $password || $c->req->param('password'),
-        }
-    )) {
-        if ($c->req->xmlrpc->is_xmlrpc_request) {
-            $c->stash->{xmlrpc} = 'sophie_session=' . $c->sessionid;
+    if ($login) {
+        if ($c->authenticate({
+                mail => $login,
+                password => $password,
+            }
+        )) {
+            if ($c->req->xmlrpc->is_xmlrpc_request) {
+                $c->stash->{xmlrpc} = 'sophie_session=' . $c->sessionid;
+            } else {
+                warn 'redirect';
+                $c->res->redirect($c->uri_for('/'));
+            }
         } else {
-            $c->res->redirect('/');
-        }
-    } else {
-        if ($c->req->xmlrpc->is_xmlrpc_request) {
-            $c->error('invalid login / password');
+            if ($c->req->xmlrpc->is_xmlrpc_request) {
+                $c->error('invalid login / password');
+            }
         }
     }
 }
 
+sub create :Local {
+    my ($self, $c) = @_;
+
+    warn $c->req->param('valid');
+    warn $c->session->{valid_create_user};
+    if ((my $valid = $c->req->param('valid')) && $c->req->param('username')) {
+       if ($valid == $c->session->{valid_create_user}) {
+           my $res = $c->forward('/admin/create_user',
+               [
+                   $c->req->param('username'),
+                   $c->req->param('password'),
+               ]
+            );
+            if ($res) {
+               $c->res->redirect($c->uri_for('/login',
+                   { username => $c->req->param('username') }
+               ));
+           }
+       }
+    }
+    my $aa = (0 .. 9)[rand(9)];
+    my $bb = (0 .. 9)[rand(9)];
+    $c->stash->{valid} = "$aa + $bb";
+    $c->session->{valid_create_user} = $aa + $bb;
+
+}
 
 =head1 AUTHOR

server/trunk/web/root/static/sophie.css

@@ -252 +252 @@
 }
 
+div.sophie_auth {
+    width: 40%;
+    margin: auto;
+}
+
+.sophie_auth label {
+    width: 10em;
+    display: block;
+    float:left;
+}
+
+.sophie_auth input {
+}
+
 #w3c {
     float: right;

server/trunk/web/root/templates/html/login/index.html

@@ -1 +1 @@
 <!-- $id$ -->
+
+<div id="sophie_authenticated" class="sophie_auth">
+<form action="[% c.uri_for('/login') %]" method="POST">
+    <p>Authenticate to Sophie:</p>
+    <label for="username">Login:</label> <input type="text" id="username" name="username" value="[% c.req.param('username') %]"><br>
+    <label for="passowrd">Password:</label> <input id="password" type="password" name="password" value=""><br>
+    <input type="submit">
+</form>
+
+<p>No account yet: create one <a href="[% c.uri_for('/login/create')
+    %]">here</a>.</p>
+</div>