From ac5ce7ed979f882f9d995ff51d9be45eaa1e3c20 Mon Sep 17 00:00:00 2001
From: Maxime Besson <maxime.besson@worteks.com>
Date: Fri, 6 Aug 2021 17:55:55 +0200
Subject: [PATCH] Try to get deleted session count from Session module (#2428)

---
 lemonldap-ng-portal/site/cron/purgeCentralCache | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/lemonldap-ng-portal/site/cron/purgeCentralCache b/lemonldap-ng-portal/site/cron/purgeCentralCache
index 7b476e9c2..665da37f9 100755
--- a/lemonldap-ng-portal/site/cron/purgeCentralCache
+++ b/lemonldap-ng-portal/site/cron/purgeCentralCache
@@ -144,8 +144,7 @@ for my $options (@backends) {
     next if ( $options->{backend} eq "Apache::Session::Memcached" );
     my @t;
     if ( $options->{backend}->can('deleteIfLowerThan') ) {
-        next
-          if $options->{backend}->deleteIfLowerThan(
+        my ( $success, $rows ) = $options->{backend}->deleteIfLowerThan(
             $options,
             {
                 not => { '_session_kind' => 'Persistent' },
@@ -158,7 +157,14 @@ for my $options (@backends) {
                     )
                 }
             }
-          );
+        );
+
+        if ($success) {
+            if ($rows) {
+                $nb_purged += $rows;
+            }
+            next;
+        }
     }
 
     # Get all expired sessions