package SUBS;
require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(
             &connectdb
            );

use strict;

#Open the Oracle database:

if (!defined(open(DBINFO, "$base/dbinfo"))) {
  die "Can't open dbinfo.\n";
}

while(defined($line = <DBINFO>)) {
  chomp($line);
  push @dbinfo, $line;
}
close(DBINFO);

$dbh = DBI->connect($dbinfo[0],$dbinfo[1],$dbinfo[2],$dbinfo[3],
                    { RaiseError => 1,
                      AutoCommit => 1}
                   );

}