Lines 45-51
use Koha::UploadedFiles;
Link Here
|
45 |
|
45 |
|
46 |
sub usage { |
46 |
sub usage { |
47 |
print STDERR <<USAGE; |
47 |
print STDERR <<USAGE; |
48 |
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] [--fees DAYS] [--temp-uploads] [--temp-uploads-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] [--deleted-catalog DAYS] [--deleted-patrons DAYS] |
48 |
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] [--fees DAYS] [--temp-uploads] [--temp-uploads-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] [--deleted-catalog DAYS] [--deleted-patrons DAYS] [--old-issues DAYS] |
49 |
|
49 |
|
50 |
-h --help prints this help message, and exits, ignoring all |
50 |
-h --help prints this help message, and exits, ignoring all |
51 |
other options |
51 |
other options |
Lines 87-92
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
87 |
--deleted-catalog DAYS Purge deleted catalog older than DAYS |
87 |
--deleted-catalog DAYS Purge deleted catalog older than DAYS |
88 |
in tables deleteditems, deletedbiblioitems, deletedbiblio_metadata and deletedbiblio |
88 |
in tables deleteditems, deletedbiblioitems, deletedbiblio_metadata and deletedbiblio |
89 |
--deleted-patrons DAYS Purge deleted patrons older than DAYS days. |
89 |
--deleted-patrons DAYS Purge deleted patrons older than DAYS days. |
|
|
90 |
--old-issues DAYS Purge old issues older than DAYS days. |
90 |
USAGE |
91 |
USAGE |
91 |
exit $_[0]; |
92 |
exit $_[0]; |
92 |
} |
93 |
} |
Lines 116-121
my $oauth_tokens;
Link Here
|
116 |
my $pStatistics; |
117 |
my $pStatistics; |
117 |
my $pDeletedCatalog; |
118 |
my $pDeletedCatalog; |
118 |
my $pDeletedPatrons; |
119 |
my $pDeletedPatrons; |
|
|
120 |
my $pOldIssues; |
119 |
|
121 |
|
120 |
GetOptions( |
122 |
GetOptions( |
121 |
'h|help' => \$help, |
123 |
'h|help' => \$help, |
Lines 143-148
GetOptions(
Link Here
|
143 |
'statistics:i' => \$pStatistics, |
145 |
'statistics:i' => \$pStatistics, |
144 |
'deleted-catalog:i' => \$pDeletedCatalog, |
146 |
'deleted-catalog:i' => \$pDeletedCatalog, |
145 |
'deleted-patrons:i' => \$pDeletedPatrons, |
147 |
'deleted-patrons:i' => \$pDeletedPatrons, |
|
|
148 |
'old-issues:i' => \$pOldIssues, |
146 |
) || usage(1); |
149 |
) || usage(1); |
147 |
|
150 |
|
148 |
# Use default values |
151 |
# Use default values |
Lines 180-185
unless ( $sessions
Link Here
|
180 |
|| $pStatistics |
183 |
|| $pStatistics |
181 |
|| $pDeletedCatalog |
184 |
|| $pDeletedCatalog |
182 |
|| $pDeletedPatrons |
185 |
|| $pDeletedPatrons |
|
|
186 |
|| $pOldIssues |
183 |
) { |
187 |
) { |
184 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
188 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
185 |
usage(1); |
189 |
usage(1); |
Lines 417-422
if ($pDeletedPatrons) {
Link Here
|
417 |
print "Done with purging deleted patrons.\n" if $verbose; |
421 |
print "Done with purging deleted patrons.\n" if $verbose; |
418 |
} |
422 |
} |
419 |
|
423 |
|
|
|
424 |
if ($pOldIssues) { |
425 |
print "Purging old issues older than $pOldIssues days.\n" if $verbose; |
426 |
$sth = $dbh->prepare( |
427 |
q{ |
428 |
DELETE FROM old_issues |
429 |
WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY) |
430 |
} |
431 |
); |
432 |
$sth->execute($pOldIssues); |
433 |
print "Done with purging old issues.\n" if $verbose; |
434 |
} |
435 |
|
420 |
exit(0); |
436 |
exit(0); |
421 |
|
437 |
|
422 |
sub RemoveOldSessions { |
438 |
sub RemoveOldSessions { |
423 |
- |
|
|