diff options
author | Oliver Tappe | 2007-04-08 13:45:52 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-04-08 13:45:52 +0200 |
commit | 733c1d324f5a1c59c8f4dad23e780685e6bd7196 (patch) | |
tree | 6e8950e0f203902bbcc4d877126131889d47d1ef /config-db | |
parent | The acpi/powersaved heavily depend on dbus (on SuSE 10++ systems), (diff) | |
download | core-733c1d324f5a1c59c8f4dad23e780685e6bd7196.tar.gz core-733c1d324f5a1c59c8f4dad23e780685e6bd7196.tar.xz core-733c1d324f5a1c59c8f4dad23e780685e6bd7196.zip |
* db-type no longer requires exact case matching of the respective module name (so you
can now say --db-type=csv in order to request the 'CSV'-module).
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@870 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db')
-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) { |