diff options
| -rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index efe15078..253cff9a 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -138,7 +138,20 @@ sub connect # specific metadb-module (not used yet) my $dbType = $openslxConfig{'db-type'}; - # name of underlying database module + # name of underlying database module... + + # map db-type to name of module, such that the user doesn't have + # to type the correct case: + my %dbTypeMap = ( + 'csv' => 'CSV', + 'mysql' => 'mysql', + 'sqlite' => 'SQLite', + ); + my $lcType = lc($dbType); + if (exists $dbTypeMap{$lcType}) { + $dbType = $dbTypeMap{$lcType}; + } + my $dbModule = "OpenSLX::MetaDB::$dbType"; unless (eval "require $dbModule") { if ($! == 2) { |