1 files changed, 49 insertions, 14 deletions

diff --git a/contrib/check_sybase b/contrib/check_sybase
index 1f1cbf8..74cf17a 100755
--- a/contrib/check_sybase
+++ b/contrib/check_sybase
@@ -1,22 +1,27 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 # check_sybase
 # A nagios plugin that connects to a Sybase database and checks free space.
 #
-# Copyright 2004 Simon Bellwood, NetMan Network Management and IT Services GmbH
+# Copyright 2004-2005 Simon Bellwood, NetMan Network Management and IT 
+#                                                               Services GmbH
 # Portions Copyright 2001 Michael Peppler.
 # License: GPL
 #
-# Bugs and feedback to simon.bellwood@nospam.net-man.at
+# Bugs and feedback to simon.bellwood@NOSPAM.net-man.at
 # Latest version available from:
 #       http://www.net-man.at/software/check_sybase-LATEST.zip
 #
 # Revision history:
 # 0.1   01-OCT-2004     Initial version.
 # 0.2   08-NOV-2004     Initial release.
-# 0.3   13-JAN-2004     Fixed lib path, improved timeouts.
-# 0.4   26-JAN-2004     Added loginTimeout.
-my $VERSION = "0.4";
-
+# 0.3   13-JAN-2005     Fixed lib path, improved timeouts.
+# 0.4   26-JAN-2005     Added loginTimeout.
+# 0.5   04-FEB-2005     Fixed dates in history. Oops.
+# 0.6   29-MAR-2005     Added --explain option.
+# 0.7   08-APR-2005     Added initial performance data support.
+my $VERSION = "0.7";
+
+#use warnings;
 use strict;
 use DBI;
 use Getopt::Long;
@@ -30,8 +35,8 @@ my $DEFAULT_WARNING   = "25";
 my $DEFAULT_CRITICAL  = "10";
 my $DEFAULT_TIMEOUT   = "30";
 
-my ($user, $pass, $dbsvr, $dbname, $config, $checktype, $warn, $crit, $timeout,
-    $help, $version);
+my ($user, $pass, $dbsvr, $dbname, $config, $checktype, $explain,
+    $warn, $crit, $timeout, $help, $version);
 
 my $options_okay = GetOptions(
         "U|user=s"      => \$user,
@@ -40,6 +45,7 @@ my $options_okay = GetOptions(
         "D|dbname=s"    => \$dbname,
         "config=s"      => \$config,
         "checktype=s"   => \$checktype,
+        "explain"       => \$explain,
         "w|warning=i"   => \$warn,
         "c|critical=i"  => \$crit,
         "t|timeout=i"   => \$timeout,
@@ -127,6 +133,7 @@ sub check_space
         &connect;
 
         # Most of this sub based on Michael Peppler's check-space.pl
+        # For debugging purposes, more values are collected than needed.
 
         $dbh->{syb_do_proc_status} = 1;
 
@@ -148,6 +155,7 @@ sub check_space
                         }
                         else
                         {
+                                # Reserved, data, index, unused
                                 foreach (@$d)
                                 {
                                         s/\D//g;
@@ -157,10 +165,17 @@ sub check_space
                                 $dbinfo->{reserved} = $d->[0] / 1024;
                                 $dbinfo->{data} = $d->[1] / 1024;
                                 $dbinfo->{index} = $d->[2] / 1024;
+                                $dbinfo->{unused} = $d->[3] / 1024;
                         }
                 }
         } while($sth->{syb_more_results});
 
+        &explain("db size:  ".$dbinfo->{size});
+        &explain("reserved: ".$dbinfo->{reserved});
+        &explain(" data:    ".$dbinfo->{data});
+        &explain(" index:   ".$dbinfo->{index});
+        &explain(" unused:  ".$dbinfo->{unused});
+
         # Get the actual device usage from sp_helpdb to get the free log space
         $sth = $dbh->prepare("sp_helpdb $dbname")
                 or &nunk("Failed to call sp_helpdb $dbname on '$dbsvr'");
@@ -186,27 +201,38 @@ sub check_space
                 }
         } while($sth->{syb_more_results});
 
+        &explain("log: ".$dbinfo->{log});
+        &explain("logfree: ".$dbinfo->{logfree});
+
         # Subtract the log size from the database size
-        $dbinfo->{size} -= $dbinfo->{log};
+        $dbinfo->{realsize} = $dbinfo->{size} - $dbinfo->{log};
+        &explain("realsize (i.e. size - log) = ".$dbinfo->{realsize});
 
         # The "reserved" space is free for use by the table that freed it, so 
         # it is not truly free space. To be safe, our calculation ignores it.
-        my $free = ($dbinfo->{size} - $dbinfo->{reserved}) / $dbinfo->{size};
+        my $free = ($dbinfo->{realsize} - $dbinfo->{reserved})/$dbinfo->{realsize};
         $free = sprintf("%.2f", $free*100);
 
+        &explain("(realsize-reserved)/realsize = $free%");
+        &explain("For safety, this calculation assumes no log space reuse. ".
+        "Because of this, you may get negative values.");
+
 
         if ($free < $crit)
         {
-                &ncrit("Free space is $free%! (critical threshold is $crit%)");
+                &ncrit("Free space is $free%! (critical threshold is $crit%)".
+                        "|free_space=$free%");
         }
 
         if ($free < $warn)
         {
-                &nwarn("Free space is $free%! (warning threshold is $warn%)");
+                &nwarn("Free space is $free%! (warning threshold is $warn%)".
+                        "|free_space=$free%");
         }
 
 
-        &nok("Free space within thresholds ($free% free)");
+        &nok("Free space within thresholds ($free% free)".
+                "|free_space=$free%");
 }
 
 sub read_config
@@ -261,6 +287,7 @@ Mandatory arguments to long options are mandatory for short options too.
   -D, --dbname          Database name to check.
   --config=FILE         Config file (see SECURITY below)
   --checktype=TYPE      Type of check to run (see TYPEs below)
+  --explain             Explains how we calculated the free space.
   -w, --warning         Warning threshold, in percent (default 25)
   -c, --critical        Critical threshold, in percent (default 10)
   -t, --timeout         Timeout value, in seconds (default 30)
@@ -290,6 +317,14 @@ _HELP_
 
 }
 
+sub explain
+{
+        return unless $explain;
+
+        my $msg = shift;
+        print "$msg\n";
+}
+
 
 
 # Some wrappers..