Changeset 180

Timestamp:

04/11/09 02:10:50 (15 years ago)

Author:

nanardon

Message:

• use template for mail, adding atalyst module (#5)

Location:

trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (3 diffs)
• lib/Vote/Controller/Ballot.pm (modified) (1 diff)
• lib/Vote/Controller/Newpoll.pm (modified) (2 diffs)
• lib/Vote/Controller/Root.pm (modified) (1 diff)
• lib/Vote/Controller/Vote.pm (modified) (1 diff)
• lib/Vote/DB.pm (modified) (1 diff)
• lib/Vote/View/Mail.pm (added)
• root/mail (added)
• root/mail/poll_request.tt (added)
• t/view_Mail.t (added)

trunk/Changes

@@ -1 +1 @@
 This file documents the revision history for Perl extension Vote.
+
+2.00
+        - allow to encrypt ballot
+        - preserve line break in ballot page
+        - group value per ballot
 
 1.00  2009-04-03 16:00

trunk/MANIFEST

@@ -30 +30 @@
 lib/Vote/Model/Vote.pm
 lib/Vote/Template/Plugin/Mail.pm
+lib/Vote/View/Mail.pm
 lib/Vote/View/TT.pm
 Makefile.PL
@@ -55 +56 @@
 root/static/js/CalendarPopup.js
 root/static/vote.css
+root/mail/poll_request.tt
 root/templates/admin/default.tt
 root/templates/admin/denied.tt
@@ -97 +99 @@
 t/controller_Vote.t
 t/model_Vote.t
+t/view_Mail.t
 t/view_TT.t
 epoll.yml.example

trunk/lib/Vote/Controller/Ballot.pm

@@ -126 +126 @@
 }
 
+sub end : Private {
+    my ($self, $c) = @_;
+    if ($c->res->body) { return }
+    else { $c->forward(qw/Vote::View::TT/) }
+}
+
 =head1 AUTHOR
 

trunk/lib/Vote/Controller/Newpoll.pm

@@ -33 +33 @@
     $c->stash->{page}{title} = 'Créer un nouveau vote';
     if ($c->req->param('mail')) {
-        $c->model('Vote')->create_poll_request(
+        my $reqid = $c->model('Vote')->create_poll_request(
             mail => $c->req->param('mail'),
-            url => $c->uri_for('/newpoll'),
             label => $c->req->param('label'),
         );
+        $c->forward(
+            q'Vote::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';
     }
@@ -62 +72 @@
 }
 
+sub end : Private {
+    my ($self, $c) = @_;
+    if ($c->res->body) { return }
+    else { $c->forward(qw/Vote::View::TT/) }
+}
+
 =head1 AUTHOR
 

trunk/lib/Vote/Controller/Root.pm

@@ -44 +44 @@
 =cut 
 
-sub end : ActionClass('RenderView') {}
+sub end : Private {
+    my ($self, $c) = @_;
+    if ($c->res->body) { return }
+    else { $c->forward(qw/Vote::View::TT/) }
+}
 
 =head1 AUTHOR

trunk/lib/Vote/Controller/Vote.pm

@@ -40 +40 @@
 }
 
+sub end : Private {
+    my ($self, $c) = @_;
+    if ($c->res->body) { return }
+    else { $c->forward(qw/Vote::View::TT/) }
+}
+
 =head1 AUTHOR
 

trunk/lib/Vote/DB.pm

@@ -360 +360 @@
 
     $addreq->execute($reqid, $info{label}, $info{mail});
-    my $mailer = new Mail::Mailer 'smtp', Server => (Vote->config->{smtp} || 'localhost');
-    $ENV{MAILADDRESS} = undef;
-    $mailer->open({
-        From => 'Voting system <nomail@nomail.com>', # TODO allow to configure this
-        To => $info{mail},
-        Subject => 'Votre nouveau vote',
-        Vote::DB::common::mail_header(),
-    });
-    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 bientÃŽt
-EOF
-    $mailer->close
-        or warn "couldn't send whole message: $!\n";
     $self->db->commit;
-    1;
+    $reqid;
 }