use strict;
use DBI;
-our $SELF;
+
+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;
+}
sub BackupInfoRead
{
sub ConfigWrite {
my($self, $client) = @_;
- $SELF = $self;
my $dbh = $self->{dbh};
$dbh->{RaiseError} = 0;
sub _ConfigWriteScalar {
my($dbh, $def, $client, $attr, $val) = @_;
- $SELF->Debug("SCALAR $val") if $attr eq 'BackupFilesOnly';
return if !defined $val;
my $ref = ref $val;
sub _ConfigWriteArray {
my($dbh, $def, $client, $attr, $val, $key) = @_;
- $SELF->Debug("ARRAY $val, $key") if $attr eq 'BackupFilesOnly';
return if !defined $val;
$key = '' unless defined $key;
sub _ConfigWriteHash {
my($dbh, $def, $client, $attr, $val, $subscript) = @_;
- $SELF->Debug("HASH $val") if $attr eq 'BackupFilesOnly';
return if !defined $val;
$subscript = -1 unless defined $subscript;
sub _ConfigWriteHashOfArray {
my($dbh, $def, $client, $attr, $val) = @_;
- $SELF->Debug("HASHOFARRAY $val") if $attr eq 'BackupFilesOnly';
return if !defined $val;
my $ref = ref $val;