summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/check_rpc.pl
diff options
context:
space:
mode:
authorSubhendu Ghosh <sghosh@users.sourceforge.net>2002-05-02 16:43:29 +0000
committerSubhendu Ghosh <sghosh@users.sourceforge.net>2002-05-02 16:43:29 +0000
commitbecc0f34e60500798bd15bf5af6e4b8c52707d0a (patch)
treec117e73085955568f57d4eb89f41640297796977 /plugins-scripts/check_rpc.pl
parentbbcaeb1db1666c606a3578d3d24f1618f8c9947c (diff)
downloadmonitoring-plugins-becc0f34e60500798bd15bf5af6e4b8c52707d0a.tar.gz
fix for embedded perl
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@21 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins-scripts/check_rpc.pl')
-rwxr-xr-xplugins-scripts/check_rpc.pl10
1 files changed, 3 insertions, 7 deletions
diff --git a/plugins-scripts/check_rpc.pl b/plugins-scripts/check_rpc.pl
index 51901ac0..2e25f414 100755
--- a/plugins-scripts/check_rpc.pl
+++ b/plugins-scripts/check_rpc.pl
@@ -18,15 +18,11 @@
18# 18#
19# Copyright Notice: GPL 19# Copyright Notice: GPL
20# 20#
21BEGIN { 21
22 if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
23 $runtimedir = $1;
24 $PROGNAME = $2;
25 }
26}
27 22
28use strict; 23use strict;
29use lib $main::runtimedir; 24use FindBin;
25use lib "$FindBin::Bin";
30use utils qw($TIMEOUT %ERRORS &print_revision &support); 26use utils qw($TIMEOUT %ERRORS &print_revision &support);
31use vars qw($PROGNAME); 27use vars qw($PROGNAME);
32my ($verbose,@proto,%prognum,$host,$response,$prognum,$port,$cmd); 28my ($verbose,@proto,%prognum,$host,$response,$prognum,$port,$cmd);