68 lines
1.6 KiB
Perl
68 lines
1.6 KiB
Perl
package Lemonldap::NG::Common::Conf::Backends::CDBI;
|
|
|
|
use strict;
|
|
use utf8;
|
|
use JSON;
|
|
use Lemonldap::NG::Common::Conf::Backends::_DBI;
|
|
|
|
our $VERSION = '2.1.0';
|
|
our @ISA = qw(Lemonldap::NG::Common::Conf::Backends::_DBI);
|
|
|
|
sub store {
|
|
my ( $self, $fields ) = @_;
|
|
my $cfgNum = $fields->{cfgNum};
|
|
my $req;
|
|
my $lastCfg = $self->lastCfg;
|
|
|
|
$fields = to_json($fields);
|
|
|
|
if ( $lastCfg == $cfgNum ) {
|
|
$req = $self->_dbh->prepare(
|
|
"UPDATE $self->{dbiTable} SET data=? WHERE cfgNum=?");
|
|
}
|
|
else {
|
|
$req = $self->_dbh->prepare(
|
|
"INSERT INTO $self->{dbiTable} (data,cfgNum) VALUES (?,?)");
|
|
}
|
|
unless ($req) {
|
|
$self->logError;
|
|
return UNKNOWN_ERROR;
|
|
}
|
|
my $execute;
|
|
eval { $execute = $req->execute( $fields, $cfgNum ); };
|
|
unless ($execute) {
|
|
$self->logError;
|
|
return UNKNOWN_ERROR;
|
|
}
|
|
return $cfgNum;
|
|
}
|
|
|
|
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;
|
|
if ( $row->[0] =~ /^\s*\{/s ) {
|
|
eval { $r = from_json( $row->[0], { allow_nonref => 1 } ); };
|
|
}
|
|
else { # Old format
|
|
require Storable;
|
|
eval { $r = Storable::thaw( $row->[0] ); };
|
|
}
|
|
if ($@) {
|
|
$Lemonldap::NG::Common::Conf::msg .=
|
|
"Bad stored data in conf database: $@ \n";
|
|
return 0;
|
|
}
|
|
return $r;
|
|
}
|
|
|
|
1;
|
|
__END__
|