This file is indexed.

/usr/share/lemonldap-ng/bin/purgeLocalCache is in liblemonldap-ng-handler-perl 1.4.6-3.

This file is owned by root:root, with mode 0o755.

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
#!/usr/bin/perl
#=============================================================================
# Cleaner for LemonLDAP::NG: purge local handler cache and session cache
#
# This module is written to be used by cron to clean cache objects used
# by Handler.
#
# This is part of LemonLDAP::NG product, released under GPL
#=============================================================================

use Lemonldap::NG::Common::Conf;
use Lemonldap::NG::Common::Conf::Constants;
use strict;

my $debug = 0;

#=============================================================================
# Load configuration
#=============================================================================
my $lmconf = Lemonldap::NG::Common::Conf->new()
  or die $Lemonldap::NG::Common::Conf::msg;
my $conf = $lmconf->getLocalConf(HANDLERSECTION)
  or die "Unable to get local configuration ($!)";

print "Configuration loaded\n" if $debug;

# Handler cache
if ( $conf->{localStorage} ) {
    eval "require $conf->{localStorage}";
    $conf->{localStorageOptions}->{default_expires_in} ||= 600;
    my $c = $conf->{localStorage}->new( $conf->{localStorageOptions} );
    $c->purge();
}

# Session cache
if ( $conf->{localSessionStorage} ) {
    eval "require $conf->{localSessionStorage}";
    $conf->{localSessionStorageOptions}->{default_expires_in} ||= 600;
    my $s =
      $conf->{localSessionStorage}->new( $conf->{localSessionStorageOptions} );
    $s->purge();
}

exit 0;