Changeset 88 for trunk/lib

Timestamp:

03/19/09 17:16:25 (15 years ago)

Author:

nanardon

Message:

• send mail to confirm ballot registration

Location:

trunk/lib/Vote

Files:

• Controller/Ballot.pm (modified) (1 diff)
• Model/Vote.pm (modified) (1 diff)

trunk/lib/Vote/Controller/Ballot.pm

@@ -109 +109 @@
             $c->req->address,
         ); # TODO trap error
+        $vote->mail_ballot_confirm($mail, $id, {
+                ballotid => $c->stash->{ballotid},
+                url => $c->uri_for('/vote', $id),
+        });
         $c->stash->{template} = 'ballot/done.tt';
         $c->delete_session('Vote terminé');

trunk/lib/Vote/Model/Vote.pm

@@ -413 +413 @@
     $self->db->commit;
 
+    
     $uid
+}
+
+sub mail_ballot_confirm {
+    my ($self, $vid, $voteid, $info) = @_;
+    my $voteinfo = $self->vote_info($voteid) or return;
+    $info->{ballotid} or return;
+    my $mailer = new Mail::Mailer 'smtp', Server => (Vote->config->{smtp} || 'localhost');
+    $mailer->open({
+        From => $vid, # TODO allow to configure this
+        To => $vid,
+        Subject => 'Confirmation de vote: ' . $voteinfo->{label},
+        mail_header(),
+    });
+    print $mailer <<EOF;
+
+Vous venez de participer au vote:
+
+--------
+$voteinfo->{label}
+--------
+
+Votre bulletin est idéntifié sous le numéro:
+$info->{ballotid}
+
+Les résultats seront disponibles à cet url:
+$info->{url}
+
+Cordialement.
+EOF
+    $mailer->close
+        or warn "couldn't send whole message: $!\n";
+
 }