+
+sub GetDbConnInfo
+{
+ my($self, $dbi) = @_;
+ my($ret, $mesg, $dbConfig);
+
+ $dbConfig = "$self->{TopDir}/conf/db.pl";
+
+ our %Db;
+
+ if ( !defined($ret = do $dbConfig) && ($! || $@) ) {
+ $mesg = "Couldn't open $dbConfig: $!" if ( $! );
+ $mesg = "Couldn't execute $dbConfig: $@" if ( $@ );
+ $mesg =~ s/[\n\r]+//;
+
+ $self->{errstr} = $mesg;
+ return undef;
+ }
+
+ $Db{passwd} = $ENV{BPC_DBPASSWD} if !exists $Db{passwd};
+
+ my %parm = %Db;
+ undef %Db;
+
+ return %parm;
+}