nagios邮件报警脚本
2015-06-26 00:04
363 查看
目的:主要作用于nagios监控系统邮件报警功能,也可以稍作修改使用于其他地方;
使用方法:
![](http://s3.51cto.com/wyfs02/M00/6E/F1/wKiom1WMJnCDljSQAAEcY6hFCkc070.jpg)
本文出自 “大風” 博客,请务必保留此出处http://lansgg.blog.51cto.com/5675165/1665760
使用方法:
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='xxx@xx.com'; #passwd for Sender my $send_user_pw='xxx'; #smtp address my $smtp_server='smtp.xxx'; 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='xxx@xx.com'; #passwd for Sender my $send_user_pw='xxx'; #smtp address my $smtp_server='smtp.xxx'; 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://s3.51cto.com/wyfs02/M00/6E/F1/wKiom1WMJnCDljSQAAEcY6hFCkc070.jpg)
本文出自 “大風” 博客,请务必保留此出处http://lansgg.blog.51cto.com/5675165/1665760
相关文章推荐
- 如何成为一名优秀的iOS开发工程师
- 0811 第一个iOS程序
- iOS第三方解决键盘遮挡-IQKeyboardManager
- iOS 键盘添加完成按钮,delegate和block回调
- block iOS 块
- iOS编程:学习篇(三)
- 浅谈iOS系统发展史
- Core Animation
- IOS开发中(null)与<null>的处理
- 一些ios接口api
- IOS 第三方管理库管理 CocoaPods
- 说说iOS与内存管理(上)
- iOS类别和扩展(category和extension)
- ios学习流程和见解
- A Mathematical Curiosity
- A Mathematical Curiosity 分类: HDU 2015-06-25 21:27 11人阅读 评论(0) 收藏
- iOS学习011延展协议
- iOS 开发笔记--SSO
- iOS国际化和genstrings所有子文件夹本地化字符串
- iOS点滴小细节