perl_Script_nagios_自定义插件

今天要监控一个服务的进程___xl2tpd;该服务有几个IP就会有几个进程；

本来是想利用nagios的check_nrpe插件取值，然后判断报警，脚本写好了，本地测试正常，可是部署上去发现每次都取得反值，比如，现在有2个进程（2个IP），结果监控端取到值就是crit;郁闷啊；不知道这个nagios的check_nrpe是什么机制，第一次自定义；

最后没办法使用了check_pros

command[check_aa]=/usr/local/nagios/libexec/check_procs -c 2:2 -a '/usr/sbin/xl2tpd'

这样是正常的，可是我的脚本感觉也没错，虽然写的粗糙了点;

vim check_srv.pl

#!/usr/bin/perl

use Getopt::Std;

use strict;

use vars qw($opt_m $opt_c $opt_h);

getopts('m:c:h');

my ($srv_name,$srv_count,$back,$output,$help);

my $sr_count=`netstat -naputl |grep -c "$opt_m"`;

my %re;

   $re{ok}=0;

   $re{crit}=2;

& main();

sub main {

    get_args();

    check_result();

    warning();

}

sub get_args{

    $srv_name = $opt_m if $opt_m;

    $srv_count = $opt_c if $opt_c;

    &Usage() if (!defined($srv_name) || !defined($srv_count)); 

    }

sub check_result {

    if ($sr_count == $srv_count) {

        $back=$re{ok};

        $output="$srv_name service is ok";

    }else{

        $back=$re{crit};

        $output="$srv_name service is crit";

sub warning{

    print "$output\n";

    exit $back;

    }    

sub Usage {

    print << "END";

    ./check_service.pl -m <service_name> -c <service_counts> -h <help>

END

    exit 2;

##################################END##########################################

本地执行./check_srv.pl -m xl2tpd -c 2

xl2tpd_service is ok!

可是在监控端执行./check_nrpe -H hostip -c check_aa

就是不行，得到空值；

今天接着弄：

将日志打到一个文件中瞧瞧吧；

command[check_aa]=/usr/local/nagios/libexec/check_srv.pl -m xl2tpd -c 2  >> /tmp/output 2>&1

打开看看：

(Not all processes could be identified, non-owned process info

 will not be shown, you would have to be root to see it all.)

xl2tpd_service is crit;

发现是权限问题：

在被监控端；

vim /etc/sudoers

nagios   ALL=NOPASSWD:ALL (新增)

然后执行 ./check_nrpe -H hostip -c check_aa

发现OK了，哈哈，

那就到此为止吧

 本文转自 西索oO 51CTO博客，原文链接:http://blog.51cto.com/lansgg/1158257