[Openautomation-svn] SF.net SVN: openautomation:[630] wiregate/plugin/generic

[<ma...@us...>]

Revision: 630
          http://openautomation.svn.sourceforge.net/openautomation/?rev=630&view=rev
Author:   makki1
Date:     2012-01-03 15:39:57 +0000 (Tue, 03 Jan 2012)
Log Message:
-----------
WireGate-Plugins: SMTP revisited.. fix multiple recipients

Modified Paths:
--------------
    wiregate/plugin/generic/SMTP-eMail.pl
    wiregate/plugin/generic/Watchdog-SMTP-eMail
    wiregate/plugin/generic/email_triggered_by_ga.pl

Modified: wiregate/plugin/generic/SMTP-eMail.pl
===================================================================
--- wiregate/plugin/generic/SMTP-eMail.pl	2012-01-03 12:28:27 UTC (rev 629)
+++ wiregate/plugin/generic/SMTP-eMail.pl	2012-01-03 15:39:57 UTC (rev 630)
@@ -2,7 +2,8 @@
 # das macht nichts sinnvolles, sendet jede Stunde ein eMail,
 # soll nur als Vorlage dienen
 # - mit SSL (alte Version ohne SSL sieh SVN rev 622)
-# - benoetigt Paket libnet-smtp-ssl-perl
+# - benoetigt Paket libnet-smtp-ssl-perl libauthen-sasl-perl
+# (Updates->Pakete installieren oder apt-get install ..)
 
 # Aufbau moeglichst so, dass man unterhalb der Definitionen nichts aendern muss!
 
@@ -17,7 +18,7 @@
 my $Betreff = "eMail von $hostname";
 my $text = "email-Body";
 my $username = 'ab...@gm...'; #Anpassen! Username fuer SMTP-Server
-my $password = "meinpasswort"; #Anpassen! Passwort fuer SMTP-Server
+my $password = 'meinpasswort'; #Anpassen! Passwort fuer SMTP-Server
 my $mailserver='mail.gmx.net:465'; # SMTP-Relay mit SSL: das muss natuerlich angepasst werden!
 # oder z.B. smtp.gmail.com:465 fuer Gmail; 
 $plugin_info{$plugname.'_cycle'} = 3600;
@@ -33,7 +34,7 @@
 $smtp->auth($username,$password) or return "SASL Auth failed $!;$@"; # try SASL
 $smtp->status() < 5 or return "Auth failed: $!; $@ ". $smtp->status();
 $smtp->mail($Absender) or return "Absender $Absender abgelehnt $!";
-$smtp->to($Empfaenger) or return "Empfaenger $Empfaenger abgelehnt $!"; 
+$smtp->to(split(',',$Empfaenger)) or return "Empfaenger $Empfaenger abgelehnt: $!"; 
 $smtp->data() or return "Data failed $!";
 $smtp->datasend("To: $Empfaenger\n") or return "Empfanger $Empfaenger (Header-To) abgelehnt $!";
 $smtp->datasend("Subject: $Betreff\n") or return "Subject $Betreff abgelehnt $!";

Modified: wiregate/plugin/generic/Watchdog-SMTP-eMail
===================================================================
--- wiregate/plugin/generic/Watchdog-SMTP-eMail	2012-01-03 12:28:27 UTC (rev 629)
+++ wiregate/plugin/generic/Watchdog-SMTP-eMail	2012-01-03 15:39:57 UTC (rev 630)
@@ -1,7 +1,8 @@
 # Demo-Plugin zum prüfen auf Plugin Timeout-Fehler 
 # und eMail-Versand 
 # - mit SSL (alte Version ohne SSL sieh SVN rev 622)
-# - benoetigt Paket libnet-smtp-ssl-perl
+# - benoetigt Paket libnet-smtp-ssl-perl libauthen-sasl-perl
+# (Updates->Pakete installieren oder apt-get install ..)
 
 my $hostname = `hostname`;
 
@@ -13,7 +14,7 @@
 my $Absender = 'WireGate <ab...@gm...>'; # unbedingt anpassen, die Absenderadresse sollte gültig sein um Probleme zu vermeiden
 my $Betreff = "Plugin-Alarm von $hostname !";
 my $username = 'ab...@gm...'; #Anpassen! Username fuer SMTP-Server
-my $password = "meinpasswort"; #Anpassen! Passwort fuer SMTP-Server
+my $password = 'meinpasswort'; #Anpassen! Passwort fuer SMTP-Server
 my $mailserver='mail.gmx.net:465'; # SMTP-Relay mit SSL: das muss natuerlich angepasst werden!
 # oder z.B. smtp.gmail.com:465 fuer Gmail; 
 $plugin_info{$plugname.'_cycle'} = 300;
@@ -38,7 +39,7 @@
             $smtp->auth($username,$password) or return "SASL Auth failed $!;$@"; # try SASL
             $smtp->status() < 5 or return "Auth failed: $! ". $smtp->status();
             $smtp->mail($Absender) or return "Absender $Absender abgelehnt $!";
-            $smtp->to($Empfaenger) or return "Empfaenger $Empfaenger abgelehnt $!"; 
+            $smtp->to(split(',',$Empfaenger)) or return "Empfaenger $Empfaenger abgelehnt $!";
             $smtp->data() or return "Data failed $!";
             $smtp->datasend("To: $Empfaenger\n") or return "Empfanger $Empfaenger (Header-To) abgelehnt $!";
             $smtp->datasend("Subject: $Betreff\n") or return "Subject $Betreff abgelehnt $!";

Modified: wiregate/plugin/generic/email_triggered_by_ga.pl
===================================================================
--- wiregate/plugin/generic/email_triggered_by_ga.pl	2012-01-03 12:28:27 UTC (rev 629)
+++ wiregate/plugin/generic/email_triggered_by_ga.pl	2012-01-03 15:39:57 UTC (rev 630)
@@ -44,7 +44,7 @@
 	$smtp->auth($username,$password) or return "SASL Auth failed $!;$@"; # try SASL
 	$smtp->status() < 5 or return "Auth failed: $!; $@ ". $smtp->status();
 	$smtp->mail($Absender) or return "Absender $Absender abgelehnt $!";
-	$smtp->to($email_adress) or return "Empfaenger $email_adress abgelehnt $!"; 
+	$smtp->to(split(',',$email_adress)) or return "Empfaenger $email_adress abgelehnt $!"; 
 	$smtp->data() or return "Data failed $!";
 	$smtp->datasend("To: $email_adress\n") or return "Empfanger $email_adress (Header-To) abgelehnt $!";
 	$smtp->datasend("Subject: $email_subject\n") or return "Subject $email_subject abgelehnt $!";

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.