Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

Initial version

Browse Source
This commit is contained in:
Anders Nordby 2010-05-25 09:48:11 +02:00 committed by Steve Schnepp
parent 7d58463dab
commit 624ffe798f
1 changed files with 150 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

150
plugins/other/oracle_sysmetricspl Executable file
View File

@ -0,0 +1,150 @@
#! /usr/local/bin/perl -w
# anders@fupp.net, 2007-09-19
# If you found this plugin useful, let me know. :-)
#
# Munin plugin to show:
#
# - number of user transactions per second.
# - number of full index scans per second.
# - any value from v$sysmetric, if extended.
#
# For making this plugin run, make sure that:
#
# 1) The user or group that munin-node runs as, has access to $ORACLE_HOME
# and especially the library directories. Adding the user to a group to
# give access is not enough, if so it needs to have the group as its primary
# group.
#
# 2) The Perl installation indicated with the path on line 1, has DBI and
# DBD::Oracle installed.
#
# 3) You use 32-bit libraries ($ORACLE_HOME/lib32) if your Perl is 32-bit,
# and vice versa ($ORACLE_HOME/lib) for 64-bit.
#
# PS: A solution for 2 and 3 may be to use $ORACLE_HOME/perl/bin/perl.
#
# 4) Configuration variables below are set correctly.
#
# 5) That the user munin-node runs has, has access to a valid tnsnames.ora
# file in $ORACLE_HOME/network/admin/tnsnames.ora or $HOME/.tnsnames.ora.
# Some admins may prefer to have a separate tnsnames.ora for monitoring.
#
# 6) You link up this script to oracle_transactions or oracle_indexscans in
# the plugins-dir.
# --- configuration ---
$ENV{'ORACLE_HOME'} = '/foo/oracle/10.2';
$ENV{'LD_LIBRARY_PATH'} = '/foo/oracle/10.2/lib';
$ENV{'HOME'} = '/home/munin';
my $dbdriver="Oracle";
my $dbhost="localhost";
my $dbuser="myuser";
my $dbpw="mypass";
my $dbname="mydb";
# --- end, configuration ---
my $name = $0;
# Remove extra chars
$name =~ s@^.*?(\w+)$@$1@;
# Remove base name for plugin
$name =~ s@^oracle_@@;
use DBI;
$|=1; # Flush stdout after every write.
sub dbconnect {
if ($dbh = DBI->connect("dbi:$dbdriver:$dbname",$dbuser,$dbpw,{ PrintError => 1 })) {
return(1);
} else {
return(0);
}
}
sub dbdisconnect {
$dbh->disconnect;
}
sub listvalues {
if (dbconnect) {
$dbq = $dbh->prepare('select * from v$sysmetric');
$dbq->execute;
my $columns = $dbq->{NAME};
my $kolonner = "@$columns";
print "Kolonner: $kolonner\n";
while ( my @row = $dbq->fetchrow_array ) {
print "@row\n";
}
$dbq->finish;
dbdisconnect;
}
}
sub getvalues {
my $metric = shift;
my $label = shift;
if (dbconnect) {
$dbq = $dbh->prepare('select * from v$sysmetric');
$dbq->execute;
while ( my $row = $dbq->fetchrow_hashref() ) {
if ($row->{METRIC_NAME} eq "$metric") {
my $val = $row->{VALUE};
$val =~ s@,@.@;
if (substr($val,0,1) eq "." ) {
print "$label.value 0" . $val . "\n";
} else {
print "$label.value " . $val . "\n";
}
last;
}
}
$dbq->finish;
dbdisconnect;
}
}
sub printconfig {
if ($name eq "transactions") {
print "graph_title User transactions\n";
print "graph_vlabel transactions per second\n";
print "graph_category Oracle\n";
print "graph_info This graph shows the number of users transactions per second in Oracle\n";
print "graph_args --base 1000 -l 0\n";
print "transactions.label transactions\n";
print "transactions.type GAUGE\n";
print "transactions.graph yes\n";
} elsif ($name eq "indexscans") {
print "graph_title Full index scans\n";
print "graph_vlabel indexscans per second\n";
print "graph_category Oracle\n";
print "graph_info This graph shows the number of full index scans per second in Oracle\n";
print "graph_args --base 1000 -l 0\n";
print "indexscans.label indexscans\n";
print "indexscans.type GAUGE\n";
print "indexscans.graph yes\n";
} else {
print "No config for $name.\n";
}
}
sub dovalues {
if ($name eq "transactions") {
getvalues("User Transaction Per Sec", "transactions");
} elsif ($name eq "indexscans") {
getvalues("Full Index Scans Per Sec", "indexscans");
} else {
listvalues;
}
}
if ($ARGV[0] && $ARGV[0] eq "autoconf") {
print "yes\n";
} elsif ($ARGV[0] && $ARGV[0] eq "config") {
printconfig;
} else {
dovalues;
}