Email-Benachrichtigung mit Perl und SMTP

[wkarl]

Hallo,

folgendes habe ich Fedora 20 realisiert.

Zuerst perl-Module

• perl-Net-SMTP-SSL (NET::SMTP::SSL)
• perl-Authen-SASL (Athen::SASL ; wichtig für die Authentifizierung)

installieren.

In 99_MyUtilsExt.pm ist folgendes sub definiert

Code Auswählen Erweitern

######## My_AlarmEmail ##################################################
# What  : Sends a email
# Call  : { My_AlarmEmail('Subject','text 123') }
# Source:
# Prereq: - Linux (here Fedora) needs fhem-installation from fhem.de
#
sub
My_AlarmEmail($$) {
        my $subject = $_[0];
  my $text = $_[1];
my $smtpuid = "loginUID\@provider.de";
my $smtppwd = "loginPWD";
my $smtpfrom = "fromUID\@provider.de";
my $smtp = Net::SMTP::SSL->new("smtp.provider.de",
                        Port => 465,
                        Timeout => 60,
                        Debug => 1);
die "Could not connect to server!\n" unless $smtp;

$smtp->auth($smtpuid,$smtppwd);
$smtp->mail($smtpfrom);
$smtp->to($smtpuid);

$smtp->data();
$smtp->datasend("Priority: High\n");
$smtp->datasend("From: $smtpfrom\n");
$smtp->datasend("To: $smtpuid\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("$text\n");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
}


Aufgerufen wird das sub z.B. wenn der Batteriestatus eines Gerätes auf low geht.

ciao walter