Opened by jan99 at 2015-03-06 10:48
User since
2008-09-18
439 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-09-18
439 Artikel
BenutzerIn
Moin!
ein Bestandteil meines Tools, das ich hier schon in anderen Komponenten beschrieben habe, ist der Versand einer Log-Email mit dem Paket Mail::Sendmail.
Es läuft - davon einmal abgesehen, aber wenn ich das als Window-Task einbinde, dann beendet sich die Aufgabe einfach nicht.
Wird das Programm manuell gestartet, dann siehe ich auf dem Zielrechner schon die eingehende eMail und erst einige Sekunden (gefühlte 10 Sekunden) später kommt die Ausgabe von $Mail::Sendmail::log - könnte dieses die Ursache dafür sein, das sich mein Task nicht sauber beendet? Aber auch wenn cih $Mail::Sendmail::log deaktiviere dauert es seine Zeit
Kann man das irgendwie verbessern bzw. umgehen?
Gruß Jan
Hier mein Code der Versand-Sub:
ein Bestandteil meines Tools, das ich hier schon in anderen Komponenten beschrieben habe, ist der Versand einer Log-Email mit dem Paket Mail::Sendmail.
Es läuft - davon einmal abgesehen, aber wenn ich das als Window-Task einbinde, dann beendet sich die Aufgabe einfach nicht.
Wird das Programm manuell gestartet, dann siehe ich auf dem Zielrechner schon die eingehende eMail und erst einige Sekunden (gefühlte 10 Sekunden) später kommt die Ausgabe von $Mail::Sendmail::log - könnte dieses die Ursache dafür sein, das sich mein Task nicht sauber beendet? Aber auch wenn cih $Mail::Sendmail::log deaktiviere dauert es seine Zeit
Kann man das irgendwie verbessern bzw. umgehen?
Gruß Jan
Hier mein Code der Versand-Sub:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub SendReportMail{
my %conf = %{shift()};
my $meldung = shift || "Es wurde keine Meldung bereitgestellt!";
my $betriff = shift || "Meldung vom Monitoring-System!";
my %mail = ( To => $conf{email_to},
From => $conf{email_from},
Message => $report_text,
Subject => $report_subject,
);
$mail{auth} = {user=>$conf{email_from}, password=>$conf{email_pwd}, required=>$conf{email_required} };
$mail{Smtp} = $conf{email_smtp};
sendmail(%mail) or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
}#end-SendReportMail
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de