Changeset 139 for trunk

Timestamp:

03/29/09 22:40:46 (15 years ago)

Author:

nanardon

Message:

• fix mail sender (from Mail::Util man page)

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (3 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -446 +446 @@
     $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
@@ -840 +841 @@
     # TODO complete this properly:
     my $mailer = new Mail::Mailer 'smtp', Server => (Vote->config->{smtp} || 'localhost');
+    $ENV{MAILADDRESS} = $voteinfo->{owner};
     $mailer->open({
         From => $voteinfo->{owner},
@@ -930 +932 @@
     $addreq->execute($reqid, $info{label}, $info{mail});
     my $mailer = new Mail::Mailer 'smtp', Server => (Vote->config->{smtp} || 'localhost');
+    $ENV{MAILADDRESS} = 'Voting system <nomail@nomail.com>';
     $mailer->open({
         From => 'Voting system <nomail@nomail.com>', # TODO allow to configure this