Changeset 1138 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts

Timestamp:

09/17/12 10:04:24 (12 years ago)

Author:

nanardon

Message:

use EMail::Send instead EMail::Sender

EMail::Sender is not availlable on Mandriva 2010 but EMail::Send exists on all
distribution.

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm

@@ -3 +3 @@
 use namespace::autoclean;
 use Email::MIME::Creator;
-use Email::Sender::Simple qw(sendmail);
-use Email::Sender::Transport::SMTP::Persistent qw();
+use Email::Send;
 
 
@@ -110 +109 @@
         );
         $email->header_set( To => $to );
-        sendmail(
-            $email,
-            {
-                from => $from,
-                transport => Email::Sender::Transport::SMTP::Persistent->new({
-                        host => 'localhost',
-                        port => 25,
-                })
-            }
-        );
+        my $sender = Email::Send->new({mailer => 'SMTP'});
+        $sender->send($email->as_string);
     }
     $c->session->{mailing}{subject} = '';