/usr/share/perl5/auto/Lemonldap/NG/Common/Apache/Session/_LDAPGKFAS.al 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 | # NOTE: Derived from blib/lib/Lemonldap/NG/Common/Apache/Session.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Lemonldap::NG::Common::Apache::Session;
#line 328 "blib/lib/Lemonldap/NG/Common/Apache/Session.pm (autosplit into blib/lib/auto/Lemonldap/NG/Common/Apache/Session/_LDAPGKFAS.al)"
sub _LDAPGKFAS {
my ( $class, $args, $data ) = @_;
$args->{ldapObjectClass} ||= 'applicationProcess';
$args->{ldapAttributeId} ||= 'cn';
$args->{ldapAttributeContent} ||= 'description';
my $ldap = Apache::Session::Store::LDAP::ldap( { args => $args } );
my $msg = $ldap->search(
base => $args->{ldapConfBase},
filter => '(objectClass=' . $args->{ldapObjectClass} . ')',
attrs => [ $args->{ldapAttributeId}, $args->{ldapAttributeContent} ],
);
$ldap->unbind();
$ldap->disconnect();
Apache::Session::Store::LDAP->logError($msg) if ( $msg->code );
my %res;
foreach my $entry ( $msg->entries ) {
my ( $k, $v ) = (
$entry->get_value( $args->{ldapAttributeId} ),
$entry->get_value( $args->{ldapAttributeContent} )
);
eval { $v = $args->{unserialize}->( $v, \&decodeThaw64 ); };
next if ($@);
if ( ref($data) eq 'CODE' ) {
$res{$k} = &$data( $v, $k );
}
elsif ($data) {
$data = [$data] unless ( ref($data) );
my $tmp = $v;
$res{$k}->{$_} = $tmp->{$_} foreach (@$data);
}
else {
$res{$k} = $v;
}
}
return \%res;
}
# end of Lemonldap::NG::Common::Apache::Session::_LDAPGKFAS
1;
|