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