Oracle Instance Monitoring

s-bolyard

Hello,

I'm being asked to monitor an Oracle instance running on a Linux server.  They want to be alerted when it goes down.  I do not have DPA, I wish I did, but we're cheap .  I don't know much about Oracle and so I'm reaching out to my SolarWinds brothers and sisters to see what you are doing.  Are you using a template or did you script something out.  Anything guidance will be very helpful.  Thank you all in advance.

keegen

I'm using this script：

#! /usr/bin/perl -w
use strict;
use DBI;
use Getopt::Std;

my %options=();
getopts("n:", \%options);

# test for the existence of the options on the command line.
# in a normal program you'd do more than just print these.
my $server_name=$options{n};

my @row ;
my $tnsname="(DESCRIPTION =(ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST = IPADDRESS)(PORT = 1521)))(CONNECT_DATA =(SERVICE_NAME = $server_name)))";
my $username="monitor_user";
my $password="password";

my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2);

my $result="";
my $flag="0";

my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password) or die "Cannot conenct db: $DBI::errstr\n";
#print "I have connected to the Oracle database!\n";

my $sth=$dbh->prepare("select inst_id,active_state from gv\$instance" );
$sth->execute();
while (@row = $sth->fetchrow_array()) {
my $inst_id=$row[0];
my $active_state=$row[1];
if($active_state ne "NORMAL"){
$result=$result." ".$inst_id.":".$active_state;
$flag="2";
}else{
$result=$result." ".$inst_id.":".$active_state;
}
}
$dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";

#print "Disconnected from Oracle databae!\n";

if($flag eq "0"){
print "OK $result";
# $result="OK\n";
# print "$result";
exit $ERRORS{"OK"};
}else{
print "$result";
exit $ERRORS{"CRITICAL"};
}