Gecko [ goons4good.org ]

Name	Size	Permission	Date
eventhandlers	[ DIR ]	drwxr-xr-x	2024-03-10 06:52
a2_csf_modsecsync.mvps.mdedi	1.27 KB	-rwxr-xr-x	2025-09-10 09:31
a2_customerview.sh.shared	1.21 KB	-rwxr-xr-x	2025-09-10 09:31
a2_nf_conntrack_count.sh.all	977 B	-rwxr-xr-x	2025-09-10 09:31
a2_postgresql-monitor.shared	1.23 KB	-rwxr-xr-x	2025-09-10 09:31
a2_ram.shared.mdedi.bmi	611 B	-rwxr-xr-x	2025-09-10 09:31
a2_sssd_service_check.sh.all	1.4 KB	-rwxr-xr-x	2025-09-10 09:31
a2_system-updates.all	2.18 KB	-rwxr-xr-x	2025-09-10 09:31
a2_temperature_check.shared.bmi	3.17 KB	-rwxr-xr-x	2025-09-10 09:31
a2_user_mem.shared	1.13 KB	-rwxr-xr-x	2025-09-10 09:31
a2_yum_processes.shared	835 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_backup_network	844 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_backups	2.64 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_cagefs.shared.mvps.mdedi	762 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_cagefs_503_errors	2.96 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_cpdavd_cpu.sh	701 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_cpu_throttle.shared	1.61 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_dbgov.shared	1.23 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_dedi_nvme.mdedi	894 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_devnull-perms.shared	161 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_dimm.shared	1.49 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_disk.sh	2.05 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_dmi.sh.all	2.38 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_dnsdist_cache.sh	298 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_dnsdist_health.sh	270 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_dnsdist_pools.sh	414 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_dnsdist_proc.sh	210 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_dovecot	191 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_extra_ips.shared	854 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_fsstate.sh.all	2.28 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_fw.sh.internal	2.11 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_fw.sh.shared	1.04 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_grub.sh.all	1.22 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_httpdconf.shared	1.16 KB	-rwxr-xr-x	2025-04-15 08:48
check_a2_ifspeed.shared	784 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_imap_auth	1.2 KB	-rwxr-xr-x	2025-02-19 06:03
check_a2_imunify_service	910 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_ipaliases.shared	443 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_ipastatus.sh	2.16 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_ipmi_ip.sh.shared	565 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_jbk_client_limits.sh	1.13 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_jetbackup.sh	12.08 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_largelogs.shared	966 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_le_certs.sh.saltmaster1	1.02 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_load.php	618 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_long_mysql_queries	1.22 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_mailqueue.mvps.mdedi	1.26 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_memlimits-on.shared	458 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_mod-passenger.shared	516 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_monitor-randomize_sqlroot_password_cron.shared.mvps.mdedi	322 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_mysql-monitor.shared.mvps.mdedi	2.62 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_mysql-replication.sh	1.33 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_mysql_tmp_size	242 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_olderdrive_health.all	2.25 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_omni_mysql_backup.sh	1.15 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_omni_pxe_https_check.sh	1.27 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_omni_saltmaster1_authcheck.sh	2.76 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_omni_website.sh	1.01 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_outbound_nat.sh	436 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_packets.mvps	1.73 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_pdns	462 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_php_versions.shared	3.04 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_redis_opcache.shared	1.39 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_salt_minion_service	196 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_salt_running.all	1.83 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_saltmaster_api.sh	1.13 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_smart.py.all	15.54 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_softy_version.sh.shared.mvps.mdedi	1.09 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_vps_memory.sh	411 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_vz7-ikvm_backup.sh	1.2 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_whm_ssl	874 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_whmcs_db_mysql-replication.sh	2.19 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_whmcs_nginx_connections.sh	745 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_whmcs_phpfpm_status.sh	1.6 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_whmcs_th_network.sh	773 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_whmcs_virtualizor.sh	534 B	-rwxr-xr-x	2025-09-10 09:31
check_a2_xen_guest_vm.sh.flexdedi	3.11 KB	-rwxr-xr-x	2025-09-10 09:31
check_a2_zpool.sh	1.31 KB	-rwxr-xr-x	2025-09-10 09:31
check_aad_ldaps	2.09 KB	-rwxr-xr-x	2025-11-03 05:31
check_apache_status.pl	6.09 KB	-rwxr-xr-x	2025-09-10 09:31
check_backup_zpool	17.68 KB	-rwxr-xr-x	2025-09-10 09:31
check_backuply.py	5.77 KB	-rwxr-xr-x	2025-09-10 09:31
check_backups.php	576 B	-rwxr-xr-x	2025-09-10 09:31
check_breeze	2.29 KB	-rwxr-xr-x	2024-04-11 07:27
check_by_ssh	61.16 KB	-rwxr-xr-x	2024-04-11 07:27
check_clamd	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_cluster	40.35 KB	-rwxr-xr-x	2024-04-11 07:27
check_cpu	467 B	-rwxr-xr-x	2025-09-10 09:31
check_cpu_interrupts	353 B	-rwxr-xr-x	2025-09-10 09:31
check_cpu_steal	313 B	-rwxr-xr-x	2025-09-10 09:31
check_crond	227 B	-rwxr-xr-x	2025-09-10 09:31
check_csf	535 B	-rwxr-xr-x	2025-09-10 09:31
check_dhcp	56.75 KB	-rwsr-x---	2024-04-11 07:27
check_dig	56.83 KB	-rwxr-xr-x	2024-04-11 07:27
check_disk	86.26 KB	-rwxr-xr-x	2024-04-11 07:27
check_disk_smb	9.9 KB	-rwxr-xr-x	2024-04-11 07:27
check_dns	249 B	-rwxr-xr-x	2025-09-10 09:31
check_dummy	31.76 KB	-rwxr-xr-x	2024-04-11 07:27
check_elastic	10.49 KB	-rwxr-xr-x	2025-09-10 09:31
check_elasticsearch	335 B	-rwxr-xr-x	2025-09-10 09:31
check_enhance_backup	495 B	-rwxr-xr-x	2025-09-10 09:31
check_exim	184 B	-rwxr-xr-x	2025-09-10 09:31
check_exim_spam.sh	3.44 KB	-rwxr-xr-x	2025-09-10 09:31
check_eximqueue.sh	1.11 KB	-rwxr-xr-x	2025-09-10 09:31
check_file_age	4.95 KB	-rwxr-xr-x	2024-04-11 07:27
check_flexlm	6.35 KB	-rwxr-xr-x	2024-04-11 07:27
check_fping	56.76 KB	-rwsr-x---	2024-04-11 07:27
check_ftp	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_ftpd	199 B	-rwxr-xr-x	2025-09-10 09:31
check_game	44.5 KB	-rwxr-xr-x	2024-04-11 07:27
check_hpjd	52.5 KB	-rwxr-xr-x	2024-04-11 07:27
check_http	106.2 KB	-rwxr-xr-x	2024-04-11 07:27
check_icmp	68.39 KB	-rwsr-x---	2024-04-11 07:27
check_ide_smart	44.57 KB	-rwsr-x---	2024-04-11 07:27
check_imap	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_iowait	587 B	-rwxr-xr-x	2025-09-10 09:31
check_ipaliases.py	2.14 KB	-rwxr-xr-x	2025-09-10 09:31
check_ipmi_sensor	39.45 KB	-rwxr-xr-x	2025-09-10 09:31
check_ircd	6.82 KB	-rwxr-xr-x	2024-04-11 07:27
check_jabber	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_jetbackup.py	12.8 KB	-rwxr-xr-x	2025-09-10 09:31
check_jetbackup_alerts	5.35 KB	-rwxr-xr-x	2025-09-10 09:31
check_jetbackup_license.sh	581 B	-rwxr-xr-x	2025-09-10 09:31
check_jetbackup_mongodb	915 B	-rwxr-xr-x	2025-09-10 09:31
check_jetbackup_queue	4.83 KB	-rwxr-xr-x	2025-09-10 09:31
check_kernel	393 B	-rwxr-xr-x	2025-09-10 09:31
check_ldap	61.07 KB	-rwxr-xr-x	2024-04-11 07:27
check_ldaps	61.07 KB	-rwxr-xr-x	2024-04-11 07:27
check_litespeed	2.43 KB	-rwxr-xr-x	2025-09-10 09:31
check_load	48.39 KB	-rwxr-xr-x	2024-04-11 07:27
check_load.php	422 B	-rwxr-xr-x	2025-09-10 09:31
check_load.py	401 B	-rwxr-xr-x	2025-09-10 09:31
check_local_users	2.01 MB	-rwxr-xr-x	2025-09-10 09:31
check_log	7.99 KB	-rwxr-xr-x	2024-04-11 07:27
check_lvm_thinpools	2.48 KB	-rwxr-xr-x	2025-09-10 09:31
check_mailq	25 KB	-rwxr-xr-x	2024-04-11 07:27
check_managed.sh	5.85 KB	-rwxr-xr-x	2025-09-10 09:31
check_md5files	1.2 KB	-rwxr-xr-x	2025-09-10 09:31
check_md_raid	782 B	-rwxr-xr-x	2025-09-10 09:31
check_megaraid_sas	6.75 KB	-rwxr-xr-x	2025-09-10 09:31
check_memcached	184 B	-rwxr-xr-x	2025-09-10 09:31
check_meminfo	2.79 KB	-rwxr-xr-x	2025-09-10 09:31
check_memory	330 B	-rwxr-xr-x	2025-09-10 09:31
check_memory.py	1.06 KB	-rwxr-xr-x	2025-09-10 09:31
check_mrtg	44.42 KB	-rwxr-xr-x	2024-04-11 07:27
check_mrtgtraf	44.36 KB	-rwxr-xr-x	2024-04-11 07:27
check_mysql	52.91 KB	-rwxr-xr-x	2024-04-11 07:27
check_mysql_all.sh	6.53 KB	-rwxr-xr-x	2025-09-10 09:31
check_mysql_connections	5.89 KB	-rwxr-xr-x	2025-09-10 09:31
check_mysql_engines	603 B	-rwxr-xr-x	2025-09-10 09:31
check_mysql_log	170 B	-rwxr-xr-x	2025-09-10 09:31
check_mysql_memory	733 B	-rwxr-xr-x	2025-09-10 09:31
check_mysql_processes	346 B	-rwxr-xr-x	2025-09-10 09:31
check_mysql_query	48.71 KB	-rwxr-xr-x	2024-04-11 07:27
check_nagios	44.34 KB	-rwxr-xr-x	2024-04-11 07:27
check_nimbus.sh	2.25 KB	-rwxr-xr-x	2025-09-10 09:31
check_nntp	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_nntps	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_nscp_api	5.84 MB	-rwxr-xr-x	2024-10-29 07:19
check_nt	56.65 KB	-rwxr-xr-x	2024-04-11 07:27
check_ntp	56.84 KB	-rwxr-xr-x	2024-04-11 07:27
check_ntp.pl	14.53 KB	-rwxr-xr-x	2024-04-11 07:27
check_ntp_peer	56.91 KB	-rwxr-xr-x	2024-04-11 07:27
check_ntp_time	52.84 KB	-rwxr-xr-x	2024-04-11 07:27
check_nwstat	68.52 KB	-rwxr-xr-x	2024-04-11 07:27
check_oracle	9.27 KB	-rwxr-xr-x	2024-04-11 07:27
check_overcr	48.49 KB	-rwxr-xr-x	2024-04-11 07:27
check_partitions	434 B	-rwxr-xr-x	2025-09-10 09:31
check_pgsql	56.95 KB	-rwxr-xr-x	2024-04-11 07:27
check_ping	60.77 KB	-rwxr-xr-x	2024-04-11 07:27
check_pop	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_postfix	193 B	-rwxr-xr-x	2025-09-10 09:31
check_postfix_queue	930 B	-rwxr-xr-x	2025-09-10 09:31
check_postgres	445.78 KB	-rwxr-xr-x	2025-09-10 09:31
check_procs	60.99 KB	-rwxr-xr-x	2024-04-11 07:27
check_proxmox.sh	928 B	-rwxr-xr-x	2025-09-10 09:31
check_proxmox_backups.sh	1.86 KB	-rwxr-xr-x	2025-09-10 09:31
check_qps_dnsdist.sh	1.68 KB	-rwxr-xr-x	2025-09-10 09:31
check_real	48.59 KB	-rwxr-xr-x	2024-04-11 07:27
check_redis.sh	175 B	-rwxr-xr-x	2025-09-10 09:31
check_resolver.py	3.27 KB	-rwxr-xr-x	2025-09-10 09:31
check_rpc	9.45 KB	-rwxr-xr-x	2024-04-11 07:27
check_rpmdb	690 B	-rwxr-xr-x	2025-09-10 09:31
check_sensors	1.59 KB	-rwxr-xr-x	2024-04-11 07:27
check_service.sh	9.94 KB	-rwxr-xr-x	2025-09-10 09:31
check_simap	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_smart.pl	35.16 KB	-rwxr-xr-x	2025-09-10 09:31
check_smartarray.py	10.07 KB	-rwxr-xr-x	2025-09-10 09:31
check_smartermail_queue	1.5 KB	-rwxr-xr-x	2025-09-10 09:31
check_smtp	69.23 KB	-rwxr-xr-x	2024-04-11 07:27
check_snmp	77.59 KB	-rwxr-xr-x	2024-04-11 07:27
check_spop	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_ssh	48.59 KB	-rwxr-xr-x	2024-04-11 07:27
check_ssmtp	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_sssd	1.32 KB	-rwxr-xr-x	2025-09-10 09:31
check_supervisord.py	15.71 KB	-rwxr-xr-x	2025-09-10 09:31
check_swap	44.33 KB	-rwxr-xr-x	2024-04-11 07:27
check_tcp	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_time	48.55 KB	-rwxr-xr-x	2024-04-11 07:27
check_tmp	210 B	-rwxr-xr-x	2025-09-10 09:31
check_udp	61.13 KB	-rwxr-xr-x	2024-04-11 07:27
check_ups	52.61 KB	-rwxr-xr-x	2024-04-11 07:27
check_users	40.2 KB	-rwxr-xr-x	2024-04-11 07:27
check_vm_status.sh	635 B	-rwxr-xr-x	2025-09-10 09:31
check_wave	3.19 KB	-rwxr-xr-x	2024-04-11 07:27
check_webserver_status	2.93 KB	-rwxr-xr-x	2025-09-10 09:31
check_yum_updates	600 B	-rwxr-xr-x	2025-09-10 09:31
check_zfs	17.68 KB	-rwxr-xr-x	2025-09-10 09:31
check_zpool_usage.sh	885 B	-rwxr-xr-x	2025-09-10 09:31
md5list	61 B	-rw-r--r--	2025-09-10 09:31
negate	40.18 KB	-rwxr-xr-x	2024-04-11 07:27
urlize	35.97 KB	-rwxr-xr-x	2024-04-11 07:27
utils.pm	2.05 KB	-rw-r--r--	2024-04-11 07:27
utils.sh	2.73 KB	-rwxr-xr-x	2024-04-11 07:27
vz7_check_a2_backup_timer_enabled.sh	605 B	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_backups-check.sh	8.4 KB	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_backups-running.sh	2.18 KB	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_fw.sh	1.37 KB	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_ifspeed.sh	1.04 KB	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_license.sh	749 B	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_template_count.sh	856 B	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_templates_mount.sh	940 B	-rwxr-xr-x	2025-09-10 09:31
vz7_check_a2_zombie-procs.sh	768 B	-rwxr-xr-x	2025-09-10 09:31
vz7_check_nfs_kill.sh	1000 B	-rwxr-xr-x	2025-09-10 09:31

Rename

#!/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>&1 |";
#
# 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 "$FindBin::Bin";
use lib '/usr/lib64/nagios/plugins';
use utils qw($TIMEOUT %ERRORS &print_revision &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 ='';
$state = 'UNKNOWN';
$progver = $response=$response2= $response3 ='';

$PROGNAME = "check_rpc";
sub print_help ();
sub print_usage ();
sub in ($$);

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

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

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

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

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

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

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

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

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

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

if ($opt_t && $opt_u) {
	print "Cannot define tcp AND udp\n";
	print_usage();
	exit $ERRORS{'UNKNOWN'};
}

# -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 = "RPC ok: program $opt_C (version ";
    $prognum = $1;
} elsif ( in( \@progkeys, $opt_C)) {
#    $response = "RPC ok: $opt_C (version ";
    $prognum = $prognum{$opt_C};
} else {
    print "Program $opt_C is not defined\n";
    exit $ERRORS{'UNKNOWN'};
}

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

$proto = 'u';
$proto = $proto[$prognum] if ($proto[$prognum]);
$proto = 't' if ($opt_t);
$proto = 'u' if ($opt_u);

# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
        print ("ERROR: No response from RPC server (alarm)\n");
        exit $ERRORS{"UNKNOWN"};
};
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 = "$1";
			print "Checking $opt_C version $progver proto $proto\n" if $verbose;
			get_rpcinfo();
		}else{
			print "Version $vers is not an integer\n" if $verbose;
		}

}
}else{
	get_rpcinfo();
}

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

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

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

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

while ( $line = <CMD> ) {
		printf "$line " if $verbose;
		chomp $line;

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

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

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

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

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

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