Linux 为什么不是';t/usr/local/bin/checked-in check_flexlm.pl?来源包括
尽管我有Linux 为什么不是';t/usr/local/bin/checked-in check_flexlm.pl?来源包括,linux,perl,nagios,nrpe,Linux,Perl,Nagios,Nrpe,尽管我有/usr/local/bin/lmstat但下面的脚本总是失败,因为找不到“lmstat” 有人知道为什么会这样吗 use strict; use Getopt::Long; use vars qw($opt_V $opt_h $opt_F $opt_t $verbose $PROGNAME); use FindBin; use lib "$FindBin::Bin"; use lib '/usr/lib64/nagios/plugins'; use utils qw(%ERRORS &
/usr/local/bin/lmstat
但下面的脚本总是失败,因为找不到“lmstat”
有人知道为什么会这样吗
use strict;
use Getopt::Long;
use vars qw($opt_V $opt_h $opt_F $opt_t $verbose $PROGNAME);
use FindBin;
use lib "$FindBin::Bin";
use lib '/usr/lib64/nagios/plugins';
use utils qw(%ERRORS &print_revision &support &usage);
$PROGNAME="check_flexlm";
sub print_help ();
sub print_usage ();
$ENV{'PATH'}='/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin';
$ENV{'BASH_ENV'}='';
$ENV{'ENV'}='';
Getopt::Long::Configure('bundling');
GetOptions
("V" => \$opt_V, "version" => \$opt_V,
"h" => \$opt_h, "help" => \$opt_h,
"v" => \$verbose, "verbose" => \$verbose,
"F=s" => \$opt_F, "filename=s" => \$opt_F,
"t=i" => \$opt_t, "timeout=i" => \$opt_t);
if ($opt_V) {
print_revision($PROGNAME,'2.2.1');
exit $ERRORS{'OK'};
}
unless (defined $opt_t) {
$opt_t = $utils::TIMEOUT ; # default timeout
}
if ($opt_h) {print_help(); exit $ERRORS{'OK'};}
unless (defined $opt_F) {
$opt_F = $ENV{'LM_LICENSE_FILE'};
unless (defined $opt_F) {
print "Missing license.dat file\n";
print_usage();
exit $ERRORS{'UNKNOWN'};
}
}
# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
print "Timeout: No Answer from Client\n";
exit $ERRORS{'UNKNOWN'};
};
alarm($opt_t);
my $lmstat = $utils::PATH_TO_LMSTAT ;
unless (-x $lmstat ) {
print "Cannot find \"lmstat\"\n";
exit $ERRORS{'UNKNOWN'};
}
永远不要以为你知道什么是东西。请尝试打印路径以验证它是否是您认为的路径:
unless (-x $utils::PATH_TO_LMSTAT ) {
print qq/Cannot find "lmstat" at <$utils::PATH_TO_LMSTAT>\n/;
exit $ERRORS{'UNKNOWN'};
}
的“安全编程技术”一章讨论了调用外部程序的程序的许多令人头痛的问题。utils是您自己的模块吗?因为在不知道
$utils::PATH\u TO\u LMSTAT
的情况下,我们无法提供帮助。-x“LMSTAT”
不会搜索您的路径。它将只检查当前目录中的文件lmstat
。要测试路径中名为lmstat
的可执行文件,请运行哪个lmstat
并检查退出代码。@mob No这是未修改的代码。我不知道那部分是做什么的。
GetOptions(
"V|version" => \$opt_V,
"h|help" => \$opt_h,
"v|verbose" => \$verbose,
"F|filename=s" => \$opt_F,
"t|timeout=i" => \$opt_t,
);