3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.4 2002/11/17 08:46:42 jonen |
7 |
|
# + wrapped eval around DBI->connect to prevent deaths |
8 |
|
# |
9 |
# Revision 1.3 2002/11/17 06:34:39 joko |
# Revision 1.3 2002/11/17 06:34:39 joko |
10 |
# + locator metadata can now be reached via ->{locator} |
# + locator metadata can now be reached via ->{locator} |
11 |
# - sub hash2sql now taken from libdb |
# - sub hash2sql now taken from libdb |
55 |
|
|
56 |
#use Data::Dumper; print Dumper($self->{dbi}); |
#use Data::Dumper; print Dumper($self->{dbi}); |
57 |
|
|
58 |
$self->{COREHANDLE} = DBI->connect( $dsn, '', '', $self->{locator}->{dbi} ); |
eval { |
59 |
if (!$self->{COREHANDLE}) { |
$self->{COREHANDLE} = DBI->connect( $dsn, '', '', $self->{locator}->{dbi} ); |
60 |
$logger->warning( __PACKAGE__ . "->connect failed: " . DBI::errstr ); |
if (!$self->{COREHANDLE}) { |
61 |
return; |
$logger->warning( __PACKAGE__ . "->connect failed: " . DBI::errstr ); |
62 |
} |
return; |
63 |
|
} |
64 |
|
}; |
65 |
|
$logger->warning( __PACKAGE__ . "->connect failed: " . $@ ) if $@; |
66 |
|
|
67 |
} |
} |
68 |
$self->configureCOREHANDLE(); |
$self->configureCOREHANDLE(); |
69 |
|
|
177 |
} |
} |
178 |
|
|
179 |
|
|
|
1; |
|
180 |
|
1; |