my $hostname = `hostname`;
##################
### DEFINITION ###
##################
my $Empfaenger = '**@gmx.de'; # Anpassen, mehrere mit ,
my $Absender = 'WireGate <**@googlemail.com>'; # unbedingt anpassen, die Absenderadresse sollte gültig sein um Probleme zu vermeiden
my $Betreff = "eMail von $hostname";
my $text = "Test";
my $username = '**@googlemail.com'; #Anpassen! Username fuer SMTP-Server
my $password = "**"; #Anpassen! Passwort fuer SMTP-Server
my $mailserver= 'smtp.gmail.com'; # SMTP-Relay: das muss natuerlich angepasst werden!
use Net::SMTP;
use MIME::Base64;
my $trigger_ga = '8/1/1'; # Gruppenadresse Sollwert Auf = 1 / Ab = 0
# Eigenen Aufruf-Zyklus auf 1x täglich setzen, hört ja auf GA
$plugin_info{$plugname.'_cycle'} = 3600;
# Plugin an Gruppenadresse "anmelden"
$plugin_subscribe{$trigger_ga}{$plugname} = 1;
if ($msg{'apci'} eq "A_GroupValue_Write" && $msg{'dst'} eq $trigger_ga && defined $msg{'value'} && $msg{'value'} == "1" ) {
my $smtp = Net::SMTP->new($mailserver, Timeout => 5, Debug =>1) or return "Fehler beim verbinden zu $mailserver $!";
my $ret .= ' auth:'. $smtp->auth($username,$password);
$smtp->status() < 5
or do {
# Die smtp->auth Methode schlaegt fehl, also dann so
$smtp->datasend("AUTH LOGIN\n") or return 'auth login problem';
$smtp->response();
$smtp->datasend(encode_base64( $username ) ) or return "username $username cannot be encoded or wrong";
$smtp->response();
$smtp->datasend(encode_base64( $password ) ) or return "password $password cannot be encoded or wrong";
$smtp->response();
};
$ret .= 'status:' . $smtp->status();
$ret .= ' send:'. $smtp->mail($Absender);
$ret .= ' rcpt:'. $smtp->to($Empfaenger);
$ret .= $smtp->data();
$ret .= $smtp->datasend("To: $Empfaenger\n"); # Empfänger (Header)
$ret .= $smtp->datasend("Subject: $Betreff\n"); # Betreff
$ret .= $smtp->datasend("\n");
$ret .= $smtp->datasend("$text\n");
$ret .= $smtp->dataend();
$ret .= $smtp->quit;
# FIXME: check if we succeeded
return;
}
, erhalt ich jetzt folgende Fehlermeldung: "SASL Auth failed ;".
Kommentar