diff options
author | Oliver Tappe | 2007-07-31 23:38:03 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-07-31 23:38:03 +0200 |
commit | 880ba4090cd8af757f17604af3284afab6fd198c (patch) | |
tree | 4d37ef92b0cefc2ab1149d875b78fe0cf05dcd9e /config-db/OpenSLX/MetaDB | |
parent | * Fixed another bug reported by Bastian: (diff) | |
download | core-880ba4090cd8af757f17604af3284afab6fd198c.tar.gz core-880ba4090cd8af757f17604af3284afab6fd198c.tar.xz core-880ba4090cd8af757f17604af3284afab6fd198c.zip |
* 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
Diffstat (limited to 'config-db/OpenSLX/MetaDB')
-rw-r--r-- | config-db/OpenSLX/MetaDB/CSV.pm | 182 | ||||
-rw-r--r-- | config-db/OpenSLX/MetaDB/mysql.pm | 18 |
2 files changed, 15 insertions, 185 deletions
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; } |