#!/bin/perl
#
# genOra
# Michael Han, (c) 4/2002
# 
# Generate an appropriate targets file for monitoring an Oracle database
# via cricket
#
# This work is based on Mike Fisher's contributed scripts for monitoring
# Cisco equipment. I originally wrote this in shell instrumenting the
# net-snmp commands, but adapted the snmpUtil library as utilized in Mike
# Fisher's work
#
# $Id: genOra,v 1.1 2002/06/25 19:06:06 mikehan Exp $

BEGIN {
	$gInstallRoot = (($0 =~ m:^(.*/):)[0] || "./") . "..";
}

use lib "$gInstallRoot/lib";

use snmpUtils;
use Common::Log;
use Getopt::Std;

my %opts;
getopts( "c:h:p:12", \%opts );

if ( scalar @ARGV != 1 ) {
	print "Usage: $0 [-c community|-h host|-p port|{-1|-2}] {ORACLE_SID}\n";
	exit 2;
}
$sid = shift;

$community	= $opts{'c'} ? $opts{'c'} : "public";
$host		= $opts{'h'} ? $opts{'h'} : "localhost";
$port		= $opts{'p'} ? $opts{'p'} : "161";
$proto		= $opts{'2'} ? "2" : "1";

$snmp = "$community\@${host}:$port";
if ( $proto == 2 ) { $snmp .= ":::::2c"; }

@sid = snmpUtils::walk( $snmp, "1.3.6.1.2.1.39.1.1.1.4" );
%inst = map( {reverse split /:/, $_, 2 } @sid );
$inst = $inst{ $sid };

if ( ! "$inst" ) {
	print "SID $sid not handled by given SNMP agent\n";
	exit 1;
}

print <<BEGIN;

target	--default--
	sid =		$sid
	snmp-host =	$host
	inst =		map(sid)
	directory-desc=	"$sid Oracle RDBMS on $host"

target	size
	target-type =	dbSize
	short-desc =	"Total storage footprint"
	order =		10

target	activity
	target-type =	dbSrvActivity
	short-desc =	"Serverwide Operations"
	order =		5

BEGIN

@libcache = snmpUtils::walk( $snmp, "1.3.6.1.4.1.111.4.1.4.1.2.$inst" );
foreach $libcache ( @libcache ) {
	$libcache =~ s#^[^:]*:##;
	$clean = $libcache;
	$clean =~ s#[ /]#_#g;
	print <<LIBCACHE;
target	libcache_$clean
	target-type =	dbLibraryCache
	libcache =	"$libcache"
	inst =		map(libcache)
	short-desc =	"$libcache Cache Performance"
	order =		1

LIBCACHE
}

print <<LIBCACHESUM;
target	sum_libcache
	target-type =	dbLibCacheSum
	short-desc =	"Summary of all libraries"
	order =		1

LIBCACHESUM

@table = snmpUtils::walk( $snmp, "1.3.6.1.4.1.111.4.1.2.1.2.$inst" );
foreach $table ( @table ) {
	$table =~ s#^[^:]*:##;
	$clean = $table;
	$clean =~ s#[ /]#_#g;
	print <<TABLE;
target	tbl_$clean
	target-type =	dbTableSpace
	table =		"$table"
	inst =		map(table)
	short-desc =	"table for $table"

TABLE
}

@datafile = snmpUtils::walk( $snmp, "1.3.6.1.4.1.111.4.1.3.1.2.$inst" );
foreach $datafile ( @datafile ) {
	$datafile =~ s#^[^:]*:##;
	$clean = $datafile;
	$clean =~ s#[ /]#_#g;
	print <<DATAFILE;
target	$clean
	target-type =	dbDatafile
	datafile =	"$datafile"
	inst =		map(datafile)
	short-desc =	"datafile $datafile activity"

DATAFILE
}