/usr/share/perl5/Lemonldap/NG/Common/Conf/CDBI.pm is in liblemonldap-ng-common-perl 1.9.16-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | package Lemonldap::NG::Common::Conf::CDBI;
use strict;
use utf8;
use JSON;
use Lemonldap::NG::Common::Conf::_DBI;
our $VERSION = '1.9.13';
our @ISA = qw(Lemonldap::NG::Common::Conf::_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__
|