[Nagiosplug-devel] check_Disk_smp patch against 1.3.1

[Jason Martin]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

The attached patch against check_disk_smb from the 1.3.1 release adds a 
check that the smbclient binary actually exists before attempting to 
execute it.

- -Jason Martin
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.3.5 (GNU/Linux)
Comment: pgpenvelope 2.10.2 - http://pgpenvelope.sourceforge.net/

iD8DBQFAvLhPl2ODWuqVSBMRAnV/AJ4gUmFYmqKmZJvy+hfF1mqcUCF2HwCeKlab
o5uKqWSrZnJE/XKzkW6tnGE=
=ISCP
-----END PGP SIGNATURE-----
-------------- next part --------------
--- check_disk_smb.pl	Thu Jul 10 23:03:49 2003
+++ /home/nagios/plugins_build/nagios-plugins-1.3.1/plugins-scripts/aws_check_disk_smb.pl	Thu Feb 26 12:29:26 2004
@@ -16,7 +16,7 @@
 #  drives is a pain in the butt
 # 2-May-2002 - SGhosh fix for embedded perl
 #
-# $Id: check_disk_smb.pl,v 1.8.2.1 2003/07/02 15:52:23 tonvoon Exp $
+# $Id: aws_check_disk_smb.pl,v 1.1.1.1 2004/02/26 20:29:26 nagios Exp $
 #
 
 require 5.004;
@@ -31,7 +31,7 @@
 sub print_help ();
 sub print_usage ();
 
-$PROGNAME = "check_disk_smb";
+$PROGNAME = "aws_check_disk_smb";
 
 $ENV{'PATH'}='';
 $ENV{'BASH_ENV'}=''; 
@@ -51,13 +51,17 @@
 	 "H=s" => \$opt_H, "hostname=s" => \$opt_H);
 
 if ($opt_V) {
-	print_revision($PROGNAME,'$Revision: 1.8.2.1 $'); #'
+	print_revision($PROGNAME,'$Revision: 1.1.1.1 $'); #'
 	exit $ERRORS{'OK'};
 }
 
 if ($opt_h) {print_help(); exit $ERRORS{'OK'};}
 
 my $smbclient= "$utils::PATH_TO_SMBCLIENT " ;
+if ( ! -x $smbclient ) { 
+    print "Unable to locate smbclient: $smbclient\n";
+    exit $ERRORS{"UNKNOWN"};
+}
 my $smbclientoptions="";
 
 
@@ -234,7 +238,7 @@
 }
 
 sub print_help () {
-	print_revision($PROGNAME,'$Revision: 1.8.2.1 $');
+	print_revision($PROGNAME,'$Revision: 1.1.1.1 $');
 	print "Copyright (c) 2000 Michael Anthon/Karl DeBisschop
 
 Perl Check SMB Disk plugin for Nagios