cambio modulo x email

AlertNotReceived.pl

@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use DBI;
-use Mail::Sender;
+use MIME::Lite;
 use Data::Dumper;
 
 # Variables
@@ -22,6 +22,7 @@ my $gd_tool  = 0;
 my $email_addr =
 'andrea.segalini@aseltd.eu,andrea.carri@aseltd.eu,roberto.savi@aseltd.eu,edoardo.cavalca@aseltd.eu,alessandro.valletta@aseltd.eu,alessandro.battilani@gmail.com,corrado@geielettronica.it,luca.chiapponi@aseltd.eu';
 my $cc_email_addr = $email_addr;
+my $from          = 'ASE Alert System<alert@aseltd.eu>';
 
 sub getLoggingTime {
     my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
@@ -88,28 +89,27 @@ END_MSG
 }
 
 sub emailSend {
-    my $sender = new Mail::Sender {
-        auth     => 'PLAIN',
-        authid   => 'ase.mums.alert@gmail.com',
-        authpwd  => 'ASE@mums2013F!',
-        smtp     => 'smtp.gmail.com',
-        port     => 587,
-        from     => 'ASE Alert System',
-        to       => $email_addr,
-        cc       => $cc_email_addr,
-        subject  => $email_obj,
-        msg      => $email_msg,
-        ctype    => "text/html",
-        encoding => "7bit"
-    };
+    my $msg = MIME::Lite->new(
+        From    => $from,
+        To      => $email_addr,
+        Cc      => $cc_email_addr,
+        Subject => $email_obj,
+        Data    => $email_msg
+    );
 
-    my $mail_res = $sender->MailMsg( { msg => $sender->{msg}, } );
-    if ( ref($mail_res) ne "Mail::Sender" ) {
-        print getLoggingTime() . " - $mail_res: $sender->{error_msg} \n";
-    }
-    else {
+    $msg->attr( "content-type" => "text/html" );
+    if ($msg->send(
+        'smtp', "smtps.aruba.it",
+        AuthUser => "alert\@aseltd.eu",
+        AuthPass => "Ase#2013!20\@bat",
+        Port     => 465,
+        SSL      => 1,
+        Debug    => 0
+    )) {
         print getLoggingTime() . " - $email_obj\n";
         print getLoggingTime() . " - Mail sent to: $email_addr.\n";
+    } else {
+        print getLoggingTime() . " - Error in sending mail to: $email_addr.\n";
     }
 }
 
@@ -262,7 +262,9 @@ foreach my $tool ( sort grep { /DT|PT/ } keys %ToolName ) {
         $tools_info .= "<tr>";
     }
     elsif ( $ToolName{$tool}{'ToolState'} eq 'Active' ) {
-        if ( $ToolName{ 'site' . $ToolName{$tool}{'idSite'} }{'SiteAlarmEmail'} eq "" ) {
+        if ( $ToolName{ 'site' . $ToolName{$tool}{'idSite'} }{'SiteAlarmEmail'}
+            eq "" )
+        {
             $Tools_infoCompany{ $ToolName{$tool}{'idCompany'} } .=
               "<tr bgcolor=\"#fddada\">" . $tool_part;
         }
@@ -301,8 +303,8 @@ foreach my $comp ( keys %Tools_infoCompany ) {
 
 foreach my $site ( keys %Tools_infoCompanySite ) {
     $tools_info = $Tools_infoCompanySite{$site};
-    my $site_email = $ToolName{'site' . $site}{'SiteAlarmEmail'};
-    my $send_alarm = $ToolName{'site' . $site}{'SendAlarm'};
+    my $site_email = $ToolName{ 'site' . $site }{'SiteAlarmEmail'};
+    my $send_alarm = $ToolName{ 'site' . $site }{'SendAlarm'};
     print getLoggingTime()
       . " - Site email: $site_email - Send Alarm: $send_alarm\n";
     if ( $send_alarm == 1 ) {
@@ -310,7 +312,7 @@ foreach my $site ( keys %Tools_infoCompanySite ) {
         makeEmailMsg();
         emailSend();
 
-    #print $email_msg;print "|||||||||||||||=====================|||||||||||||||\n";
+#print $email_msg;print "|||||||||||||||=====================|||||||||||||||\n";
     }
 }