dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update cronjob to use Common::Session module (#671)

Browse Source
This commit is contained in:
Clément Oudot 2014-04-25 08:20:00 +00:00
parent 43a36aba3c
commit 25930249f8
2 changed files with 42 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lemonldap-ng-handler/example/scripts/purgeLocalCache
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
#=============================================================================
# Cleaner for LemonLDAP::NG: purge local handler cache
# 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.
@ -23,10 +23,19 @@ my $conf = $lmconf->getLocalConf(HANDLERSECTION)
or die "Unable to get local configuration ($!)";
print "Configuration loaded\n" if $debug;
# Handler cache
exit 0 unless ( $conf->{localStorage} );
eval "require $conf->{localStorage}";
$conf->{localStorageOptions}->{default_expires_in} ||= 600;
my $c = $conf->{localStorage}->new( $conf->{localStorageOptions} );
$c->purge();
# Session cache
exit 0 unless ( $conf->{localSessionStorage} );
eval "require $conf->{localSessionStorage}";
$conf->{localSessionStorageOptions}->{default_expires_in} ||= 600;
my $s = $conf->{localSessionStorage}->new( $conf->{localSessionStorageOptions} );
$s->purge();
exit 0;

42
lemonldap-ng-portal/example/scripts/purgeCentralCache
View File

@ -11,6 +11,7 @@
use Lemonldap::NG::Common::Conf;
use Lemonldap::NG::Common::Conf::Constants;
use Lemonldap::NG::Common::Apache::Session;
use Lemonldap::NG::Common::Session;
use strict;
use Getopt::Std;
@ -44,9 +45,6 @@ print "Configuration loaded\n" if $debug;
#=============================================================================
# Timeout
#=============================================================================
$conf->{timeout} ||= 7200;
$conf->{timeoutActivity} ||= 0;
print "Timeout value: " . $conf->{timeout} . "\n" if $debug;
#=============================================================================
@ -87,6 +85,23 @@ if ( defined $conf->{samlStorage}
print "SAML backend $module will be used\n" if $debug;
}
# CAS
if ( defined $conf->{casStorage}
or keys %{ $conf->{casStorageOptions} } )
{
# Load module
$module = $conf->{casStorage} || $conf->{globalStorage};
eval "use $module";
die $@ if ($@);
$conf->{casStorageOptions}->{backend} = $module;
# Add module in managed backends
push @backends, $conf->{casStorageOptions};
print "CAS backend $module will be used\n" if $debug;
}
#=============================================================================
# Load and purge sessions
#=============================================================================
@ -136,18 +151,25 @@ for my $options (@backends) {
# Delete sessions
my @errors;
for my $id (@t) {
my %h;
eval { tie %h, "Lemonldap::NG::Common::Apache::Session", $id, $options };
if ($@) {
print "Error while opening session $id: $@\n" if $debug;
my $session = Lemonldap::NG::Common::Session->new(
storageModule => $options->{backend},
storageModuleOptions => $options,
cacheModule => $conf->{localSessionStorage},
cacheModuleOptions => $conf->{localSessionStorageOptions},
id => $id,
);
unless ( $session->data ) {
print "Error while opening session $id\n" if $debug;
print STDERR "Error on session $id\n";
$nb_error++;
push @errors, $id;
next;
}
eval { tied(%h)->delete; };
if ($@) {
print "Error while deleting session $id: $@\n" if $debug;
unless ( $session->remove ) {
print "Error while deleting session $id\n" if $debug;
print STDERR "Error on session $id\n";
$nb_error++;
push @errors, $id;