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

@EXPORT = qw ($log $site $base $dbh);

use vars qw  ($log $site $base $dbh);

sub connectdb() {

  #Open the Oracle database:

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

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

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

  $dbh->trace(2,"$log");

  }


##</code><code>##


package SUBS;
use SUBS;
.
.
.
&connect_db();