nagios邮件报警脚本

标签：nagios   监控系统   邮件报警   

目的：主要作用于nagios监控系统邮件报警功能，也可以稍作修改使用于其他地方；

使用方法：

perl notify_service_by_mail.pl -t connact -s subject -m message
perl notify_host_by_mail.pl -t connact -s subject -m message

服务报警代码：

#!/usr/bin/env perl
#notify_service_by_mail.pl
use strict;
use warnings;
use Mail::Sender;
my ($CONTACTEMAIL,$Subject,$Message,$Monitor,$NOTIFICATIONTYPE,$SERVICEDESC,$HOSTALIAS,$HOSTADDRESS,$SERVICESTATE,$LONGDATETIME,$SERVICEOUTPUT);

my  ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
($sec,$min,$hour,$mday,$mon,$year) = (
            sprintf("%02d", $sec),
            sprintf("%02d", $min),
            sprintf("%02d", $hour),
            sprintf("%02d", $mday),
            sprintf("%02d", $mon + 1),
            $year + 1900
            );
my $date="$year-$mon-$mday $hour:$min:$sec";

#Sender
my $send_user=‘notify_by_monitor@wo.cn‘;
#passwd for Sender
my $send_user_pw=‘notify_by_monitor‘;
#smtp address
my $smtp_server=‘smtp.wo.cn‘;


while (defined (my $arg = shift)){
    if ($arg eq ‘-t‘){
        $CONTACTEMAIL = shift;
        next;
    }elsif($arg eq ‘-s‘){
        $Subject = shift;
        next;
    }elsif($arg eq ‘-m‘){
        $Message = shift;
    }else {
        next;
    }
    if (defined $Message){
        ($Monitor,$NOTIFICATIONTYPE,$SERVICEDESC,$HOSTALIAS,$HOSTADDRESS,$SERVICESTATE,$LONGDATETIME,$SERVICEOUTPUT)=split(/\|/,$Message);
        print "$Monitor\n$NOTIFICATIONTYPE\n$SERVICEDESC\n$HOSTALIAS\n$HOSTADDRESS\n$SERVICESTATE\n$LONGDATETIME\n$SERVICEOUTPUT";
        sendTestMail();
    }
}
sub sendTestMail {
   my $sender = new Mail::Sender{
       ctype => ‘text/plain; charset=utf-8‘,
       encoding => ‘utf-8‘,    
 }; 
 #die "Error in mailing : $Mail::Sender::Error\n" unless ref $sender;
if ($sender->MailMsg({
   smtp => $smtp_server ,
   from => $send_user,
   to => $CONTACTEMAIL,
   subject => $Subject,
   msg => "$Monitor\n$NOTIFICATIONTYPE\n$SERVICEDESC\n$HOSTALIAS\n$HOSTADDRESS\n$SERVICESTATE\n$LONGDATETIME\n$SERVICEOUTPUT",
   auth => ‘LOGIN‘, 
   authid => $send_user,
   authpwd => $send_user_pw,
   charset=>‘utf-8‘
 }) < 0) {
   warn "$Mail::Sender::Error\n";
   return 1;
 }else{
$sender->Close();
#print "Test mail Send to $recv_user Mail sent OK.\n";
#print "$send_user to $CONTACTEMAIL smtp Success Subject : $Subject\n";
return 0;
    }
}
sub Usage {
        print "perl notify_service_by_mail.pl -t connact -s subject -m message";
        exit 2; 
}

主机报警代码：

#!/usr/bin/env perl
#notify_host_by_mail.pl
use strict;
use warnings;
use Mail::Sender;
my ($CONTACTEMAIL,$Subject,$Message,$Monitor,$NOTIFICATIONTYPE,$HOSTNAME,$HOSTALIAS,$HOSTADDRESS,$HOSTSTATE,$LONGDATETIME,$HOSTOUTPUT);

my  ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
($sec,$min,$hour,$mday,$mon,$year) = (
            sprintf("%02d", $sec),
            sprintf("%02d", $min),
            sprintf("%02d", $hour),
            sprintf("%02d", $mday),
            sprintf("%02d", $mon + 1),
            $year + 1900
            );
my $date="$year-$mon-$mday $hour:$min:$sec";

#Sender
my $send_user=‘notify_by_monitor@wo.cn‘;
#passwd for Sender
my $send_user_pw=‘notify_by_monitor‘;
#smtp address
my $smtp_server=‘smtp.wo.cn‘;

while (defined (my $arg = shift)){
    if ($arg eq ‘-t‘){
        $CONTACTEMAIL = shift;
        next;
    }elsif($arg eq ‘-s‘){
        $Subject = shift;
        next;
    }elsif($arg eq ‘-m‘){
        $Message = shift;
    }else {
        next;
    }
    if (defined $Message){
        ($Monitor,$NOTIFICATIONTYPE,$HOSTNAME,$HOSTALIAS,$HOSTADDRESS,$HOSTSTATE,$LONGDATETIME,$HOSTOUTPUT)=split(/\|/,$Message);
        print "$Monitor\n$NOTIFICATIONTYPE\n$HOSTNAME\n$HOSTALIAS\n$HOSTADDRESS\n$HOSTSTATE\n$LONGDATETIME\n$HOSTOUTPUT ";
        sendTestMail();
    }
}
sub sendTestMail {
   my $sender = new Mail::Sender{
       ctype => ‘text/plain; charset=utf-8‘,
       encoding => ‘utf-8‘,    
 }; 
 #die "Error in mailing : $Mail::Sender::Error\n" unless ref $sender;
if ($sender->MailMsg({
   smtp => $smtp_server ,
   from => $send_user,
   to => $CONTACTEMAIL,
   subject => $Subject,
   msg => "$Monitor\n$NOTIFICATIONTYPE\n$HOSTNAME\n$HOSTALIAS\n$HOSTADDRESS\n$HOSTSTATE\n$LONGDATETIME\n$HOSTOUTPUT",
   auth => ‘LOGIN‘, 
   authid => $send_user,
   authpwd => $send_user_pw,
   charset=>‘utf-8‘
 }) < 0) {
   warn "$Mail::Sender::Error\n";
   return 1;
 }else{
$sender->Close();
#print "Test mail Send to $recv_user Mail sent OK.\n";
#print "$send_user to $CONTACTEMAIL smtp Success Subject : $Subject\n";
return 0;
    }
}
sub Usage {
        print "perl notify_service_by_mail.pl -t connact -s subject -m message";
        exit 2; 
}

报警结果：

本文出自 “大風” 博客，请务必保留此出处http://lansgg.blog.51cto.com/5675165/1665760

nagios邮件报警脚本

标签：nagios   监控系统   邮件报警   

原文地址：http://lansgg.blog.51cto.com/5675165/1665760