use constant DEFAULT_SHARE_INVITATION_EXPIRY_DAYS => 14;
use constant DEFAULT_DEBARMENTS_PURGEDAYS => 30;
-BEGIN {
- # find Koha's Perl modules
- # test carefully before changing this
- use FindBin ();
- eval { require "$FindBin::Bin/../kohalib.pl" };
-}
-
use Koha::Script -cron;
use C4::Context;
use C4::Search;
use Koha::Item::Transfers;
use Koha::PseudonymizedTransactions;
use Koha::Patron::Messages;
+use Koha::Patron::Debarments qw( DelDebarment );
sub usage {
print STDERR <<USAGE;
amountoutstanding is 0 or NULL.
In the case of --fees, DAYS must be greater than
or equal to 1.
+ --log-modules Specify which action log modules to trim. Repeatable.
+ --preserve-log Specify which action logs to exclude. Repeatable.
--logs DAYS purge entries from action_logs older than DAYS days.
Defaults to 180 days if no days specified.
--searchhistory DAYS purge entries from search_history older than DAYS days.
days. Defaults to 14 days if no days specified.
--restrictions DAYS purge patrons restrictions expired since more than DAYS days.
Defaults to 30 days if no days specified.
- --all-restrictions purge all expired patrons restrictions.
+ --all-restrictions purge all expired patrons restrictions.
--del-exp-selfreg Delete expired self registration accounts
--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS
--unique-holidays DAYS Delete all unique holidays older than DAYS
--pseudo-transactions-from YYYY-MM-DD and/or --pseudo-transactions-to YYYY-MM-DD
--labels DAYS Purge item label batches last added to more than DAYS days ago.
--cards DAY Purge card creator batches last added to more than DAYS days ago.
-
+ --return-claims Purge all resolved return claims older than the number of days specified in
+ the system preference CleanUpDatabaseReturnClaims.
USAGE
exit $_[0];
}
my $pListShareInvites;
my $pDebarments;
my $allDebarments;
+my $return_claims;
my $pExpSelfReg;
my $pUnvSelfReg;
my $fees_days;
my $lock_days = C4::Context->preference('LockExpiredDelay');
my $labels;
my $cards;
+my @log_modules;
+my @preserve_logs;
+
+my $command_line_options = join(" ",@ARGV);
GetOptions(
'h|help' => \$help,
'import:i' => \$pImport,
'z3950' => \$pZ3950,
'logs:i' => \$pLogs,
+ 'log-module:s' => \@log_modules,
+ 'preserve-log:s' => \@preserve_logs,
'messages:i' => \$pMessages,
'fees:i' => \$fees_days,
'searchhistory:i' => \$pSearchhistory,
'restrictions:i' => \$pDebarments,
'all-restrictions' => \$allDebarments,
'del-exp-selfreg' => \$pExpSelfReg,
- 'del-unv-selfreg' => \$pUnvSelfReg,
+ 'del-unv-selfreg:i' => \$pUnvSelfReg,
'unique-holidays:i' => \$special_holidays_days,
'temp-uploads' => \$temp_uploads,
'temp-uploads-days:i' => \$temp_uploads_days,
'pseudo-transactions-to:s' => \$pPseudoTransactionsTo,
'labels' => \$labels,
'cards' => \$cards,
+ 'return-claims' => \$return_claims,
) || usage(1);
# Use default values
|| defined $lock_days && $lock_days ne q{}
|| $labels
|| $cards
+ || $return_claims
) {
print "You did not specify any cleanup work for the script to do.\n\n";
usage(1);
say "Confirm flag not passed, running in dry-run mode..." unless $confirm;
-cronlogaction() unless $confirm;
+cronlogaction({ info => $command_line_options });
my $dbh = C4::Context->dbh();
my $sth;
WHERE done=1 AND time < date_sub(curdate(), INTERVAL ? DAY)
}
);
- if ( $confirm ) {
- $sth->execute($zebraqueue_days) or die $dbh->errstr;
- }
+ $sth->execute($zebraqueue_days) or die $dbh->errstr;
$sth2 = $dbh->prepare(q{ DELETE FROM zebraqueue WHERE id=? });
while ( my $record = $sth->fetchrow_hashref ) {
if ( $confirm ) {
if ($pLogs) {
print "Purging records from action_logs.\n" if $verbose;
- $sth = $dbh->prepare(
- q{
+ my $log_query = q{
DELETE FROM action_logs
WHERE timestamp < date_sub(curdate(), INTERVAL ? DAY)
- }
- );
+ };
+ my @query_params = ();
+ if( @preserve_logs ){
+ $log_query .= " AND module NOT IN (" . join(',',('?') x @preserve_logs ) . ")";
+ push @query_params, @preserve_logs;
+ }
+ if( @log_modules ){
+ $log_query .= " AND module IN (" . join(',',('?') x @log_modules ) . ")";
+ push @query_params, @log_modules;
+ }
+ $sth = $dbh->prepare( $log_query );
if ( $confirm ) {
- $sth->execute($pLogs) or die $dbh->errstr;
+ $sth->execute($pLogs, @query_params) or die $dbh->errstr;
}
print "Done with purging action_logs.\n" if $verbose;
}
}
}
+if( $return_claims && ( my $days = C4::Context->preference('CleanUpDatabaseReturnClaims') )) {
+ print "Purging return claims older than $days days.\n" if $verbose;
+
+ $return_claims = Koha::Checkouts::ReturnClaims->filter_by_last_update(
+ {
+ timestamp_column_name => 'resolved_on',
+ days => $days,
+ }
+ );
+
+ my $count = $return_claims->count;
+ $return_claims->delete if $confirm;
+
+ if ($verbose) {
+ say $confirm
+ ? sprintf "Done with purging %d resolved return claims.", $count
+ : sprintf "%d resolved return claims would have been purged.", $count;
+ }
+}
+
if ($pDeletedCatalog) {
print "Purging deleted catalog older than $pDeletedCatalog days.\n"
if $verbose;
print "Purging old reserves older than $pOldReserves days.\n" if $verbose;
my $old_reserves = Koha::Old::Holds->filter_by_last_update( { days => $pOldReserves } );
my $count = $old_reserves->count;
- $old_reserves->delete if $verbose;
+ $old_reserves->delete if $confirm;
if ($verbose) {
say $confirm
? sprintf "Done with purging %d old reserves.", $count
}
);
my $count = $transfers->count;
- $transfers->delete if $verbose;
+ $transfers->delete if $confirm;
if ($verbose) {
say $confirm
? sprintf "Done with purging %d transfers.", $count
}
}
+cronlogaction({ action => 'End', info => "COMPLETED" });
+
exit(0);
sub RemoveOldSessions {