2009-10-21 14:43:13 +02:00
|
|
|
package Lemonldap::NG::Common::Conf::CDBI;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
require Storable;
|
2010-09-17 11:26:03 +02:00
|
|
|
use Lemonldap::NG::Common::Conf::_DBI;
|
2009-10-21 14:43:13 +02:00
|
|
|
|
2010-09-17 11:26:03 +02:00
|
|
|
our $VERSION = 0.2;
|
|
|
|
our @ISA = qw(Lemonldap::NG::Common::Conf::_DBI);
|
2009-10-21 14:43:13 +02:00
|
|
|
|
|
|
|
sub store {
|
|
|
|
my ( $self, $fields ) = @_;
|
2010-09-17 11:26:03 +02:00
|
|
|
my $cfgNum = $fields->{cfgNum};
|
2009-10-21 14:43:13 +02:00
|
|
|
$fields = Storable::nfreeze($fields);
|
|
|
|
$fields =~ s/'/''/gs;
|
|
|
|
my $tmp =
|
|
|
|
$self->_dbh->do( "insert into "
|
2010-03-01 21:32:28 +01:00
|
|
|
. $self->{dbiTable}
|
|
|
|
. " (cfgNum,data) values ($cfgNum,'$fields')" );
|
2009-10-21 14:43:13 +02:00
|
|
|
unless ($tmp) {
|
|
|
|
$self->logError;
|
|
|
|
return UNKNOWN_ERROR;
|
|
|
|
}
|
|
|
|
unless ( $self->unlock ) {
|
|
|
|
$self->logError;
|
|
|
|
return UNKNOWN_ERROR;
|
|
|
|
}
|
|
|
|
eval { $self->_dbh->do("COMMIT"); };
|
2010-09-17 11:26:03 +02:00
|
|
|
return $cfgNum;
|
2009-10-21 14:43:13 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
sub load {
|
|
|
|
my ( $self, $cfgNum, $fields ) = @_;
|
|
|
|
$fields = $fields ? join( ",", @$fields ) : '*';
|
|
|
|
my $row = $self->_dbh->selectrow_arrayref(
|
|
|
|
"SELECT data from " . $self->{dbiTable} . " WHERE cfgNum=$cfgNum" );
|
|
|
|
unless ($row) {
|
|
|
|
$self->logError;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
my $r;
|
2010-03-01 21:32:28 +01:00
|
|
|
eval { $r = Storable::thaw( $row->[1] ); };
|
2009-10-21 14:43:13 +02:00
|
|
|
if ($@) {
|
2010-03-01 21:32:28 +01:00
|
|
|
$Lemonldap::NG::Common::Conf::msg =
|
|
|
|
"Bad stored data in conf database: $@";
|
2009-10-21 14:43:13 +02:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
return $r;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|
|
|
|
__END__
|