Changeset 13

Timestamp:

03/06/09 17:13:26 (15 years ago)

Author:

nanardon

Message:

• add authentication part

Location:

trunk/lib/Vote

Files:

• Controller/Ballot.pm (modified) (2 diffs)
• Model/Vote.pm (modified) (1 diff)

trunk/lib/Vote/Controller/Ballot.pm

@@ -36 +36 @@
     my $password = $c->session->{password} || $c->req->param('password');
 
-    if (!($uid && $password)) {
+    if (!$c->model('Vote')->auth_voting($id, $uid, $password)) {
+        $c->delete_session('invalid user/pass');
         $c->stash->{template} = 'ballot/login.tt';
         return;
@@ -51 +52 @@
     $c->stash->{sbal} = { map { $_ => 1 } $c->req->param('sbal') };
 
-    my $uid = 'Olivier Thauvin'; # for test now
     if ($c->req->param('confirm')) {
         $vote->register_ballot(

trunk/lib/Vote/Model/Vote.pm

@@ -238 +238 @@
 }
 
+sub auth_voting {
+    my ($self, $poll, $user, $password) = @_;
+    my $userinfo = $self->voting_info_id($user, $poll) or return;
+
+    $userinfo->{passwd} or return;
+    if (crypt($password, $userinfo->{passwd} || '') eq $userinfo->{passwd}) {
+        return 1;
+    } else {
+        return 0;
+    }
+}
+
 # Requete de decompte des voix: