/usr/share/perl5/auto/Lemonldap/NG/Common/Apache/Session/get_key_from_all_sessions.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 | # 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 155 "blib/lib/Lemonldap/NG/Common/Apache/Session.pm (autosplit into blib/lib/auto/Lemonldap/NG/Common/Apache/Session/get_key_from_all_sessions.al)"
sub get_key_from_all_sessions {
my $class = shift;
my ( $args, $data ) = @_;
my $backend = $args->{backend};
if ( _load( $backend, 'get_key_from_all_sessions' ) ) {
return $backend->get_key_from_all_sessions( $args, $data );
}
if ( $args->{useStorable} ) {
require Storable;
$args->{unserialize} = \&Storable::thaw;
}
else {
$args->{unserialize} =
\&Lemonldap::NG::Common::Apache::Session::Serialize::JSON::_unserialize;
}
if ( $backend =~
/^Apache::Session::(MySQL|MySQL::NoLock|Postgres|Oracle|Sybase|Informix)$/
)
{
return $class->_dbiGKFAS( $1, @_ );
}
elsif ( $backend =~ /^Apache::Session::(?:NoSQL|Redis|Cassandra)$/ ) {
return $class->_NoSQLGKFAS(@_);
}
elsif ( $backend =~ /^Apache::Session::(File|PHP|DBFile|LDAP)$/ ) {
no strict 'refs';
my $tmp = "_${1}GKFAS";
return $class->$tmp(@_);
}
else {
die "$backend can not provide session exploration";
}
}
# end of Lemonldap::NG::Common::Apache::Session::get_key_from_all_sessions
1;
|