summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Smokeping.pm30
1 files changed, 17 insertions, 13 deletions
diff --git a/lib/Smokeping.pm b/lib/Smokeping.pm
index e8a59d7..0606467 100644
--- a/lib/Smokeping.pm
+++ b/lib/Smokeping.pm
@@ -144,29 +144,33 @@ sub sendmail ($$$){
my $to = shift;
$to = $1 if $to =~ /<(.*?)>/;
my $body = shift;
- if ($cfg->{General}{mailhost}){
- my $smtp = Net::SMTP->new($cfg->{General}{mailhost});
- $smtp->mail($from);
- $smtp->to(split(/\s*,\s*/, $to));
- $smtp->data();
- $smtp->datasend($body);
- $smtp->dataend();
- $smtp->quit;
+ if ($cfg->{General}{mailhost} and
+ my $smtp = Net::SMTP->new($cfg->{General}{mailhost})){
+ $smtp->mail($from);
+ $smtp->to(split(/\s*,\s*/, $to));
+ $smtp->data();
+ $smtp->datasend($body);
+ $smtp->dataend();
+ $smtp->quit;
} elsif ($cfg->{General}{sendmail} or -x "/usr/lib/sendmail"){
- open (M, "|-") || exec (($cfg->{General}{sendmail} || "/usr/lib/sendmail"),"-f",$from,$to);
- print M $body;
- close M;
+ open (M, "|-") || exec (($cfg->{General}{sendmail} || "/usr/lib/sendmail"),"-f",$from,$to);
+ print M $body;
+ close M;
+ } else {
+ warn "ERROR: not sending mail to $to, as all methodes failed\n";
}
}
sub sendsnpp ($$){
my $to = shift;
my $msg = shift;
- if ($cfg->{General}{snpphost}){
- my $snpp = Net::SNPP->new($cfg->{General}{snpphost}, Timeout => 60);
+ if ($cfg->{General}{snpphost} and
+ my $snpp = Net::SNPP->new($cfg->{General}{snpphost}, Timeout => 60)){
$snpp->send( Pager => $to,
Message => $msg) || do_debuglog("ERROR - ". $snpp->message);
$snpp->quit;
+ } else {
+ warn "ERROR: not sending page to $to, as all SNPP setup faild\n";
}
}