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
#
# usage: 
#    check_flexlm.pl license_file
#
# Check available flexlm license managers.
# Use lmstat to check the status of the license server
# described by the license file given as argument.
# Check and interpret the output of lmstat
# and create returncodes and output.
#
# Contrary to the nagios concept, this script takes
# a file, not a hostname as an argument and returns
# the status of hosts and services described in that
# file. Use these hosts.cfg entries as an example
#
#host[anchor]=any host will do;some.address.com;;check-host-alive;3;120;24x7;1;1;1;
#service[anchor]=yodel;24x7;3;5;5;unix-admin;60;24x7;1;1;1;;check_flexlm!/opt/lic/licfiles/yodel_lic
#service[anchor]=yeehaw;24x7;3;5;5;unix-admin;60;24x7;1;1;1;;check_flexlm!/opt/lic/licfiles/yeehaw_lic
#command[check_flexlm]=/some/path/libexec/check_flexlm.pl $ARG1$
#
# Notes:
# - you need the lmstat utility which comes with flexlm.
# - set the correct path in the variable $lmstat.
#
# initial version: 9-10-99 Ernst-Dieter Martin edmt@infineon.com
#
# License: GPL
#
# lmstat output patches from Steve Rigler/Cliff Rice 13-Apr-2002
# srigler@marathonoil.com,cerice@marathonoil.com

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.4.9');
	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'};
}

($opt_F) || ($opt_F = shift) || usage("License file not specified\n");
my $licfile = $1 if ($opt_F =~ /^(.*)$/);
($licfile) || usage("Invalid filename: $opt_F\n");

print "$licfile\n" if $verbose;

if ( ! open(CMD,"$lmstat -c $licfile |") ) {
	print "ERROR: Could not open \"$lmstat -c $licfile\" ($!)\n";
	exit exit $ERRORS{'UNKNOWN'};
}

my $serverup = 0;
my @upsrv; 
my @downsrv;  # list of servers up and down

#my ($ls1,$ls2,$ls3,$lf1,$lf2,$lf3,$servers);
 
# key off of the term "license server" and 
# grab the status.  Keep going until "Vendor" is found
#

#
# Collect list of license servers by their status
# Vendor daemon status is ignored for the moment.

while ( <CMD> ) {
	next if (/^lmstat/);   # ignore 1st line - copyright
	next if (/^Flexible/); # ignore 2nd line - timestamp
	(/^Vendor/) && last;   # ignore Vendor daemon status
	print $_ if $verbose;
	
		if ($_ =~ /license server /) {	# matched 1 (of possibly 3) license server
			s/^\s*//;					#some servers start at col 1, other have whitespace
										# strip staring whitespace if any
			if ( $_ =~ /UP/) {
				$_ =~ /^(.*):/ ;
				push(@upsrv, $1);
				print "up:$1:\n" if $verbose;
			} else {
				$_ =~ /^(.*):/; 
				push(@downsrv, $1);
				print "down:$1:\n" if $verbose;
			}
		
		}

#	if ( /^License server status: [0-9]*@([-0-9a-zA-Z_]*),[0-9]*@([-0-9a-zA-Z_]*),[0-9]*@([-0-9a-zA-Z_]*)/ ) {
#	$ls1 = $1;
#	$ls2 = $2;
#	$ls3 = $3;
#	$lf1 = $lf2 = $lf3 = 0;
#	$servers = 3;
#  } elsif ( /^License server status: [0-9]*@([-0-9a-zA-Z_]*)/ ) {
#	$ls1 = $1;
#	$ls2 = $ls3 = "";
#	$lf1 = $lf2 = $lf3 = 0;
#	$servers = 1;
#  } elsif ( / *$ls1: license server UP/ ) {
#	print "$ls1 UP, ";
#	$lf1 = 1
#  } elsif ( / *$ls2: license server UP/ ) {
#	print "$ls2 UP, ";
#	$lf2 = 1
#  } elsif ( / *$ls3: license server UP/ ) {
#	print "$ls3 UP, ";
#	$lf3 = 1
#  } elsif ( / *([^:]*: UP .*)/ ) {
#	print " license server for $1\n";
#	$serverup = 1;
#  }

}

#if ( $serverup == 0 ) {
#    print " license server not running\n";
#    exit 2;	
#}

close CMD;

if ($verbose) {
	print "License Servers running: ".scalar(@upsrv) ."\n";
	foreach my $upserver (@upsrv) {
		print "$upserver\n";
	}
	print "License servers not running: ".scalar(@downsrv)."\n";
	foreach my $downserver (@downsrv) {
		print "$downserver\n";
	}
}

#
# print list of servers which are up. 
#
if (scalar(@upsrv) > 0) {
   print "License Servers running:";
   foreach my $upserver (@upsrv) {
      print "$upserver,";
   }
}
#
# Ditto for those which are down.
#
if (scalar(@downsrv) > 0) {
   print "License servers NOT running:";
   foreach my $downserver (@downsrv) {
      print "$downserver,";
   }
}

# perfdata
print "\n|flexlm::up:".scalar(@upsrv).";down:".scalar(@downsrv)."\n";

exit $ERRORS{'OK'} if ( scalar(@downsrv) == 0 );
exit $ERRORS{'WARNING'} if ( (scalar(@upsrv) > 0) && (scalar(@downsrv) > 0));

#exit $ERRORS{'OK'} if ( $servers == $lf1 + $lf2 + $lf3 );
#exit $ERRORS{'WARNING'} if ( $servers == 3 && $lf1 + $lf2 + $lf3 == 2 );
exit $ERRORS{'CRITICAL'};

sub print_usage () {
	print "Usage:
   $PROGNAME -F <filename> [-v] [-t] [-V] [-h]
   $PROGNAME --help
   $PROGNAME --version
";
}

sub print_help () {
	print_revision($PROGNAME,'2.4.9');
	print "Copyright (c) 2000 Ernst-Dieter Martin/Karl DeBisschop

Check available flexlm license managers

";
	print_usage();
	print "
-F, --filename=FILE
   Name of license file (like \"/usr/local/flexlm/licenses/license.dat\")
-v, --verbose
   Print some extra debugging information (not advised for normal operation)
-t, --timeout
   Plugin time out in seconds (default = $utils::TIMEOUT )
-V, --version
   Show version and license information
-h, --help
   Show this help screen

Flexlm license managers usually run as a single server or three servers and a
quorum is needed.  The plugin return OK if 1 (single) or 3 (triple) servers
are running, CRITICAL if 1(single) or 3 (triple) servers are down, and WARNING
if 1 or 2 of 3 servers are running\n
";
	support();
}