- Timestamp:
- 03/18/09 21:42:49 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Vote/Model/Vote.pm
r76 r77 763 763 $upd_voting->execute($encpasswd, $id); 764 764 765 my $date = $voteinfo->{dstart} && $voteinfo->{dend} 766 ? sprintf("\n" . 'Vous pourrez voter entre le %s %s et le %s %s' . "\n", 767 $voteinfo->{dstart}, $voteinfo->{hstart}, $voteinfo->{dend}, $voteinfo->{hend}) 768 : ''; 769 765 770 # TODO complete this properly: 766 771 my $mailer = new Mail::Mailer 'smtp', Server => 'mailhost'; 767 772 $mailer->open({ 768 From => 'Voting system <nomail@nomail.com>',773 From => $voteinfo->{owner}, 769 774 To => $vinfo->{mail}, 770 Subject => 'Vote passwd', 775 Subject => 'Invitation a voter: ' . $voteinfo->{label}, 776 'X-Epoll-poll' => $id, 777 'X-Epoll-version' => $Vote::VERSION, 771 778 }); 772 779 print $mailer <<EOF; … … 777 784 778 785 $mailinfo->{voteurl} 779 786 $date 780 787 Votre identifiant est: $vinfo->{mail} 781 788 Votre mot de passe est: $passwd 789 790 Conserver precieusement ces identifiants, il ne vous seront pas redonner. 782 791 783 792 Cordialement. … … 847 856 my $mailer = new Mail::Mailer 'smtp', Server => 'mailhost'; 848 857 $mailer->open({ 849 From => 'Voting system <nomail@nomail.com>', 858 From => 'Voting system <nomail@nomail.com>', # TODO allow to configure this 850 859 To => $info{mail}, 851 860 Subject => 'Votre nouveau vote',
Note: See TracChangeset
for help on using the changeset viewer.