diff options
author | Oliver Tappe | 2006-10-06 14:20:21 +0200 |
---|---|---|
committer | Oliver Tappe | 2006-10-06 14:20:21 +0200 |
commit | f4a1ab3c8bf782d14e7da07f1ed186a0755a6384 (patch) | |
tree | ee4678efc066ac86e14f35f71df8415da6a23d31 /config-db/OpenSLX/MetaDB/mysql.pm | |
parent | * minor formatting corrections (diff) | |
download | core-f4a1ab3c8bf782d14e7da07f1ed186a0755a6384.tar.gz core-f4a1ab3c8bf782d14e7da07f1ed186a0755a6384.tar.xz core-f4a1ab3c8bf782d14e7da07f1ed186a0755a6384.zip |
* added explicit check for required DBD-module in order to give a precise error-message
if the respective db-module is not installed.
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@443 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/MetaDB/mysql.pm')
-rw-r--r-- | config-db/OpenSLX/MetaDB/mysql.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm index 648fbd6b..1974a549 100644 --- a/config-db/OpenSLX/MetaDB/mysql.pm +++ b/config-db/OpenSLX/MetaDB/mysql.pm @@ -46,10 +46,13 @@ sub connectConfigDB } my $user = (getpwuid($>))[0]; vlog 1, "trying to connect user <$user> to mysql-database <$dbSpec>"; + eval ('require DBD::mysql; 1;') + or die _tr("DBD::mysql doesn't seem to be installed, " + ."so there is no support for mysql available, sorry!\n"); $self->{'dbh'} = DBI->connect("dbi:mysql:$dbSpec", $user, '', {PrintError => 0}) - or confess _tr("Cannot connect to database <%s> (%s)"), - $dbSpec, $DBI::errstr; + or confess _tr("Cannot connect to database <%s> (%s)", + $dbSpec, $DBI::errstr); } sub schemaConvertTypeDescrToNative |