Changeset 88 for trunk/lib/Vote/Model
- Timestamp:
- 03/19/09 17:16:25 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Vote/Model/Vote.pm
r87 r88 413 413 $self->db->commit; 414 414 415 415 416 $uid 417 } 418 419 sub mail_ballot_confirm { 420 my ($self, $vid, $voteid, $info) = @_; 421 my $voteinfo = $self->vote_info($voteid) or return; 422 $info->{ballotid} or return; 423 my $mailer = new Mail::Mailer 'smtp', Server => (Vote->config->{smtp} || 'localhost'); 424 $mailer->open({ 425 From => $vid, # TODO allow to configure this 426 To => $vid, 427 Subject => 'Confirmation de vote: ' . $voteinfo->{label}, 428 mail_header(), 429 }); 430 print $mailer <<EOF; 431 432 Vous venez de participer au vote: 433 434 -------- 435 $voteinfo->{label} 436 -------- 437 438 Votre bulletin est idéntifié sous le numéro: 439 $info->{ballotid} 440 441 Les résultats seront disponibles à cet url: 442 $info->{url} 443 444 Cordialement. 445 EOF 446 $mailer->close 447 or warn "couldn't send whole message: $!\n"; 448 416 449 } 417 450
Note: See TracChangeset
for help on using the changeset viewer.