溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
- #!/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。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
