diff options
Diffstat (limited to 'contrib/check_oracle_instance.pl')
| -rw-r--r-- | contrib/check_oracle_instance.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/check_oracle_instance.pl b/contrib/check_oracle_instance.pl index 1175c1e..3ba8d57 100644 --- a/contrib/check_oracle_instance.pl +++ b/contrib/check_oracle_instance.pl | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
| 2 | # $Id$ | 2 | # $Id: check_oracle_instance.pl 10 2002-04-03 02:58:47Z sghosh $ |
| 3 | 3 | ||
| 4 | # Copyright (c) 2002 Sven Dolderer | 4 | # Copyright (c) 2002 Sven Dolderer |
| 5 | # some pieces of Code adopted from Adam vonNieda's oracletool.pl | 5 | # some pieces of Code adopted from Adam vonNieda's oracletool.pl |
| @@ -23,7 +23,7 @@ require DBD::Oracle || die "It appears that the DBD::Oracle module is not instal | |||
| 23 | 23 | ||
| 24 | use vars qw($VERSION $PROGNAME $logfile $debug $state $dbh $database $username $password $message $sql $cursor $opt_asession $opt_nsession $opt_tablespace $opt_nextents $opt_fextents $opt_aextents $privsok $warn $critical); | 24 | use vars qw($VERSION $PROGNAME $logfile $debug $state $dbh $database $username $password $message $sql $cursor $opt_asession $opt_nsession $opt_tablespace $opt_nextents $opt_fextents $opt_aextents $privsok $warn $critical); |
| 25 | 25 | ||
| 26 | '$Revision$' =~ /^.*(\d+.\d+) \$$/; # Use The Revision from RCS/CVS | 26 | '$Revision: 10 $' =~ /^.*(\d+.\d+) \$$/; # Use The Revision from RCS/CVS |
| 27 | $VERSION = $1; | 27 | $VERSION = $1; |
| 28 | $0 =~ m!^.*/([^/]+)$!; | 28 | $0 =~ m!^.*/([^/]+)$!; |
| 29 | $PROGNAME = $1; | 29 | $PROGNAME = $1; |