From a90afe2fd1cb2709612eded667873d18aedf9b6c Mon Sep 17 00:00:00 2001 From: Mirko Tietgen Date: Tue, 28 May 2013 14:33:59 +0200 Subject: [PATCH] Bug 10361 - Add Option to cleanup_database.pl to purge search_history entries Add an option to cleanup_database.pl to purge the search_history entries older than X days. --- misc/cronjobs/cleanup_database.pl | 70 +++++++++++++++++++++--------------- 1 files changed, 41 insertions(+), 29 deletions(-) diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl index 99310df..68bea48 100755 --- a/misc/cronjobs/cleanup_database.pl +++ b/misc/cronjobs/cleanup_database.pl @@ -23,6 +23,7 @@ use warnings; use constant DEFAULT_ZEBRAQ_PURGEDAYS => 30; use constant DEFAULT_IMPORT_PURGEDAYS => 60; use constant DEFAULT_LOGS_PURGEDAYS => 180; +use constant DEFAULT_SEARCHHISTORY_PURGEDAYS => 30; BEGIN { # find Koha's Perl modules @@ -38,53 +39,57 @@ use Getopt::Long; sub usage { print STDERR < \$help, - 'sessions' => \$sessions, - 'sessdays:i' => \$sess_days, - 'v|verbose' => \$verbose, - 'm|mail' => \$mail, - 'zebraqueue:i' => \$zebraqueue_days, - 'merged' => \$purge_merged, - 'import:i' => \$pImport, - 'logs:i' => \$pLogs, + 'h|help' => \$help, + 'sessions' => \$sessions, + 'sessdays:i' => \$sess_days, + 'v|verbose' => \$verbose, + 'm|mail' => \$mail, + 'zebraqueue:i' => \$zebraqueue_days, + 'merged' => \$purge_merged, + 'import:i' => \$pImport, + 'logs:i' => \$pLogs, + 'searchhistory:i' => \$pSearchhistory, ) || usage(1); $sessions=1 if $sess_days && $sess_days>0; -# if --import, --logs or --zebraqueue were passed without number of days, +# if --import, --logs, --zebraqueue or --searchhistory were passed without number of days, # use defaults $pImport= DEFAULT_IMPORT_PURGEDAYS if defined($pImport) && $pImport==0; $pLogs= DEFAULT_LOGS_PURGEDAYS if defined($pLogs) && $pLogs==0; $zebraqueue_days= DEFAULT_ZEBRAQ_PURGEDAYS if defined($zebraqueue_days) && $zebraqueue_days==0; +$pSearchhistory= DEFAULT_SEARCHHISTORY_PURGEDAYS if defined($pSearchhistory) && $pSearchhistory==0; if ($help) { usage(0); } -if ( !( $sessions || $zebraqueue_days || $mail || $purge_merged || $pImport || $pLogs) ) { +if ( !( $sessions || $zebraqueue_days || $mail || $purge_merged || $pImport || $pLogs || $pSearchhistory ) ) { print "You did not specify any cleanup work for the script to do.\n\n"; usage(1); } @@ -170,6 +175,13 @@ if($pLogs) { print "Done with purging action_logs.\n" if $verbose; } +if($pSearchhistory) { + print "Purging records older than $pSearchhistory from search_history.\n" if $verbose; + $sth = $dbh->prepare("DELETE FROM search_history WHERE time < DATE_SUB( NOW(), INTERVAL ? DAY )"); + $sth->execute($pSearchhistory) or die $dbh->errstr; + print "Done with purging search_history.\n" if $verbose; +} + exit(0); sub RemoveOldSessions { -- 1.7.2.5