tokkee.org
Code
projects
/
nagiosplug.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
new version
[nagiosplug.git]
/
contrib
/
maser-oracle.pl
1
#!/usr/bin/perl
2
3
# Oracle plugin submitted by Christopher Maser (maser@onvista.de)
4
# 12/31/1999
5
6
my $host=$ARGV[0];
7
my @test=`tnsping $host`;
8
my $arg=$test[6];
9
chomp $arg;
10
if ($arg =~ /^OK (.*)/)
11
{print "$arg"; exit 0}
12
else {exit 2;}
13