summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/check_rpc.pl
diff options
context:
space:
mode:
Diffstat (limited to 'plugins-scripts/check_rpc.pl')
-rwxr-xr-xplugins-scripts/check_rpc.pl18
1 files changed, 8 insertions, 10 deletions
diff --git a/plugins-scripts/check_rpc.pl b/plugins-scripts/check_rpc.pl
index 20c204de..d2701e95 100755
--- a/plugins-scripts/check_rpc.pl
+++ b/plugins-scripts/check_rpc.pl
@@ -15,10 +15,8 @@
15# 15#
16# initial version: 3 May 2000 by Truongchinh Nguyen and Karl DeBisschop 16# initial version: 3 May 2000 by Truongchinh Nguyen and Karl DeBisschop
17# Modified May 2002 Subhendu Ghosh - support for ePN and patches 17# Modified May 2002 Subhendu Ghosh - support for ePN and patches
18# current status: $Revision$
19# 18#
20# Copyright Notice: GPL 19# Copyright Notice: GPL
21# $Id$
22# 20#
23 21
24use strict; 22use strict;
@@ -38,13 +36,13 @@ sub print_help ();
38sub print_usage (); 36sub print_usage ();
39sub in ($$); 37sub in ($$);
40 38
41$ENV{'BASH_ENV'}=''; 39$ENV{'BASH_ENV'}='';
42$ENV{'ENV'}=''; 40$ENV{'ENV'}='';
43$ENV{'PATH'}=''; 41$ENV{'PATH'}='';
44$ENV{'LC_ALL'}='C'; 42$ENV{'LC_ALL'}='C';
45 43
46#Initialise protocol for each progname number 44#Initialise protocol for each progname number
47# 'u' for UDP, 't' for TCP 45# 'u' for UDP, 't' for TCP
48$proto[10003]='u'; 46$proto[10003]='u';
49$proto[10004]='u'; 47$proto[10004]='u';
50$proto[10007]='u'; 48$proto[10007]='u';
@@ -67,9 +65,9 @@ GetOptions(
67if ($opt_h) { print_help(); exit $ERRORS{'OK'}; } 65if ($opt_h) { print_help(); exit $ERRORS{'OK'}; }
68 66
69# -V means display version number 67# -V means display version number
70if ($opt_V) { 68if ($opt_V) {
71 print_revision($PROGNAME,'$Revision$ '); 69 print_revision($PROGNAME,'@NP_VERSION@');
72 exit $ERRORS{'OK'}; 70 exit $ERRORS{'OK'};
73} 71}
74 72
75# Hash containing all RPC program names and numbers 73# Hash containing all RPC program names and numbers
@@ -275,7 +273,7 @@ if (defined $opt_c ) {
275 }else{ 273 }else{
276 print "Version $vers is not an integer\n" if $verbose; 274 print "Version $vers is not an integer\n" if $verbose;
277 } 275 }
278 276
279 } 277 }
280}else{ 278}else{
281 get_rpcinfo(); 279 get_rpcinfo();
@@ -311,7 +309,7 @@ sub get_rpcinfo {
311 while ( $line = <CMD> ) { 309 while ( $line = <CMD> ) {
312 printf "$line " if $verbose; 310 printf "$line " if $verbose;
313 chomp $line; 311 chomp $line;
314 312
315 if ( $line =~ /program $prognum version ([0-9]*) ready and waiting/ ) { 313 if ( $line =~ /program $prognum version ([0-9]*) ready and waiting/ ) {
316 $response .= " version $1"; 314 $response .= " version $1";
317 $state = 'OK' unless $state ne 'UNKNOWN'; 315 $state = 'OK' unless $state ne 'UNKNOWN';
@@ -336,7 +334,7 @@ sub get_rpcinfo {
336 334
337 335
338sub print_help() { 336sub print_help() {
339 print_revision($PROGNAME,'$Revision$ '); 337 print_revision($PROGNAME,'@NP_VERSION@');
340 print "Copyright (c) 2002 Karl DeBisschop/Truongchinh Nguyen/Subhendu Ghosh\n"; 338 print "Copyright (c) 2002 Karl DeBisschop/Truongchinh Nguyen/Subhendu Ghosh\n";
341 print "\n"; 339 print "\n";
342 print "Check if a rpc service is registered and running using\n"; 340 print "Check if a rpc service is registered and running using\n";