mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added two new alerts

This commit is contained in:
Jordi Sanfeliu 2013-01-22 15:51:37 +01:00
parent 7d633abe78
commit f403c01ed0
1 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lib/mail.pm
View File

@ -34,6 +34,7 @@ sub mail_init {
my $myself = (caller(0))[3]; my $myself = (caller(0))[3];
my ($package, $config, $debug) = @_; my ($package, $config, $debug) = @_;
my $rrd = $config->{base_lib} . $package . ".rrd"; my $rrd = $config->{base_lib} . $package . ".rrd";
my $mail = $config->{mail};
if(!(-e $rrd)) { if(!(-e $rrd)) {
logger("Creating '$rrd' file."); logger("Creating '$rrd' file.");
@ -96,7 +97,15 @@ sub mail_init {
} }
} }
# check dependencies
if(lc($mail->{alerts}->{enabled}) eq "y") {
if(! -x $mail->{alerts}->{delvd_script}) {
logger("$myself: ERROR: script '$mail->{alerts}->{delvd_script}' doesn't exist or don't has execution permissions.");
}
}
$config->{mail_hist} = 0; $config->{mail_hist} = 0;
$config->{mail_hist_alert1} = 0;
push(@{$config->{func_update}}, $package); push(@{$config->{func_update}}, $package);
logger("$myself: Ok") if $debug; logger("$myself: Ok") if $debug;
} }
@ -432,6 +441,40 @@ sub mail_update {
$rrdata .= ":" . $gen[$n]; $rrdata .= ":" . $gen[$n];
} }
# MAIL alert
if(lc($mail->{alerts}->{enabled}) eq "y") {
if(!$mail->{alerts}->{delvd_threshold} || $delvd < $mail->{alerts}->{delvd_threshold}) {
$config->{mail_hist_alert1} = 0;
} else {
if(!$config->{mail_hist_alert1}) {
$config->{mail_hist_alert1} = time;
}
if($config->{mail_hist_alert1} > 0 && (time - $config->{mail_hist_alert1}) > $mail->{alerts}->{delvd_timeintvl}) {
if(-x $mail->{alerts}->{delvd_script}) {
system($mail->{alerts}->{delvd_script} . " " .$mail->{alerts}->{delvd_timeintvl} . " " . $mail->{alerts}->{delvd_threshold} . " " . $delvd);
} else {
logger("$myself: ERROR: script '$config->{alerts}->{delvd_script}' doesn't exist or don't has execution permissions.");
}
$config->{mail_hist_alert1} = time;
}
}
if(!$mail->{alerts}->{mqueued_threshold} || $queued < $mail->{alerts}->{mqueued_threshold}) {
$config->{mail_hist_alert1} = 0;
} else {
if(!$config->{mail_hist_alert1}) {
$config->{mail_hist_alert1} = time;
}
if($config->{mail_hist_alert1} > 0 && (time - $config->{mail_hist_alert1}) > $mail->{alerts}->{mqueued_timeintvl}) {
if(-x $mail->{alerts}->{mqueued_script}) {
system($mail->{alerts}->{mqueued_script} . " " .$mail->{alerts}->{mqueued_timeintvl} . " " . $mail->{alerts}->{mqueued_threshold} . " " . $queued);
} else {
logger("$myself: ERROR: script '$config->{alerts}->{mqueued_script}' doesn't exist or don't has execution permissions.");
}
$config->{mail_hist_alert1} = time;
}
}
}
RRDs::update($rrd, $rrdata); RRDs::update($rrd, $rrdata);
logger("$myself: $rrdata") if $debug; logger("$myself: $rrdata") if $debug;
my $err = RRDs::error; my $err = RRDs::error;