NAGIOS脚本统计在线用户mongoDB
Nagios没有统计MongoDB数据库记录的相关脚本，就自已抄刀干起来了，还挺实用：#!/usr/bin/perl
#author:xiqing_lee
#Count hc online users
use MongoDB;
use MongoDB::Database;
use MongoDB::Connection;
use strict;
use warnings;
#ARGS judge
sub usage(){ # help
print"Usage:check_hcuser -h IP -w # -c #\nFor example:check_hcuser -h 192.168.66.11 -w 88 -c 222\n";
exit 2;
}
my $x = "";
my $warnning="0";
my $criting="0";
my $host="";
if ($#ARGV < 5){# args total judge
&usage;
exit;
}
while($#ARGV >= 0){
$x = shift @ARGV;
if ("$x" eq "-w") {
$warnning = shift @ARGV;
}
if ("$x" eq "-c") {
$criting = shift @ARGV;
}
if ("$x" eq "-h") {
$host = shift @ARGV;
}
}
if ("$warnning" > "$criting"){
&usage;
}
# MongoDB records NUM
my $connection = MongoDB::Connection->new(host => $host, port => 27017);
my $database = $connection->ossDev;
my $collection = $database->get_collection("T_Session");
my $countssp =$collection->count({ state => "ONLINE" });
#my $curcors = $collection->find();
my $msg = "initx";
my $status = "3";
if ("$countssp" >= "$criting"){
$msg = "CRITICAL";
$status = 2;
}
elsif("$countssp" >= "$warnning" ){
$msg = "WARNNING";
$status = 1;
}else{
$msg = "OK";
$status = 0;
}
print "$msg - Currentusers are $countssp |Users=$countssp;1500;2000\n";
exit $status;
页:
[1]