From 1c3f0275b1a8d7858c1a08edcb868792d85fd560 Mon Sep 17 00:00:00 2001 From: Vanessa Gil Date: Fri, 17 Apr 2015 14:54:17 +0200 Subject: [PATCH] Ticket #1353. --- pandora_server/util/pandora_db.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/pandora_server/util/pandora_db.pl b/pandora_server/util/pandora_db.pl index d56729fae3..b0f691506e 100644 --- a/pandora_server/util/pandora_db.pl +++ b/pandora_server/util/pandora_db.pl @@ -99,6 +99,9 @@ sub pandora_purgedb ($$) { # Delete old export data pandora_delete_old_export_data ($dbh, $ulimit_timestamp); + + # Delete sessions data + pandora_delete_old_session_data ($dbh, $ulimit_timestamp); # Delete old inventory data if (enterprise_load (\%conf) != 0) { @@ -949,6 +952,18 @@ sub pandora_delete_old_export_data { }; } +############################################################################## +# Delete old session data. +############################################################################## +sub pandora_delete_old_session_data { + my ($dbh, $ulimit_timestamp) = @_; + + log_message ('PURGE', "Deleting old session data from tsessions_php\n"); + while(db_do ($dbh, "DELETE FROM tsessions_php WHERE last_active < ? LIMIT $SMALL_OPERATION_STEP", $ulimit_timestamp) ne '0E0') { + usleep (10000); + }; +} + ############################################################################### # Main ###############################################################################