Changeset 13 for trunk/lib/Vote/Model

Timestamp:

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

Author:

nanardon

Message:

• add authentication part

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (1 diff)

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: