放在我的code库内了,http://farmerluo.googlecode.com/files/check_redis.pl

介绍下怎么安装:

脚本用到了perl的Redis库,需要先安装这个:
# perl -MCPAN -e shell
# install Redis

wget http://farmerluo.googlecode.com/files/check_redis.pl

cp check_redis.pl  /etc/nagios/command/

chown cacti.nagios check_redis.pl

在nagios内加入这个插件:
vi /etc/nagios/objects/command.cfg

# ‘check_redis’ command definition
define command{
command_name    check_redis
command_line    /etc/nagios/command/check_redis.pl -h $HOSTADDRESS$ $ARG1$
}

加入一个服务:
vi /etc/nagios/objects/linuxhost.cfg

define service{
use                             generic-service         ; Name of service template to use
host_name                       memcached.ha2,memcached.web2
service_description             redis
check_command                   check_redis
notifications_enabled           1
}

检查下nagios配置是否正解:
nagios -v  /etc/nagios/nagios.cfg

Nagios Core 3.2.1
Copyright (c) 2009-2010 Nagios Core Development Team and Community Contributors
Copyright (c) 1999-2009 Ethan Galstad
Last Modified: 03-09-2010
License: GPL

Website: http://www.nagios.org
Reading configuration data…
Read main config file okay…
Processing object config file ‘/etc/nagios/objects/commands.cfg’…
Processing object config file ‘/etc/nagios/objects/contacts.cfg’…
Processing object config file ‘/etc/nagios/objects/timeperiods.cfg’…
Processing object config file ‘/etc/nagios/objects/templates.cfg’…
Processing object config file ‘/etc/nagios/objects/linuxhosts.cfg’…
Processing object config file ‘/etc/nagios/objects/windows.cfg’…
Read object config files okay…

Running pre-flight check on configuration data…

Checking services…
Checked 32 services.
Checking hosts…
Checked 14 hosts.
Checking host groups…
Checked 4 host groups.
Checking service groups…
Checked 0 service groups.
Checking contacts…
Checked 3 contacts.
Checking contact groups…
Checked 2 contact groups.
Checking service escalations…
Checked 0 service escalations.
Checking service dependencies…
Checked 0 service dependencies.
Checking host escalations…
Checked 0 host escalations.
Checking host dependencies…
Checked 0 host dependencies.
Checking commands…
Checked 29 commands.
Checking time periods…
Checked 5 time periods.
Checking for circular paths between hosts…
Checking for circular host and service dependencies…
Checking global event handlers…
Checking obsessive compulsive processor commands…
Checking misc settings…

Total Warnings: 0
Total Errors:   0

Things look okay – No serious problems were detected during the pre-flight check

没问题,我们重新载入配置。

service nagios reload

再介绍一下用perl写nagios插件需要注意的地方:

  1. 总是要生成一些输出内容;
  2. 加上引用’use utils’并引用些通用模块来输出($TIMEOUT %ERRORS &print_revision &支持等);
  3. 总 是知道一些Perl插件的标准习惯,如:
    1. 退出时总是exit带 着$ERRORS{CRITICAL}、$ERRORS{OK}等;
    2. 使用getopt函数来处理命令行;
    3. 程序处理超 时问题;
    4. 当没有命令参数时要给出可调用print_usage;
    5. 使用标准的命令行选项开关(象-H ‘host’、-V ‘version’等)。

check_redisl.pl代码:

#!/usr/bin/perl

# nagios: -epn

################################################################################
# check_redis – Nagios Plugin for Redis checks.
#
# @author  farmer.luo at gmail.com
# @date    2012-01-15
# @license GPL v2
#
# check_nagios.pl -h <redis host> -p <redis port> -w <warning time> -c <critica time>
#
# Run the script need:
#
# perl -MCPAN -e shell
# install Redis
#
################################################################################

use strict;
use warnings;
use Redis;
use File::Basename;
use utils qw($TIMEOUT %ERRORS &print_revision &support);
use Time::Local;
use vars qw($opt_h); # Redis

                              use vars qw($opt_p); # Redis

                                                            use vars qw($opt_w); # ʱuse vars qw($opt_c); # ʱuse Getopt::Std;

$opt_h = "";
$opt_p = "6379";
$opt_w = 5;
$opt_c = 10;
my $r = "";
my $role = "master";

getopt(‘hpwcd’);

if ( $opt_h eq "" ) {
        help();
        exit(1);
}

my $start = time();

redis_connect();

# print $@;
if ( $@ ) {
        print "UNKNOWN – cann’t connect to redis server:" . $opt_h . ".";
        exit $ERRORS{"UNKNOWN"};
}

#sleep(3);
my $stop = time();

my $run = $stop – $start;

if ( $run > $opt_c ) {

        print "CRITICAL – redis server(" . $opt_h . ") run for " . $run . " seconds!";
        exit $ERRORS{"CRITICAL"};

} elsif ( $run > $opt_w ) {

        print "WARNING – redis server(" . $opt_h . ") run for " . $run . " seconds!";
        exit $ERRORS{"WARNING"};

} else {

        redis_info();

#       print "role = " . $role;

        if ( $role eq "master" ){

                if ( redis_set() ) {
                       print "WARNING – redis server:" . $opt_h . ",set key error.";
                       exit $ERRORS{"WARNING"};
                }

                if ( redis_get() ) {
                       print "WARNING – redis server:" . $opt_h . ",get key error.";
                       exit $ERRORS{"WARNING"};
                }

                if ( redis_del() ) {
                       print "WARNING – redis server:" . $opt_h . ",del key error.";
                       exit $ERRORS{"WARNING"};
                }

        }

        redis_quit();
        exit $ERRORS{"OK"};

}

sub help{

        die "Usage:n" , basename( $0 ) ,  " -h hostname -p port -w warning time -c critical time -d down timen"

}

sub redis_connect{

        my $redis_hp = $opt_h . ":" . $opt_p;

        eval{ $r = Redis->new( server => $redis_hp ); };

}

sub redis_set{

        $r->set( redis_nagios_key => ‘test’ ) || return 1;

        return 0;
}

sub redis_get{

        my $value = $r->get( ‘redis_nagios_key’ ) || return 1;

        return 0;
}

sub redis_del{

        $r->del( ‘redis_nagios_key’ ) || return 1;

        return 0;
}

sub redis_info{

        my $info_hash = $r->info;

        print "OK – redis server(" . $opt_h . ") info:";

        while ( my ($key, $value) = each(%$info_hash) ) {
            print "$key => $value, ";
        }

        my %info = %$info_hash;

        $role = $info{"role"};
}

sub redis_quit{

        $r->quit();

}

参考:
http://nagios-cn.sourceforge.net/nagios-cn/develope.html