Changeset 30

Timestamp:

03/14/09 20:32:57 (15 years ago)

Author:

nanardon

Message:

• add request for poll creation

Location:

trunk

Files:

• lib/Vote/Controller/Newpoll.pm (added)
• lib/Vote/Model/Vote.pm (modified) (2 diffs)
• sql/postgres.dump (modified) (previous)
• t/controller_Newpoll.t (added)

trunk/lib/Vote/Model/Vote.pm

@@ -136 +136 @@
     my $sth = $self->db->prepare_cached(
         q{
-        select start > now() as before,
+        select (start > now() or start is null) as before,
                "end" < now() as after
         from poll
@@ -696 +696 @@
 }
 
+sub poll_request_info {
+    my ($self, $rid) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{select * from poll_request where id = ?}
+    );
+
+    $sth->execute($rid);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res
+}
+
+sub poll_from_request {
+    my ($self, $rid, $passwd) = @_;
+    my $rinfo = $self->poll_request_info($rid) or return;
+
+    my $encpasswd = $self->gen_enc_passwd($passwd);
+
+    my $getpollid = $self->db->prepare_cached(
+        q{select nextval('poll_id_seq')}
+    );
+    $getpollid->execute();
+    my $newpollid = $getpollid->fetchrow_hashref->{nextval};
+    
+    my $newpoll = $self->db->prepare_cached(
+        q{insert into poll (id, label, owner, password) values (?,?,?,?)}
+    );
+
+    $newpoll->execute($newpollid, $rinfo->{label}, $rinfo->{mail}, $encpasswd);
+
+    my $delreq = $self->db->prepare_cached(
+        q{delete from poll_request where id = ?}
+    );
+
+    $delreq->execute($rid);
+    $self->db->commit;
+
+    $newpollid
+}
+
+sub create_poll_request {
+    my ($self, %info) = @_;
+
+    $info{mail} or return;
+    my $addreq = $self->db->prepare_cached(
+        q{insert into poll_request (id, label, mail) values (?,?,?)}
+    );
+
+    my $reqid = gen_uid;
+
+    $addreq->execute($reqid, $info{label}, $info{mail});
+    my $mailer = new Mail::Mailer 'smtp', Server => 'mailhost';
+    $mailer->open({
+        From => 'Voting system <nomail@nomail.com>',
+        To => $info{mail},
+        Subject => 'Votre nouveau vote',
+    });
+    print $mailer <<EOF;
+
+Vous avez demandez la création d'un nouveau vote:
+$info{label}
+
+Pour valider votre demande, veuiller allez visitez la page:
+$info{url}/$reqid
+
+A bientot
+EOF
+    $mailer->close;
+    $self->db->commit;
+    1;
+}
+
 =head1 AUTHOR