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_disk.pl <host> <share> <user> <pass> [warn] [critical] [port]
#
# Nagios host script to get the disk usage from a SMB share
#
# Changes and Modifications
# =========================
# 7-Aug-1999 - Michael Anthon
#  Created from check_disk.pl script provided with netsaint_statd (basically
#  cause I was too lazy (or is that smart?) to write it from scratch)
# 8-Aug-1999 - Michael Anthon
#  Modified [warn] and [critical] parameters to accept format of nnn[M|G] to
#  allow setting of limits in MBytes or GBytes.  Percentage settings for large
#  drives is a pain in the butt
# 2-May-2002 - SGhosh fix for embedded perl
#
#

require 5.004;
eval { require utf8::all };
use POSIX;
use strict;
use Getopt::Long;
use vars qw($opt_P $opt_V $opt_m $opt_h $opt_H $opt_k $opt_s $opt_W $opt_u $opt_p $opt_w $opt_c $opt_a $opt_C $verbose);
use vars qw($PROGNAME);
use FindBin;
use lib "$FindBin::Bin";
use lib '/usr/lib64/nagios/plugins';
use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);

sub print_help ();
sub print_usage ();

$PROGNAME = "check_disk_smb";

$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"   => \$verbose, "verbose"    => \$verbose,
	 "P=s" => \$opt_P, "port=s"     => \$opt_P,
	 "V"   => \$opt_V, "version"    => \$opt_V,
	 "h"   => \$opt_h, "help"       => \$opt_h,
	 "k"   => \$opt_k, "kerberos"   => \$opt_k,
	 "m=s" => \$opt_m, "maxprotocol=s" => \$opt_m,
	 "w=s" => \$opt_w, "warning=s"  => \$opt_w,
	 "c=s" => \$opt_c, "critical=s" => \$opt_c,
	 "p=s" => \$opt_p, "password=s" => \$opt_p,
	 "u=s" => \$opt_u, "username=s" => \$opt_u,
	 "s=s" => \$opt_s, "share=s"    => \$opt_s,
	 "W=s" => \$opt_W, "workgroup=s" => \$opt_W,
	 "H=s" => \$opt_H, "hostname=s" => \$opt_H,
	 "a=s" => \$opt_a, "address=s" => \$opt_a,
	 "C=s" => \$opt_C, "configfile=s" => \$opt_C);

if ($opt_V) {
	print_revision($PROGNAME,'2.4.9'); #'
	exit $ERRORS{'OK'};
}

if ($opt_h) {print_help(); exit $ERRORS{'OK'};}

my $smbclient = $utils::PATH_TO_SMBCLIENT;
$smbclient    || usage("check requires smbclient, smbclient not set\n");
-x $smbclient || usage("check requires smbclient, $smbclient: $!\n");

# Options checking

($opt_H) || ($opt_H = shift @ARGV) || usage("Host name not specified\n");
my $host = $1 if ($opt_H =~ /^([^":|<>\*\?\\\/]+)$/);
($host) || usage("Invalid host: $opt_H\n");

($opt_s) || ($opt_s = shift @ARGV) || usage("Share volume not specified\n");
my $share = $1 if ($opt_s =~ /^([^":|<>\*\?\\\/]+\$?)$/);
($share) || usage("Invalid share: $opt_s\n");

defined($opt_u) || ($opt_u = shift @ARGV) || ($opt_u = "guest");
my $user = $1 if ($opt_u =~ /^([^":|<>\*\?\/(?<!\)]+)$/);
defined($user) || usage("Invalid user: $opt_u\n");

defined($opt_p) || ($opt_p = shift @ARGV) || ($opt_p = "");
my $pass = $1 if ($opt_p =~ /(.*)/);

defined($opt_m) || ($opt_m = shift @ARGV) || ($opt_m = "");
my $maxprotocol = $1 if ($opt_m =~ /(.*)/);

($opt_w) || ($opt_w = shift @ARGV) || ($opt_w = 85);
my $warn = $1 if ($opt_w =~ /^([0-9]{1,2}\%?|100\%?|[0-9]+[kMG])$/);
($warn) || usage("Invalid warning threshold: $opt_w\n");

($opt_c) || ($opt_c = shift @ARGV) || ($opt_c = 95);
my $crit = $1 if ($opt_c =~ /^([0-9]{1,2}\%?|100\%?|[0-9]+[kMG])$/);
($crit) || usage("Invalid critical threshold: $opt_c\n");

($opt_C) || ($opt_C = shift @ARGV) || ($opt_C = "");
my $configfile = $opt_C if ($opt_C);
usage("Unable to read config file $configfile\n") if ($configfile) && (! -r $configfile);

# Execute the given command line and return anything it writes to STDOUT and/or
# STDERR.  (This might be useful for other plugins, too, so it should possibly
# be moved to utils.pm.)
sub output_and_error_of {
	local *CMD;
	local $/ = undef;
	my $pid = open CMD, "-|";
	if (defined($pid)) {
		if ($pid) {
			return <CMD>;
		} else {
			open STDERR, ">&STDOUT" and exec @_;
			exit(1);
		}
	}
	return undef;
}

# split the type from the unit value
#Check $warn and $crit for type (%/M/G) and set up for tests
#P = Percent, K = KBytes
my $warn_type;
my $crit_type;

if ($opt_w =~ /^([0-9]+)\%?$/) {
	$warn = "$1";
	$warn_type = "P";
} elsif ($opt_w =~ /^([0-9]+)k$/) {
	$warn_type = "K";
	$warn = $1;
} elsif ($opt_w =~ /^([0-9]+)M$/) {
	$warn_type = "K";
	$warn = $1 * 1024;
} elsif ($opt_w =~ /^([0-9]+)G$/) {
	$warn_type = "K";
	$warn = $1 * 1048576;
}
if ($opt_c =~ /^([0-9]+)\%?$/) {
	$crit = "$1";
	$crit_type = "P";
} elsif ($opt_c =~ /^([0-9]+)k$/) {
	$crit_type = "K";
	$crit = $1;
} elsif ($opt_c =~ /^([0-9]+)M$/) {
	$crit_type = "K";
	$crit = $1 * 1024;
} elsif ($opt_c =~ /^([0-9]+)G$/) {
	$crit_type = "K";
	$crit = $1 * 1048576;
}

# check if both warning and critical are percentage or size
unless( ( $warn_type eq "P" && $crit_type eq "P" ) || ( $warn_type ne "P" && $crit_type ne "P" ) ){
	$opt_w =~ s/\%/\%\%/g;
	$opt_c =~ s/\%/\%\%/g;
	usage("Both warning and critical should be same type- warning: $opt_w critical: $opt_c \n");
}

# verify warning is less than critical
if ( $warn_type eq "K") {
	unless ( $warn > $crit) {
		usage("Disk size: warning ($opt_w) should be greater than critical ($opt_c) \n");
	}
}else{
	unless ( $warn < $crit) {
		$opt_w =~ s/\%/\%\%/g;
		$opt_c =~ s/\%/\%\%/g;
		usage("Percentage: warning ($opt_w) should be less than critical ($opt_c) \n");
	}
}

my $workgroup = $1 if (defined($opt_W) && $opt_W =~ /(.*)/);

my $address = $1 if (defined($opt_a) && $opt_a =~ /(.*)/);

# end of options checking

my $state = "OK";
my $answer = undef;
my $res = undef;
my $perfdata = "";
my @lines = undef;

# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
	print "No Answer from Client\n";
	exit $ERRORS{"UNKNOWN"};
};
alarm($TIMEOUT);

# Execute a "du" on the share using smbclient program
# get the results into $res
my @cmd = (
	$smbclient,
	"//$host/$share",
	"-U", "$user%$pass",
	defined($maxprotocol) ? ("-m", $maxprotocol) : (),
	defined($workgroup) ? ("-W", $workgroup) : (),
	defined($address) ? ("-I", $address) : (),
	defined($opt_P) ? ("-p", $opt_P) : (),
	defined($opt_k) ? ("-k") : (),
	defined($configfile) ? ("-s, $configfile") : (),
	"-c", "du"
);

print join(" ", @cmd) . "\n" if ($verbose);
$res = output_and_error_of(@cmd) or exit $ERRORS{"UNKNOWN"};

#Turn off alarm
alarm(0);

#Split $res into an array of lines
@lines = split /\n/, $res;

#Get the last line into $_
$_ = $lines[$#lines-1];
#print "$_\n";

#Process the last line to get free space.
#If line does not match required regexp, return an UNKNOWN error
if (/\s*(\d*) blocks of size (\d*)\. (\d*) blocks available/) {

my ($avail_bytes) = $3 * $2;
	my ($total_bytes) = $1 * $2;
	my ($occupied_bytes) = $1 * $2 - $avail_bytes;
	my ($avail) = $avail_bytes/1024;
	my ($capper) = int(($3/$1)*100);
	my ($mountpt) = "\\\\$host\\$share";

# TODO : why is the kB the standard unit for args ?
	my ($warn_bytes) = $total_bytes - $warn * 1024;
	if ($warn_type eq "P") {
		$warn_bytes = $warn * $1 * $2 / 100;
	}
	my ($crit_bytes) = $total_bytes - $crit * 1024;
	if ($crit_type eq "P") {
		$crit_bytes = $crit * $1 * $2 / 100;
	}

if (int($avail / 1024) > 0) {
		$avail = int($avail / 1024);
		if (int($avail /1024) > 0) {
			$avail = (int(($avail / 1024)*100))/100;
			$avail = $avail ."G";
		} else {
			$avail = $avail ."M";
		}
	} else {
		$avail = $avail ."K";
	}

#print ":$warn:$warn_type:\n";
#print ":$crit:$crit_type:\n";
#print ":$avail:$avail_bytes:$capper:$mountpt:\n";
	$perfdata = "'" . $share . "'=" . $occupied_bytes . 'B;'
		. $warn_bytes . ';'
		. $crit_bytes . ';'
		. '0;'
		. $total_bytes;

if ($occupied_bytes > $crit_bytes) {
		$state = "CRITICAL";
		$answer = "CRITICAL: Only $avail ($capper%) free on $mountpt";
	} elsif ( $occupied_bytes > $warn_bytes ) {
		$state = "WARNING";
		$answer = "WARNING: Only $avail ($capper%) free on $mountpt";
	} else {
		$answer = "Disk ok - $avail ($capper%) free on $mountpt";
	}
} else {
	$answer = "Result from smbclient not suitable";
	$state = "UNKNOWN";
	foreach (@lines) {
		if (/(Access denied|NT_STATUS_LOGON_FAILURE|NT_STATUS_ACCESS_DENIED)/) {
			$answer = "Access Denied";
			$state = "CRITICAL";
			last;
		}
		if (/(Unknown host \w*|Connection.*failed)/) {
			$answer = "$1";
			$state = "CRITICAL";
			last;
		}
		if (/(You specified an invalid share name|NT_STATUS_BAD_NETWORK_NAME)/) {
			$answer = "Invalid share name \\\\$host\\$share";
			$state = "CRITICAL";
			last;
		}
	}
}

print $answer;
print " | " . $perfdata if ($perfdata);
print "\n";
print "$state\n" if ($verbose);
exit $ERRORS{$state};

sub print_usage () {
	print "Usage: $PROGNAME -H <host> -s <share> -u <user>
      -p <password> -w <warn> -c <crit> [-W <workgroup>] [-P <port>]
      [-a <IP>] [-C <configfile>]\n";
}

sub print_help () {
	print_revision($PROGNAME,'2.4.9');
	print "Copyright (c) 2000 Michael Anthon/Karl DeBisschop

Perl Check SMB Disk plugin for Nagios

";
	print_usage();
	print "
-H, --hostname=HOST
   NetBIOS name of the server
-s, --share=STRING
   Share name to be tested
-W, --workgroup=STRING
   Workgroup or Domain used (Defaults to \"WORKGROUP\")
-a, --address=IP
   IP-address of HOST (only necessary if HOST is in another network)
-u, --user=STRING
   Username to log in to server. (Defaults to \"guest\")
-p, --password=STRING
   Password to log in to server. (Defaults to an empty password)
-w, --warning=INTEGER or INTEGER[kMG]
   Percent of used space at which a warning will be generated (Default: 85%)
-c, --critical=INTEGER or INTEGER[kMG]
   Percent of used space at which a critical will be generated (Defaults: 95%)
-P, --port=INTEGER
   Port to be used to connect to. Some Windows boxes use 139, others 445 (Defaults to smbclient default)
-C, --configfile=STRING
   Path to configfile which should be used by smbclient (Defaults to smb.conf of your smb installation)

If thresholds are followed by either a k, M, or G then check to see if that
   much disk space is available (kilobytes, Megabytes, Gigabytes)

Warning percentage should be less than critical
   Warning (remaining) disk space should be greater than critical.

";
	support();
}