Perl自定义开发Nagios检测磁盘所有分区使用率插件(NRPE端使用)

前端之家收集整理的这篇文章主要介绍了Perl自定义开发Nagios检测磁盘所有分区使用率插件(NRPE端使用)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

功能说明:

脚本已经用在实践环境中,放到nrpe远程被监控端,用来实时监控远程主机所有分区,动态增加的分区也会自动加到监控范围。

当多个分区同时出现Critical和Warning状态时,将在Nagios中优先显示Critical状态,同时输出所有分区使用情况报告。

监控内容包括

分区总size;

可用分区size;

已经使用的使用率%;

开发语言:perl

使用说明:

在nrpe.cfg文件添加下面一行

command[check_disk]=/opt/nrpe/libexec/lionel_disk.pl -w 90 -c 95

保存,重启nrpe使服务生效。

-w参数表示warning的阀值,90表示分区使用率达到90%时警告;-c参数表示critical的阀值,95表示使用率达到95%时报警。举例如下:

# ./lionel_disk.pl -w 90 -c 95

/dev/sda2 WARNING: Total is 9.7G MB,FreeDisk is 5.5G,UseDisk% is 42%
/dev/sda5 WARNING: Total is 8.7G MB,FreeDisk is 8.1G,UseDisk% is 2%
/dev/sda1 WARNING: Total is 99M MB,FreeDisk is 82M,UseDisk% is 13%
/dev/sdb1 CRITICAL: Total is 89G MB,FreeDisk is 33G,UseDisk% is 62%

其他细节:本脚本提供检测参数的功能,参数给出错误提示Usage,warning的参数值一定要比 critical的值小,因为已用的使用率越多报警级别越高。

脚本内容如下,供大家参考:

脚本名称是【lionel_disk.pl 】

#!/usr/bin/perl # author:shenxiaoran # date:2014-1-14 use strict; use lib "/opt/nrpe/libexec"; use utils qw(%ERRORS &print_revision &support &usage); my ($opt_w,$opt_c) = ($ARGV[1],$ARGV[3]); my $name_partation; my $total_disk; my $use_disk; my $free_disk; my $rate_use_disk; my $status = 'OK'; my $flag = 0; if ( !defined $ARGV[1] or !defined $ARGV[3] ) {         print "Usage: $0 -w num -c num \n";         print "Example: lionel_disk.pl -w 90 -c 95 \n"; } else {         check_disk(); } sub check_disk() { if ( $opt_w > $opt_c ) {         print "Error: -w num > -c num \n";         print "-w: means already use 90% \n";         print "-c: means already use 95% \n";         print "Usage: $0 -w num -c num \n";         print "Example: lionel_disk.pl -w 90 -c 95 \n";         exit; } else {         my @data ;         system "df -h > /tmp/df.tmp";         open (FILE,"</tmp/df.tmp") || die ("Can't open /tmp/df.tmp $!");         my $i = 0;         while (<FILE>) {                 if (/^\/dev\/*./) {                         $data[$i] = $_;                         $i++;                 }         }         close FILE;         foreach (@data) {                 my @partation = split(/\s+/,$_);                 $name_partation = $partation[0];                 $total_disk = $partation[1];                 $use_disk = $partation[2];                 $free_disk = $partation[3];                 $rate_use_disk = abs($partation[4]);                 if ( $rate_use_disk >= $opt_c ) {                         $status = 'CRITICAL';                 }                 elsif (( $opt_w <= $rate_use_disk ) and ( $rate_use_disk < $opt_c )) {                         $status = 'WARNING';                 }                 print "$name_partation $status: Total is $total_disk MB,FreeDisk is $free_disk,UseDisk% is $rate_use_disk%\n";                 if ($status =~ 'CRITICAL') {                         $flag = 1                 }         }         if ( $flag == 1 ) {                 exit "$ERRORS{CRITICAL}"         }         else {                 exit "$ERRORS{$status}";         } } } 脚本结束

猜你在找的Perl相关文章