Changeset 1138 for trunk/LATMOS-Accounts-Web

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.

Location:

trunk/LATMOS-Accounts-Web

Files:

• Makefile.PL (modified) (1 diff)
• latmos-accounts-web.spec.in (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/Makefile.PL

@@ -17 +17 @@
 requires 'Catalyst::View::TT' => '0';
 requires 'LATMOS::Accounts' => '0';
+requires 'Email::Send';
+requires 'Email::MIME::Creator';
 catalyst;
 

trunk/LATMOS-Accounts-Web/latmos-accounts-web.spec.in

@@ -28 +28 @@
 BuildRequires: perl(LATMOS::Accounts)
 BuildRequires: perl(Class::Data::Inheritable)
+BuildRequires: perl(Email::Send)
+BuildRequires: perl(Email::MIME::Creator)
 
 Requires: perl(Catalyst)

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} = '';