Changeset 33

Timestamp:

03/15/09 00:12:54 (15 years ago)

Author:

nanardon

Message:

• add poll authentication

Location:

trunk

Files:

• lib/Vote/Controller/Admin.pm (modified) (1 diff)
• lib/Vote/Model/Vote.pm (modified) (1 diff)
• root/templates/admin/login.tt (added)

trunk/lib/Vote/Controller/Admin.pm

@@ -31 +31 @@
     $c->stash->{voteid} = $id;
     my $vote = $c->model('Vote');
+
+    my $password = $c->session->{vpassword} || $c->req->param('vpassword');
+
+    if (!$c->model('Vote')->auth_poll($id, $password)) {
+        $c->session->{vpassword} = undef;
+        $c->stash->{template} = 'admin/login.tt';
+        return;
+    }
+
+    $c->session->{vpassword} = $password;
 
     if ($vote->vote_status($id) eq 'BEFORE') {

trunk/lib/Vote/Model/Vote.pm

@@ -475 +475 @@
 }
 
+sub auth_poll {
+    my ($self, $voteid, $passwd) = @_;
+
+    my $vinfo = $self->vote_info($voteid) or return;
+
+    $vinfo->{password} or return;
+    warn $vinfo->{password};
+    if (crypt($passwd, $vinfo->{password} || '') eq $vinfo->{password}) {
+        return 1;
+    } else {
+        return 0;
+    }
+}
+
 sub voting_has_sign {
     my ($self, $poll, $user) = @_;