From b15adb7762b6caaecaa83637abfcf5fdb4802092 Mon Sep 17 00:00:00 2001 From: Holger Weiss Date: Mon, 2 Sep 2013 13:16:24 +0200 Subject: Remove "contrib" plugins These days, sites such as "Nagios Exchange" are a much better place for publishing plugins not maintained by the Plugins Development Team. --- contrib/check_oracle_tbs | 218 ----------------------------------------------- 1 file changed, 218 deletions(-) delete mode 100644 contrib/check_oracle_tbs (limited to 'contrib/check_oracle_tbs') diff --git a/contrib/check_oracle_tbs b/contrib/check_oracle_tbs deleted file mode 100644 index 8281a4e2..00000000 --- a/contrib/check_oracle_tbs +++ /dev/null @@ -1,218 +0,0 @@ -#!/usr/local/bin/perl -w - -# (c)2004 John Koyle, RFP Depot, LLC. -# This is free software use it however you would like. - -use strict; -use DBI; -use Getopt::Long 2.16; -use lib "/usr/local/nagios/libexec"; -use utils qw(%ERRORS); - - -#******************************************************************************* -# Set user configureable options here. -# -# Global Oracle info set here rather than command line to avoid output in ps -ef -# Make sure this script is mode 700 and owner of the nrpe user -# -#******************************************************************************* -my $orasid = ""; -my $orauser = ""; -my $orapwd = ""; - - -if (!$ENV{ORACLE_HOME}) { - $ENV{ORACLE_HOME} = '/u01/app/oracle/product/9.2'; -} - -#******************************************************************************* -my $state = $ERRORS{'UNKNOWN'}; -my $answer = undef; - -my ($MAJOR_VERSION, $MINOR_VERSION) = q$Revision: 1134 $ =~ /(\d+)\.(\d+)/; -my $VERSION = sprintf("%d.%02d", $MAJOR_VERSION - 1, $MINOR_VERSION); - -my $opt_debug; # -d|--debug -my $opt_help; # -h|--help -my $opt_version; # -V|--version -my $opt_warn_space; # -w|--warn-space -my $opt_crit_space; # -c|--crit-space - - - -my $help = <] [-c ] - - -d, --debug Output debug to screen. - -h, --help Displays this help and exits. - -w, --warn-space=... Warning threshold % free (default 15) - -c, --crit-space=... Critical threshold % free (default 10) - -V, --version Output version information and exit. - -MARK - -## We want exact matches to the switches - -Getopt::Long::config('no_auto_abbrev', 'no_ignore_case'); - - -my $rc = GetOptions( - "debug|d" => \$opt_debug, - "help|h" => \$opt_help, - "w|warn-space=s" => \$opt_warn_space, - "c|crit-space=s" => \$opt_crit_space, - "V|version" => \$opt_version, - ); - - -#*********************************************************************** -# Process command-line switches -#*********************************************************************** - -if (! $rc || defined $opt_help) -{ - print STDERR $help; - exit (defined $opt_help ? 0 : 1); -} - -if (defined $opt_version) -{ - print STDERR "check_oracle_tbs v$VERSION\n"; - exit 0; -} - -if (! defined $opt_warn_space) -{ - if(defined $opt_debug) { - print STDOUT "Warn space not defined, using 80%\n\n"; - } - $opt_warn_space = 15; -} - -if (! defined $opt_crit_space) -{ - if(defined $opt_debug) { - print STDOUT "Crit space not defined, using 90%\n\n"; - } - $opt_crit_space = 10; -} - -my $array_ref = executeSQL(); - -# Don't match certain tablespaces. -foreach my $row (@$array_ref) { - my ( $tbs_name, $free_mb, $tot_mb, $free_pct) = @$row; - if ($opt_debug) { print STDOUT "Output: $tbs_name\t$tot_mb\t$free_mb\t$free_pct\n\n"; } - if ($free_pct < $opt_crit_space && $tbs_name !~ /RBS/ && $tbs_name !~ /PERFSTAT/ && $tbs_name !~ /UNDOTBS/) { - $state = $ERRORS{'CRITICAL'}; - $answer .= "Critical: $tbs_name = $free_pct\% "; - last; - } - if ($free_pct < $opt_warn_space && $tbs_name !~ /RBS/ && $tbs_name !~ /PERFSTAT/ && $tbs_name !~ /UNDOTBS/) { - $state = $ERRORS{'WARNING'}; - $answer .= "Warning: $tbs_name = $free_pct\% "; - } -} - -if ($state != $ERRORS{'CRITICAL'} && $state != $ERRORS{'WARNING'}) { - $state = $ERRORS{'OK'}; - $answer = "All Tablespaces OK"; -} - -if ($opt_debug && $state != $ERRORS{'OK'}) { print STDOUT "The following tablespaces are in question: $answer\n\n"; } - -foreach my $key (keys %ERRORS) { - if ($state==$ERRORS{$key}) { - print ("$key: $answer"); - last; - } -} -exit $state; - -#------------------SUBS------------------------------------------------------- -sub executeSQL -{ - my ($dbh, $sth, $results); - - $dbh = openOracle(); - - eval { - $dbh->{RaiseError} = 1; - $sth = $dbh->prepare(q{ - select ts.tablespace_name, - trunc(sum(ts.free_b)/1024/1024) free, - trunc(sum(ts.max_b)/1024/1024) total, - trunc( sum(ts.free_b)/sum(ts.max_b)*1000) / 10 as pct_free - from - (select a.file_id, - a.tablespace_name, - decode(a.autoextensible,'YES',a.maxsize-a.bytes+b.free,'NO',b.free) free_b, - a.maxsize max_b - from (select file_id, - tablespace_name, - autoextensible, - bytes, - decode(autoextensible,'YES',maxbytes,bytes) maxsize - from dba_data_files) a, - (select file_id, - tablespace_name, - sum(bytes) free - from dba_free_space - group by file_id, tablespace_name) b - where a.file_id=b.file_id(+)) ts - group by tablespace_name - }); - - $sth->execute(); - $results = $sth->fetchall_arrayref(); - $sth->finish; - $dbh->{RaiseError} = 0; - }; - - if ($@) { - closeOracle($dbh); - if($opt_debug) { print STDOUT "DB Failed Query: $@\n"; } - CleanupAndExit($ERRORS{'UNKNOWN'}); - } - - closeOracle($dbh); - - return $results; -} - -#------ Open the connection to the database and return the handle -sub openOracle -{ - my ($dbh); - - $dbh = DBI->connect("$orasid", "$orauser", "$orapwd", "Oracle"); - - if (!$dbh) { - if ($opt_debug) { print "ERROR: Could not connect to Oracle!\n\n"; } - CleanupAndExit($ERRORS{'UNKNOWN'}); - } - if ($opt_debug) { print "Connected to Oracle SID $orasid\n\n"; } - return $dbh; -} - -#------- Close the database connection -sub closeOracle() -{ - my ($dbh) = @_; - - $dbh->disconnect; -} - -#------ Exit with the current return code -sub CleanupAndExit -{ - my ($rc) = @_; - - exit($rc); -} - -- cgit v1.2.3-74-g34f1