Changeset 181 for trunk/lib/Vote/DB/Poll.pm

Timestamp:

04/11/09 02:39:36 (15 years ago)

Author:

nanardon

Message:

• ballot confirm now use template

File:

• trunk/lib/Vote/DB/Poll.pm (modified) (2 diffs)

trunk/lib/Vote/DB/Poll.pm

@@ -6 +6 @@
 use warnings;
 use Vote;
-use Mail::Mailer;
 use Crypt::RSA;
 use Crypt::RSA::Key::Public::SSH;
@@ -446 +445 @@
 }
 
-sub mail_ballot_confirm {
-    my ($self, $vid, $info) = @_;
-    my $voteinfo = $self->info or return;
-    $info->{ballotid} or return;
-    my $mailer = new Mail::Mailer 'smtp', Server => (Vote->config->{smtp} || 'localhost');
-    $ENV{MAILADDRESS} = $vid;
-    $mailer->open({
-        From => $vid, # TODO allow to configure this
-        To => $vid,
-        Subject => 'Confirmation de vote: ' . $voteinfo->{label},
-        Vote::DB::common::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";
-
-}
-
 sub voting_count {
     my ($self) = @_;