

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: check_rpc</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>#!/usr/bin/perl -w
#
# check_rpc plugin for nagios
#
# usage:
#    check_rpc host service
#
# Check if an rpc serice is registered and running
# using rpcinfo - $proto $host $prognum 2&gt;&amp;1 |&quot;;
#
# Use these hosts.cfg entries as examples
#
# command[check_nfs]=/some/path/libexec/check_rpc $HOSTADDRESS$ nfs
# service[check_nfs]=NFS;24x7;3;5;5;unix-admin;60;24x7;1;1;1;;check_rpc
#
# initial version: 3 May 2000 by Truongchinh Nguyen and Karl DeBisschop
# Modified May 2002 Subhendu Ghosh - support for ePN and patches
#
# Copyright Notice: GPL
#

use strict;
use FindBin;
use lib &quot;$FindBin::Bin&quot;;
use lib &#039;/usr/lib64/nagios/plugins&#039;;
use utils qw($TIMEOUT %ERRORS &amp;print_revision &amp;support);
use vars qw($PROGNAME);
my ($verbose,@proto,%prognum,$host,$response,$prognum,$port,$cmd,$progver,$state);
my ($array_ref,$test,$element,@progkeys,$proto,$a,$b);
my ($opt_V,$opt_h,$opt_C,$opt_p,$opt_H,$opt_c,$opt_u,$opt_t);
my ($line, @progvers, $response2,$response3);
$opt_V = $opt_h = $opt_C = $opt_p = $opt_H =  $opt_u = $opt_t =&#039;&#039;;
$state = &#039;UNKNOWN&#039;;
$progver = $response=$response2= $response3 =&#039;&#039;;

$PROGNAME = &quot;check_rpc&quot;;
sub print_help ();
sub print_usage ();
sub in ($$);

$ENV{&#039;PATH&#039;}=&#039;/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin&#039;;
$ENV{&#039;BASH_ENV&#039;}=&#039;&#039;; 
$ENV{&#039;ENV&#039;}=&#039;&#039;;
$ENV{&#039;LC_ALL&#039;}=&#039;C&#039;;

#Initialise protocol for each progname number
# &#039;u&#039; for UDP, &#039;t&#039; for TCP
$proto[10003]=&#039;u&#039;;
$proto[10004]=&#039;u&#039;;
$proto[10007]=&#039;u&#039;;

use Getopt::Long;
Getopt::Long::Configure(&#039;bundling&#039;);
GetOptions(
	&quot;V&quot;   =&gt; \$opt_V,   &quot;version&quot;    =&gt; \$opt_V,
	&quot;h&quot;   =&gt; \$opt_h,   &quot;help&quot;       =&gt; \$opt_h,
	&quot;C=s&quot; =&gt; \$opt_C,   &quot;command=s&quot;  =&gt; \$opt_C,
	&quot;p=i&quot; =&gt; \$opt_p,   &quot;port=i&quot;     =&gt; \$opt_p,
 	&quot;H=s&quot; =&gt; \$opt_H,   &quot;hostname=s&quot; =&gt; \$opt_H,
 	&quot;c=s&quot; =&gt; \$opt_c,   &quot;progver=s&quot;  =&gt; \$opt_c,
 	&quot;v+&quot;  =&gt; \$verbose, &quot;verbose+&quot;   =&gt; \$verbose,
 	&quot;u&quot;   =&gt; \$opt_u,   &quot;udp&quot;        =&gt; \$opt_u,
 	&quot;t&quot;   =&gt; \$opt_t,   &quot;tcp&quot;        =&gt; \$opt_t
);

# -h means display verbose help screen
if ($opt_h) { print_help(); exit $ERRORS{&#039;OK&#039;}; }

# -V means display version number
if ($opt_V) {
	print_revision($PROGNAME,&#039;2.4.9&#039;);
	exit $ERRORS{&#039;OK&#039;};
}

# Hash containing all RPC program names and numbers
# Add to the hash if support for new RPC program is required

%prognum  = (
	&quot;portmapper&quot;  =&gt; 100000 ,
	&quot;portmap&quot;  =&gt; 100000 ,
	&quot;sunrpc&quot;  =&gt; 100000 ,
	&quot;rpcbind&quot;  =&gt; 100000 ,
	&quot;rstatd&quot;  =&gt; 100001 ,
	&quot;rstat&quot;  =&gt; 100001 ,
	&quot;rup&quot;  =&gt; 100001 ,
	&quot;perfmeter&quot;  =&gt; 100001 ,
	&quot;rstat_svc&quot;  =&gt; 100001 ,
	&quot;rusersd&quot;  =&gt; 100002 ,
	&quot;rusers&quot;  =&gt; 100002 ,
	&quot;nfs&quot;  =&gt; 100003 ,
	&quot;nfsprog&quot;  =&gt; 100003 ,
	&quot;ypserv&quot;  =&gt; 100004 ,
	&quot;ypprog&quot;  =&gt; 100004 ,
	&quot;mountd&quot;  =&gt; 100005 ,
	&quot;mount&quot;  =&gt; 100005 ,
	&quot;showmount&quot;  =&gt; 100005 ,
	&quot;ypbind&quot;  =&gt; 100007 ,
	&quot;walld&quot;  =&gt; 100008 ,
	&quot;rwall&quot;  =&gt; 100008 ,
	&quot;shutdown&quot;  =&gt; 100008 ,
	&quot;yppasswdd&quot;  =&gt; 100009 ,
	&quot;yppasswd&quot;  =&gt; 100009 ,
	&quot;etherstatd&quot;  =&gt; 100010 ,
	&quot;etherstat&quot;  =&gt; 100010 ,
	&quot;rquotad&quot;  =&gt; 100011 ,
	&quot;rquotaprog&quot;  =&gt; 100011 ,
	&quot;quota&quot;  =&gt; 100011 ,
	&quot;rquota&quot;  =&gt; 100011 ,
	&quot;sprayd&quot;  =&gt; 100012 ,
	&quot;spray&quot;  =&gt; 100012 ,
	&quot;3270_mapper&quot;  =&gt; 100013 ,
	&quot;rje_mapper&quot;  =&gt; 100014 ,
	&quot;selection_svc&quot;  =&gt; 100015 ,
	&quot;selnsvc&quot;  =&gt; 100015 ,
	&quot;database_svc&quot;  =&gt; 100016 ,
	&quot;rexd&quot;  =&gt; 100017 ,
	&quot;rex&quot;  =&gt; 100017 ,
	&quot;alis&quot;  =&gt; 100018 ,
	&quot;sched&quot;  =&gt; 100019 ,
	&quot;llockmgr&quot;  =&gt; 100020 ,
	&quot;nlockmgr&quot;  =&gt; 100021 ,
	&quot;x25_inr&quot;  =&gt; 100022 ,
	&quot;statmon&quot;  =&gt; 100023 ,
	&quot;status&quot;  =&gt; 100024 ,
	&quot;bootparam&quot;  =&gt; 100026 ,
	&quot;ypupdated&quot;  =&gt; 100028 ,
	&quot;ypupdate&quot;  =&gt; 100028 ,
	&quot;keyserv&quot;  =&gt; 100029 ,
	&quot;keyserver&quot;  =&gt; 100029 ,
	&quot;sunlink_mapper&quot;  =&gt; 100033 ,
	&quot;tfsd&quot;  =&gt; 100037 ,
	&quot;nsed&quot;  =&gt; 100038 ,
	&quot;nsemntd&quot;  =&gt; 100039 ,
	&quot;showfhd&quot;  =&gt; 100043 ,
	&quot;showfh&quot;  =&gt; 100043 ,
	&quot;ioadmd&quot;  =&gt; 100055 ,
	&quot;rpc.ioadmd&quot;  =&gt; 100055 ,
	&quot;NETlicense&quot;  =&gt; 100062 ,
	&quot;sunisamd&quot;  =&gt; 100065 ,
	&quot;debug_svc&quot;  =&gt; 100066 ,
	&quot;dbsrv&quot;  =&gt; 100066 ,
	&quot;ypxfrd&quot;  =&gt; 100069 ,
	&quot;rpc.ypxfrd&quot;  =&gt; 100069 ,
	&quot;bugtraqd&quot;  =&gt; 100071 ,
	&quot;kerbd&quot;  =&gt; 100078 ,
	&quot;event&quot;  =&gt; 100101 ,
	&quot;na.event&quot;  =&gt; 100101 ,
	&quot;logger&quot;  =&gt; 100102 ,
	&quot;na.logger&quot;  =&gt; 100102 ,
	&quot;sync&quot;  =&gt; 100104 ,
	&quot;na.sync&quot;  =&gt; 100104 ,
	&quot;hostperf&quot;  =&gt; 100107 ,
	&quot;na.hostperf&quot;  =&gt; 100107 ,
	&quot;activity&quot;  =&gt; 100109 ,
	&quot;na.activity&quot;  =&gt; 100109 ,
	&quot;hostmem&quot;  =&gt; 100112 ,
	&quot;na.hostmem&quot;  =&gt; 100112 ,
	&quot;sample&quot;  =&gt; 100113 ,
	&quot;na.sample&quot;  =&gt; 100113 ,
	&quot;x25&quot;  =&gt; 100114 ,
	&quot;na.x25&quot;  =&gt; 100114 ,
	&quot;ping&quot;  =&gt; 100115 ,
	&quot;na.ping&quot;  =&gt; 100115 ,
	&quot;rpcnfs&quot;  =&gt; 100116 ,
	&quot;na.rpcnfs&quot;  =&gt; 100116 ,
	&quot;hostif&quot;  =&gt; 100117 ,
	&quot;na.hostif&quot;  =&gt; 100117 ,
	&quot;etherif&quot;  =&gt; 100118 ,
	&quot;na.etherif&quot;  =&gt; 100118 ,
	&quot;iproutes&quot;  =&gt; 100120 ,
	&quot;na.iproutes&quot;  =&gt; 100120 ,
	&quot;layers&quot;  =&gt; 100121 ,
	&quot;na.layers&quot;  =&gt; 100121 ,
	&quot;snmp&quot;  =&gt; 100122 ,
	&quot;na.snmp&quot;  =&gt; 100122 ,
	&quot;snmp-cmc&quot;  =&gt; 100122 ,
	&quot;snmp-synoptics&quot;  =&gt; 100122 ,
	&quot;snmp-unisys&quot;  =&gt; 100122 ,
	&quot;snmp-utk&quot;  =&gt; 100122 ,
	&quot;traffic&quot;  =&gt; 100123 ,
	&quot;na.traffic&quot;  =&gt; 100123 ,
	&quot;nfs_acl&quot;  =&gt; 100227 ,
	&quot;sadmind&quot;  =&gt; 100232 ,
	&quot;nisd&quot;  =&gt; 100300 ,
	&quot;rpc.nisd&quot;  =&gt; 100300 ,
	&quot;nispasswd&quot;  =&gt; 100303 ,
	&quot;rpc.nispasswdd&quot;  =&gt; 100303 ,
	&quot;ufsd&quot;  =&gt; 100233 ,
	&quot;ufsd&quot;  =&gt; 100233 ,
	&quot;pcnfsd&quot;  =&gt; 150001 ,
	&quot;pcnfs&quot;  =&gt; 150001 ,
	&quot;amd&quot;  =&gt; 300019 ,
	&quot;amq&quot;  =&gt; 300019 ,
	&quot;bwnfsd&quot;  =&gt; 545580417 ,
	&quot;fypxfrd&quot;  =&gt; 600100069 ,
	&quot;freebsd-ypxfrd&quot;  =&gt; 600100069 ,
);

# -v means verbose, -v-v means verbose twice = print above hash
if (defined $verbose &amp;&amp; ($verbose &gt; 1) ){
	my $key;
	print &quot;Supported programs:\n&quot;;
	print &quot;    name\t=&gt;\tnumber\n&quot;;
	print &quot; ===============================\n&quot;;
	foreach $key (sort keys %prognum) {
		print &quot;   $key \t=&gt;\t$prognum{$key} \n&quot;;
	}
	print &quot;\n\n&quot;;
	print_usage();
	exit $ERRORS{&#039;OK&#039;};
}

# -H means host name
unless ($opt_H) { print_usage(); exit $ERRORS{&#039;UNKNOWN&#039;}; }

if (! utils::is_hostname($opt_H)){
	print &quot;$opt_H is not a valid host name\n&quot;;
	print_usage();
	exit $ERRORS{&quot;UNKNOWN&quot;};
}else{
	$host = $opt_H;
}

if ($opt_t &amp;&amp; $opt_u) {
	print &quot;Cannot define tcp AND udp\n&quot;;
	print_usage();
	exit $ERRORS{&#039;UNKNOWN&#039;};
}


# -C means command name or number
$opt_C = shift unless ($opt_C);
unless ($opt_C) { print_usage(); exit -1; }
@progkeys = keys %prognum;
if ($opt_C =~ m/^([0-9]+)$/){
#    $response = &quot;RPC ok: program $opt_C (version &quot;;
    $prognum = $1;
} elsif ( in( \@progkeys, $opt_C)) {
#    $response = &quot;RPC ok: $opt_C (version &quot;;
    $prognum = $prognum{$opt_C};
} else {
    print &quot;Program $opt_C is not defined\n&quot;;
    exit $ERRORS{&#039;UNKNOWN&#039;};
}

# -p means port number
if($opt_p =~ /^([0-9]+)$/){
    $port = &quot;-n $1&quot;;
} else {
    $port = &quot;&quot;;
}

$proto = &#039;u&#039;;
$proto = $proto[$prognum] if ($proto[$prognum]);
$proto = &#039;t&#039; if ($opt_t);
$proto = &#039;u&#039; if ($opt_u);


# Just in case of problems, let&#039;s not hang Nagios
$SIG{&#039;ALRM&#039;} = sub {
        print (&quot;ERROR: No response from RPC server (alarm)\n&quot;);
        exit $ERRORS{&quot;UNKNOWN&quot;};
};
alarm($TIMEOUT);

# -c is progver  - if we need to check multiple specified versions.
if (defined $opt_c ) {
	my $vers;
	@progvers = split(/,/ ,$opt_c );
	foreach $vers (sort @progvers) {
		if($vers =~ /^([0-9]+)$/){
			$progver = &quot;$1&quot;;
			print &quot;Checking $opt_C version $progver proto $proto\n&quot; if $verbose;
			get_rpcinfo();
		}else{
			print &quot;Version $vers is not an integer\n&quot; if $verbose;
		}

	}
}else{
	get_rpcinfo();
}


## translate proto for output
if ($proto eq &quot;u&quot; ){
	$proto = &quot;udp&quot;;
}else{
	$proto = &quot;tcp&quot;;
}

if ($state eq &#039;OK&#039;) {
	print &quot;$state: RPC program $opt_C&quot;.$response.&quot; $proto running\n&quot;;
}else{
	if($response){
		print &quot;$state: RPC program $opt_C&quot;.$response2.&quot; $proto is not running,&quot;.$response.&quot; $proto is running\n&quot;;
	}else{
		print &quot;$state: RPC program $opt_C $response2 $proto is not running\n&quot;;
	}
}
exit $ERRORS{$state};


########  Subroutines ==========================

sub get_rpcinfo {
	$cmd = &quot;$utils::PATH_TO_RPCINFO $port -&quot; . &quot;$proto $host $prognum $progver 2&gt;&amp;1 |&quot;;
	print &quot;$cmd\n&quot; if ($verbose);
	open CMD, $cmd or die &quot;Can&#039;t fork for rpcinfo: $!\n&quot; ;

	while ( $line = &lt;CMD&gt; ) {
		printf &quot;$line &quot; if $verbose;
		chomp $line;

    	if ( $line =~ /program $prognum version ([0-9]*) ready and waiting/ ) {
			$response .= &quot; version $1&quot;;
			$state = &#039;OK&#039; unless $state ne &#039;UNKNOWN&#039;;
			print &quot;1:$response \n&quot; if $verbose;
    	}

		if ( $line =~ /program $prognum version ([0-9]*) is not available/ ) {
			$response2 .= &quot; version $1&quot;;
			$state = &#039;CRITICAL&#039;;
			print &quot;2:$response2 \n&quot; if $verbose;
		}
		if ( $line =~ /program $prognum is not available/ ) {
			$response3 = &quot;&quot;;
			$response3 = &quot;tcp&quot; if $opt_t;
			$response3 = &quot;udp&quot; if $opt_u;
			$state = &#039;CRITICAL&#039;;
			print &quot;3:$response3 \n&quot; if $verbose;
		}
	}
	close CMD;
}


sub print_help() {
	print_revision($PROGNAME,&#039;2.4.9&#039;);
	print &quot;Copyright (c) 2002 Karl DeBisschop/Truongchinh Nguyen/Subhendu Ghosh\n&quot;;
	print &quot;\n&quot;;
	print &quot;Check if a rpc service is registered and running using\n&quot;;
	print &quot;      rpcinfo -H host -C rpc_command \n&quot;;
	print &quot;\n&quot;;
	print_usage();
	print &quot;\n&quot;;
	print &quot;  &lt;host&gt;          The server providing the rpc service\n&quot;;
	print &quot;  &lt;rpc_command&gt;   The program name (or number).\n&quot;;
	print &quot;  &lt;program_version&gt; The version you want to check for (one or more)\n&quot;;
	print &quot;                    Should prevent checks of unknown versions being syslogged\n&quot;;
	print &quot;                    e.g. 2,3,6 to check v2, v3, and v6\n&quot;;
	print &quot;  [-u | -t]       Test UDP or TCP\n&quot;;
	print &quot;  [-v]            Verbose \n&quot;;
	print &quot;  [-v -v]         Verbose - will print supported programs and numbers \n&quot;;
	print &quot;\n&quot;;
	support();
}

sub print_usage () {
	print &quot;Usage: \n&quot;;
	print &quot; $PROGNAME -H host -C rpc_command [-p port] [-c program_version] [-u|-t] [-v]\n&quot;;
	print &quot; $PROGNAME [-h | --help]\n&quot;;
	print &quot; $PROGNAME [-V | --version]\n&quot;;
}

sub in ($$) {
	$array_ref = shift;
	$test = shift;

	while ( $element = shift @{$array_ref} ) {
		if ($test eq $element) {
	    return 1;
		}
	}
	return 0;
}

</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/lib64/nagios/plugins/check_rpc'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Flib64%2Fnagios%2Fplugins' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>