diff options
| author | Oliver Tappe | 2007-04-13 16:24:31 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-04-13 16:24:31 +0200 |
| commit | 7b3b226ed2a7b3bcc173e047359ac847624ce527 (patch) | |
| tree | 397cd0f722f4d164f02f6089d80eaeb6c08aecda /config-db | |
| parent | * fixed incorrect module names in error message. (diff) | |
| download | core-7b3b226ed2a7b3bcc173e047359ac847624ce527.tar.gz core-7b3b226ed2a7b3bcc173e047359ac847624ce527.tar.xz core-7b3b226ed2a7b3bcc173e047359ac847624ce527.zip | |
* improved error message in case a database module could
not be loaded
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@886 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/CSV.pm | 2 | ||||
| -rw-r--r-- | config-db/OpenSLX/MetaDB/SQLite.pm | 2 | ||||
| -rw-r--r-- | config-db/OpenSLX/MetaDB/mysql.pm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm index 44bd2158..39cf13f0 100644 --- a/config-db/OpenSLX/MetaDB/CSV.pm +++ b/config-db/OpenSLX/MetaDB/CSV.pm @@ -65,7 +65,7 @@ sub connect vlog 1, "trying to connect to CSV-database <$dbSpec>"; eval ('require DBD::CSV; 1;') or die _tr(qq[%s doesn't seem to be installed, -so there is no support for %s available, sorry!\n], 'DBD::CSV', 'CSV'); +so there is no support for %s available, sorry!\n%s], 'DBD::CSV', 'CSV', $@); $self->{'dbh'} = DBI->connect("dbi:CSV:$dbSpec", undef, undef, {PrintError => 0}) or confess _tr("Cannot connect to database <%s> (%s)", diff --git a/config-db/OpenSLX/MetaDB/SQLite.pm b/config-db/OpenSLX/MetaDB/SQLite.pm index 493f0a0a..4b574639 100644 --- a/config-db/OpenSLX/MetaDB/SQLite.pm +++ b/config-db/OpenSLX/MetaDB/SQLite.pm @@ -58,7 +58,7 @@ sub connect vlog 1, "trying to connect to SQLite-database <$dbSpec>"; eval ('require DBD::SQLite; 1;') or die _tr(qq[%s doesn't seem to be installed, -so there is no support for %s available, sorry!\n], 'DBD::SQLite', 'SQLite'); +so there is no support for %s available, sorry!\n%s], 'DBD::SQLite', 'SQLite', $@); $self->{'dbh'} = DBI->connect("dbi:SQLite:$dbSpec", undef, undef, {PrintError => 0, AutoCommit => 1}) or confess _tr("Cannot connect to database <%s> (%s)", diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm index dcb7ff0e..4e580af0 100644 --- a/config-db/OpenSLX/MetaDB/mysql.pm +++ b/config-db/OpenSLX/MetaDB/mysql.pm @@ -55,7 +55,7 @@ sub connect vlog 1, "trying to connect user <$user> to mysql-database <$dbSpec>"; eval ('require DBD::mysql; 1;') or die _tr(qq[%s doesn't seem to be installed, -so there is no support for %s available, sorry!\n], 'DBD::mysql', 'mysql'); +so there is no support for %s available, sorry!\n%s], 'DBD::mysql', 'mysql', $@); $self->{'dbh'} = DBI->connect("dbi:mysql:$dbSpec", $user, '', {PrintError => 0}) or confess _tr("Cannot connect to database <%s> (%s)", |