* dropped support for CSV databases, as they are simply not good enough

* added support for db-user and db-passwd:
  + the mysql backend will now ask for the password upon connect
  + you can specify the db-user and db-passwd via slxsettings (so you never 
    have to enter it manually afterwards)
* slxsettings now checks db-type against an explicit pattern to avoid
  problems caused by typos


git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1295 95ad53e4-c205-0410-b2fa-d234c58c8868

3 files changed, 16 insertions, 187 deletions

diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm
index 402678e5..061b560f 100644
--- a/config-db/OpenSLX/ConfigDB.pm
+++ b/config-db/OpenSLX/ConfigDB.pm
@@ -155,7 +155,6 @@ sub connect		## no critic (ProhibitBuiltinHomonyms)
 	# 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',
 	);
@@ -180,7 +179,7 @@ sub connect		## no critic (ProhibitBuiltinHomonyms)
 	if (!$metaDB->connect($dbParams)) {
 		warn _tr("Unable to connect to DB-module <%s>\n%s", $dbModuleName, $@);
 		warn _tr("These DB-modules seem to work ok:");
-		foreach my $dbMod ('CSV', 'mysql', 'SQLite') {
+		foreach my $dbMod ('mysql', 'SQLite') {
 			my $fullDbModName = "DBD/$dbMod.pm";
 			if (eval { require $fullDbModName }) {
 				vlog(0, "\t$dbMod\n");
diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm
deleted file mode 100644
index fbd2c7ec..00000000
--- a/config-db/OpenSLX/MetaDB/CSV.pm
+++ /dev/null
@@ -1,182 +0,0 @@
-# Copyright (c) 2006, 2007 - OpenSLX GmbH
-#
-# This program is free software distributed under the GPL version 2.
-# See http://openslx.org/COPYING
-#
-# If you have any feedback please consult http://openslx.org/feedback and
-# send your suggestions, praise, or complaints to feedback@openslx.org
-#
-# General information about OpenSLX can be found at http://openslx.org/
-# -----------------------------------------------------------------------------
-# CSV.pm
-#	- provides CSV-specific overrides of the OpenSLX MetaDB API.
-# -----------------------------------------------------------------------------
-package OpenSLX::MetaDB::CSV;
-
-use strict;
-use warnings;
-
-use base qw(OpenSLX::MetaDB::DBI);
-
-################################################################################
-### This class provides a MetaDB backend for CSV files (CSV = comma separated
-### files).
-### - each table will be stored into a CSV file.
-### - by default all files will be created inside a 'openslxdata-csv' directory.
-################################################################################
-use Fcntl qw(:DEFAULT :flock);
-use DBD::CSV 0.22;
-use OpenSLX::Basics;
-
-################################################################################
-### implementation
-################################################################################
-sub new
-{
-	my $class = shift;
-	my $self  = {};
-	return bless $self, $class;
-}
-
-sub connect		## no critic (ProhibitBuiltinHomonyms)
-{
-	my $self = shift;
-
-	my $dbSpec = $openslxConfig{'db-spec'};
-	if (!defined $dbSpec) {
-		# build $dbSpec from individual parameters:
-		my $dbBasepath = "$openslxConfig{'private-path'}/db";
-		my $dbDatadir  = "$openslxConfig{'db-name'}-csv";
-		my $dbPath     = "$dbBasepath/$dbDatadir";
-		system("mkdir -p $dbPath") unless -e $dbPath;
-		$dbSpec = "f_dir=$dbPath;csv_eol=\n;";
-	}
-	vlog(1, "trying to connect to CSV-database <$dbSpec>");
-	$self->{'dbh'} =
-	  DBI->connect("dbi:CSV:$dbSpec", undef, undef, {PrintError => 0})
-	  or die _tr("Cannot connect to database '%s' (%s)", $dbSpec, $DBI::errstr);
-	return;
-}
-
-sub quote
-{    # DBD::CSV has a buggy quoting mechanism which can't cope with backslashes
-	    # so we reimplement the quoting ourselves...
-	my $self = shift;
-	my $val  = shift;
-
-	$val =~ s[(['])][\\$1]go;
-	return "'$val'";
-}
-
-sub start_transaction
-{       # simulate a global transaction by flocking a file:
-	my $self = shift;
-
-	my $dbh      = $self->{'dbh'};
-	my $lockFile = "$dbh->{'f_dir'}/transaction-lock";
-	sysopen(TRANSFILE, $lockFile, O_RDWR | O_CREAT)
-	  or croak _tr(q[Can't open transaction-file '%s' (%s)], $lockFile, $!);
-	$self->{"transaction-lock"} = *TRANSFILE;
-	flock(TRANSFILE, LOCK_EX)
-	  or croak _tr(q[Can't lock transaction-file '%s' (%s)], $lockFile, $!);
-	return;
-}
-
-sub commit_transaction
-{    # free transaction-lock
-	my $self = shift;
-
-	if (!defined $self->{"transaction-lock"}) {
-		croak _tr(q[no open transaction-lock found!]);
-	}
-	close($self->{"transaction-lock"});
-	$self->{"transaction-lock"} = undef;
-	return 1;
-}
-
-sub rollback_transaction
-{    # free transaction-lock
-	my $self = shift;
-
-	if (!defined $self->{"transaction-lock"}) {
-		croak _tr(q[no open transaction-lock found!]);
-	}
-	close($self->{"transaction-lock"});
-	$self->{"transaction-lock"} = undef;
-	return 1;
-}
-
-sub generateNextIdForTable
-{    # CSV doesn't provide any mechanism to generate IDs, we provide one
-	my $self  = shift;
-	my $table = shift;
-
-	return 1 unless defined $table;
-
-	# fetch the next ID from a table-specific file:
-	my $dbh    = $self->{'dbh'};
-	my $idFile = "$dbh->{'f_dir'}/id-$table";
-	sysopen(IDFILE, $idFile, O_RDWR | O_CREAT)
-	  or croak _tr(q[Can't open ID-file '%s' (%s)], $idFile, $!);
-	flock(IDFILE, LOCK_EX)
-	  or croak _tr(q[Can't lock ID-file '%s' (%s)], $idFile, $!);
-	my $nextID = <IDFILE>;
-	if (!$nextID) {
-		# no ID information available, we protect against users having
-		# deleted the ID-file by fetching the highest ID from the DB:
-		#
-		# N.B.: older versions of DBD::CSV (notably the one that comes with
-		#       SUSE-9.3) do not understand the max() function, so we determine
-		#       the maximum ID manually:
-		my @IDs =
-		  sort { $b <=> $a } $self->_doSelect("SELECT id FROM $table", 'id');
-		my $maxID = $IDs[0];
-		$nextID = 1 + $maxID;
-	}
-	seek(IDFILE, 0, 0)
-	  or croak _tr(q[Can't to seek ID-file '%s' (%s)], $idFile, $!);
-	truncate(IDFILE, 0)
-	  or croak _tr(q[Can't truncate ID-file '%s' (%s)], $idFile, $!);
-	print IDFILE $nextID + 1
-	  or croak _tr(q[Can't update ID-file '%s' (%s)], $idFile, $!);
-	close(IDFILE);
-
-	return $nextID;
-}
-
-sub schemaDeclareTable
-{    # explicitly set file name for each table such that it makes
-	    # use of '.csv'-extension
-	my $self  = shift;
-	my $table = shift;
-
-	my $dbh = $self->{'dbh'};
-	$dbh->{'csv_tables'}->{"$table"} = {'file' => "${table}.csv"};
-	return;
-}
-
-sub schemaRenameTable
-{       # renames corresponding id-file after renaming the table
-	my $self     = shift;
-	my $oldTable = shift;
-	my $newTable = shift;
-
-	$self->schemaDeclareTable($newTable);
-	$self->SUPER::schemaRenameTable($oldTable, $newTable, @_);
-	my $dbh = $self->{'dbh'};
-	rename "$dbh->{'f_dir'}/id-$oldTable", "$dbh->{'f_dir'}/id-$newTable";
-	return;
-}
-
-sub schemaDropTable
-{       # removes corresponding id-file after dropping the table
-	my $self  = shift;
-	my $table = shift;
-
-	$self->SUPER::schemaDropTable($table, @_);
-	my $dbh = $self->{'dbh'};
-	unlink "$dbh->{'f_dir'}/id-$table";
-	return;
-}
-
-1;
diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm
index 8206ec2a..865b035d 100644
--- a/config-db/OpenSLX/MetaDB/mysql.pm
+++ b/config-db/OpenSLX/MetaDB/mysql.pm
@@ -44,10 +44,22 @@ sub connect		## no critic (ProhibitBuiltinHomonyms)
 		# build $dbSpec from individual parameters:
 		$dbSpec = "database=$openslxConfig{'db-name'}";
 	}
-	my $user = (getpwuid($>))[0];
-	vlog(1, "trying to connect user <$user> to mysql-database <$dbSpec>");
+	my $dbUser
+		= $openslxConfig{'db-user'}
+			? $openslxConfig{'db-user'}
+			: (getpwuid($>))[0];
+	my $dbPasswd = $openslxConfig{'db-passwd'};
+	if (!defined $dbPasswd) {
+		use Term::ReadLine;
+		my $term = Term::ReadLine->new('slx');
+		my $attribs = $term->Attribs;
+		$attribs->{redisplay_function} = $attribs->{shadow_redisplay};
+        $dbPasswd = $term->readline("db-password> ");
+	}
+	
+	vlog(1, "trying to connect user '$dbUser' to mysql-database '$dbSpec'");
 	$self->{'dbh'} = DBI->connect(
-		"dbi:mysql:$dbSpec", $user, 'secret', {PrintError => 0}
+		"dbi:mysql:$dbSpec", $dbUser, $dbPasswd, {PrintError => 0}
 	) or die _tr("Cannot connect to database '%s' (%s)", $dbSpec, $DBI::errstr);
 	return 1;
 }