目的：主要作用于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=‘[email protected]‘;
#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=‘[email protected]‘;
#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;
}
报警结果：
时间： 2024-08-09 02:15:35