Changeset 307 for trunk/lib/Epoll/Controller/Newpoll.pm

Timestamp:

05/21/10 18:19:22 (14 years ago)

Author:

nanardon

Message:

• add a new config option making poll creation limit by admin password instead mail confirmation (from branche/1)

Location:

trunk

Files:

• . (modified) (1 prop)
• lib/Epoll/Controller/Newpoll.pm (modified) (1 diff, 1 prop)

trunk/lib/Epoll/Controller/Newpoll.pm

@@ -33 +33 @@
     $c->stash->{page}{title} = 'Créer un nouveau vote';
     if ($c->req->param('mail')) {
-        my $reqid = $c->model('Vote')->create_poll_request(
-            mail => $c->req->param('mail'),
-            label => $c->req->param('label'),
-        );
-        $c->forward(
-            q'Epoll::View::Mail', 'render',
-            [ 'poll_request.tt', {
-                To => $c->req->param('mail'),
-                Subject => "New poll request",
-                mail => {
-                    label => $c->req->param('label'),
-                    reqid => $reqid,
+        if ($c->config->{newpollpasswd}) {
+            if (($c->req->param('passwd') || '') eq $c->config->{newpollpasswd})
+                {
+                    if (my $pid = $c->model('Vote')->create_poll(
+                            $c->req->param('label'),
+                            $c->req->param('mail'),
+                            $c->req->param('vpasswd'),
+                        )
+                    ) {
+                        $c->session->{'vpass' . $pid} = $c->req->param('vpasswd'); # avoid auth on admin page
+                        $c->res->redirect($c->uri_for('/admin',
+                                $c->model('Vote')->poll_id_from_uid($pid))
+                        );
+                    }
+                } else {
+                    $c->stash->{passwderror} = 1;
                 }
-            } ]
-        );
-
-        $c->stash->{template} = 'newpoll/request.tt';
+        } else {
+            my $reqid = $c->model('Vote')->create_poll_request(
+                mail => $c->req->param('mail'),
+                label => $c->req->param('label'),
+            );
+            $c->forward(
+                q'Epoll::View::Mail', 'render',
+                [ 'poll_request.tt', {
+                    To => $c->req->param('mail'),
+                    Subject => "New poll request",
+                    mail => {
+                        label => $c->req->param('label'),
+                        reqid => $reqid,
+                    }
+                } ]
+            );
+            $c->stash->{template} = 'newpoll/request.tt';
+        }
     }