- #!/usr/bin/perl
- use strict;
- use Getopt::Long;
- use LWP::Simple;
- use lib "/usr/lib64/nagios/plugins";
- use utils qw ($TIMEOUT %ERRORS &print_revision &support);
- my $HOSTADDRESS;
- Getopt::Long::GetOptions(
- 'h=s' => \$HOSTADDRESS
- );
- if (defined ($HOSTADDRESS)){
- my $content = get("http://$HOSTADDRESS:8080/health.html");
- if ( $content ne '' ){
- print "sling is running now!\n";
- exit $ERRORS{'OK'};
- }else{
- print "sling is not running,health page not found!!\n";
- exit $ERRORS{'UNKNOWN'};
- }
- }
根据查看的nagios官网,如果用perl写监控脚本,必须使用strict模块,定义的所有变量都必须使用my声明,Getopt::Long模块可以为perl脚本传参,lib是指定nagios里utils.pm的位置,引用utils模块,nagios自带的%ERRORS可以为我们返回状态code。
北海网站建设公司成都创新互联,北海网站设计制作,有大型网站制作公司丰富经验。已为北海上千多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱,请找那个售后服务好的北海做网站的公司定做!