pkg-monitoring-plugins/plugins-scripts/check_mssql.pl

146 lines
4.3 KiB
Perl
Executable file

#!@PERL@ -w
#
# Copyright 2003 Roy Sigurd Karlsbakk
#
# Requires freetds and DBD::Sybase
# http://www.freetds.org
# http://www.mbay.net/~mpeppler/
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301, USA.
#
# Report bugs to: help@monitoring-plugins.org
#
#
use DBI;
use DBD::Sybase;
use Getopt::Long;
use FindBin;
use lib "$FindBin::Bin";
use utils qw($TIMEOUT %ERRORS &print_revision &support);
use strict;
my $PROGNAME = "check_mssql";
$ENV{'PATH'}='@TRUSTED_PATH@';
$ENV{'BASH_ENV'}='';
$ENV{'ENV'}='';
my (
$server,$database,$username,$password,$query,$help,$verbose,$timeout,
$dbh,$sth,$row,
$s,$opt_V,$regex
);
my $exitcode = $ERRORS{'OK'};
process_arguments();
# Just in case of problems, let's not hang the monitoring system
$SIG{'ALRM'} = sub {
print ("SQL UNKNOWN: ERROR connection $server (alarm timeout)\n");
exit $ERRORS{"UNKNOWN"};
};
alarm($timeout);
unless ($dbh = DBI->connect("dbi:Sybase:server=".uc($server), "$username", "$password")) {
printf "SQL CRITICAL: Can't connect to mssql server $DBI::errstr\n";
exit($ERRORS{'CRITICAL'});
}
if (defined $database) { # otherwise use default database
unless ($dbh->do("use $database")) {
printf ("SQL CRITICAL: Can't 'use $database': $dbh->errstr");
exit($ERRORS{'CRITICAL'});
}
}
$sth = $dbh->prepare($query);
unless ($sth->execute()) {
printf("SQL CRITICAL: Error in query: $dbh->errstr\n");
exit($ERRORS{'CRITICAL'});
}
$row = join(";",$sth->fetchrow_array);
$sth->finish;
$dbh->disconnect;
alarm(0);
if (defined $regex) {
if ($row =~ /$regex/) {
printf "SQL CRITICAL: - $row|$row\n";
exit $ERRORS{'CRITICAL'};
}else{
print "SQL OK: $row|$row\n";
exit $ERRORS{'OK'};
}
}
print "SQL OK: $row|$row\n";
exit $ERRORS{'OK'};
##################################################
sub syntax {
$s = shift or $s = 'Unknown';
printf("Error: ($s)\n") unless ($help);
printf("Runs a query against a MS-SQL server or Sybase server and returns the first row\n");
printf("Returns an error if no responses are running. Row is passed to perfdata in\n");
printf("semicolon delimited format\n");
printf("A simple sql statement like \"select getdate()\" verifies server responsiveness\n\n");
printf("Syntax: %s -s <server> -d <database> -u <username> -p <password> -q <query> [-v]\n", $PROGNAME);
printf(" --database -d Database name\n");
printf(" --Hostname -H Server name\n");
printf(" --username -u Username\n");
printf(" --password -p Password\n");
printf(" --query -q SQL query to run\n");
printf(" --timeout -t Plugin timeout (default:$TIMEOUT)\n");
printf(" --regex -r regex against SQL response(CRIT if MATCH)\n");
printf(" --verbose -v verbose\n");
printf("\nThe SQL response is concatenated into a string with a \";\" demarkation\n\n");
exit($ERRORS{'UNKNOWN'});
}
sub process_arguments {
Getopt::Long::Configure('bundling');
my $status = GetOptions
("p=s" => \$password, "password=s" => \$password,
"u=s" => \$username, "username=s" => \$username,
"H=s" => \$server, "Hostname=s" => \$server,
"d=s" => \$database, "database=s" => \$database,
"q=s" => \$query, "query=s" => \$query,
"t=i" => \$timeout, "timeout=i" => \$timeout,
"r=s" => \$regex, "regex=s" => \$regex,
"h" => \$help, "help" => \$help,
"v" => \$verbose, "verbose" => \$verbose,
"V" => \$opt_V, "version" => \$opt_V);
if (defined $opt_V) {
print_revision($PROGNAME,'@NP_VERSION@');
exit $ERRORS{'UNKNOWN'};
}
syntax("Help:") if ($help);
syntax("Missing username") unless (defined($username));
syntax("Missing password") unless (defined($password));
syntax("Missing server") unless (defined($server));
syntax("Missing query string") unless (defined($query));
$timeout = $TIMEOUT unless (defined($timeout));
return;
}