Detect arguments passed via --with-ping[6]-command (#2908236)

[nagiosplug.git] / plugins-scripts / check_disk_smb.pl

diff --git a/plugins-scripts/check_disk_smb.pl b/plugins-scripts/check_disk_smb.pl
index 3358f6a139d19c657b39a852cf9d5c58c7c2625e..3f531ac75c71a10320d8f09a0812bcc4b7226a46 100755 (executable)
--- a/plugins-scripts/check_disk_smb.pl
+++ b/plugins-scripts/check_disk_smb.pl
@@ -16,7 +16,6 @@
 #  drives is a pain in the butt
 # 2-May-2002 - SGhosh fix for embedded perl
 #
-# $Id$
 #
 
 require 5.004;
@@ -52,7 +51,7 @@ GetOptions
         "H=s" => \$opt_H, "hostname=s" => \$opt_H);
 
 if ($opt_V) {
-       print_revision($PROGNAME,'$Revision$'); #'
+       print_revision($PROGNAME,'@NP_VERSION@'); #'
        exit $ERRORS{'OK'};
 }
 
@@ -76,7 +75,7 @@ my $share = $1 if ($opt_s =~ /^([-_.A-Za-z0-9]+\$?)$/);
 my $user = $1 if ($opt_u =~ /^([-_.A-Za-z0-9\\]+)$/);
 ($user) || usage("Invalid user: $opt_u\n");
 
-($opt_p) || ($opt_p = shift) || ($opt_p = "guest");
+($opt_p) || ($opt_p = shift) || ($opt_p = "");
 my $pass = $1 if ($opt_p =~ /(.*)/);
 
 ($opt_w) || ($opt_w = shift) || ($opt_w = 85);
@@ -87,18 +86,55 @@ my $warn = $1 if ($opt_w =~ /^([0-9]{1,2}\%?|100\%?|[0-9]+[kMG])$/);
 my $crit = $1 if ($opt_c =~ /^([0-9]{1,2}\%?|100\%?|[0-9]+[kMG])$/);
 ($crit) || usage("Invalid critical threshold: $opt_c\n");
 
+# 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( ( ($opt_w =~ /([0-9]){1,2}$/ ) && ($opt_c =~ /([0-9]){1,2}$/ )  )|| (( $opt_w =~ /[kMG]/ ) && ($opt_c =~ /[kMG]/) )  ){
+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 ( $opt_w =~ /[kMG]/) {
+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");
        }
 }
@@ -123,10 +159,10 @@ alarm($TIMEOUT);
 # Execute an "ls" on the share using smbclient program
 # get the results into $res
 if (defined($workgroup)) {
-       $res = qx/$smbclient \/\/$host\/$share $pass -W $workgroup -U $user $smbclientoptions -c ls/;
+       $res = qx/$smbclient \/\/$host\/$share -W $workgroup -U $user%$pass $smbclientoptions -c ls/;
 } else {
        print "$smbclient " . "\/\/$host\/$share" ." $pass -U $user $smbclientoptions -c ls\n" if ($verbose);
-       $res = qx/$smbclient \/\/$host\/$share $pass -U $user $smbclientoptions -c ls/;
+       $res = qx/$smbclient \/\/$host\/$share -U $user%$pass $smbclientoptions -c ls/;
 }
 #Turn off alarm
 alarm(0);
@@ -147,35 +183,6 @@ if (/\s*(\d*) blocks of size (\d*)\. (\d*) blocks available/) {
        my ($capper) = int(($3/$1)*100);
        my ($mountpt) = "\\\\$host\\$share";
 
-       #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_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_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;
-       }
 
        if (int($avail / 1024) > 0) {
                $avail = int($avail / 1024);
@@ -235,7 +242,7 @@ sub print_usage () {
 }
 
 sub print_help () {
-       print_revision($PROGNAME,'$Revision$');
+       print_revision($PROGNAME,'@NP_VERSION@');
        print "Copyright (c) 2000 Michael Anthon/Karl DeBisschop
 
 Perl Check SMB Disk plugin for Nagios
@@ -252,7 +259,7 @@ Perl Check SMB Disk plugin for Nagios
 -u, --user=STRING
    Username to log in to server. (Defaults to \"guest\")
 -p, --password=STRING
-   Password to log in to server. (Defaults to \"guest\")
+   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%)