145 lines
4.3 KiB
Perl
Executable file
145 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;
|
|
|
|
}
|