|
Lines 44-50
use Koha::UploadedFiles;
Link Here
|
| 44 |
|
44 |
|
| 45 |
sub usage { |
45 |
sub usage { |
| 46 |
print STDERR <<USAGE; |
46 |
print STDERR <<USAGE; |
| 47 |
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] |
47 |
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] [--old-reserves DAYS] |
| 48 |
|
48 |
|
| 49 |
-h --help prints this help message, and exits, ignoring all |
49 |
-h --help prints this help message, and exits, ignoring all |
| 50 |
other options |
50 |
other options |
|
Lines 89-94
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
| 89 |
in tables deleteditems, deletedbiblioitems, deletedbiblio_metadata and deletedbiblio |
89 |
in tables deleteditems, deletedbiblioitems, deletedbiblio_metadata and deletedbiblio |
| 90 |
--deleted-patrons DAYS Purge deleted patrons older than DAYS days. |
90 |
--deleted-patrons DAYS Purge deleted patrons older than DAYS days. |
| 91 |
--old-issues DAYS Purge old issues older than DAYS days. |
91 |
--old-issues DAYS Purge old issues older than DAYS days. |
|
|
92 |
--old-reserves DAYS Purge old reserves older than DAYS days. |
| 92 |
USAGE |
93 |
USAGE |
| 93 |
exit $_[0]; |
94 |
exit $_[0]; |
| 94 |
} |
95 |
} |
|
Lines 118-123
my $pStatistics;
Link Here
|
| 118 |
my $pDeletedCatalog; |
119 |
my $pDeletedCatalog; |
| 119 |
my $pDeletedPatrons; |
120 |
my $pDeletedPatrons; |
| 120 |
my $pOldIssues; |
121 |
my $pOldIssues; |
|
|
122 |
my $pOldReserves; |
| 121 |
|
123 |
|
| 122 |
GetOptions( |
124 |
GetOptions( |
| 123 |
'h|help' => \$help, |
125 |
'h|help' => \$help, |
|
Lines 145-150
GetOptions(
Link Here
|
| 145 |
'deleted-catalog:i' => \$pDeletedCatalog, |
147 |
'deleted-catalog:i' => \$pDeletedCatalog, |
| 146 |
'deleted-patrons:i' => \$pDeletedPatrons, |
148 |
'deleted-patrons:i' => \$pDeletedPatrons, |
| 147 |
'old-issues:i' => \$pOldIssues, |
149 |
'old-issues:i' => \$pOldIssues, |
|
|
150 |
'old-reserves:i' => \$pOldReserves, |
| 148 |
) || usage(1); |
151 |
) || usage(1); |
| 149 |
|
152 |
|
| 150 |
# Use default values |
153 |
# Use default values |
|
Lines 182-187
unless ( $sessions
Link Here
|
| 182 |
|| $pDeletedCatalog |
185 |
|| $pDeletedCatalog |
| 183 |
|| $pDeletedPatrons |
186 |
|| $pDeletedPatrons |
| 184 |
|| $pOldIssues |
187 |
|| $pOldIssues |
|
|
188 |
|| $pOldReserves |
| 185 |
) { |
189 |
) { |
| 186 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
190 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
| 187 |
usage(1); |
191 |
usage(1); |
|
Lines 416-421
if ($pOldIssues) {
Link Here
|
| 416 |
print "Done with purging old issues.\n" if $verbose; |
420 |
print "Done with purging old issues.\n" if $verbose; |
| 417 |
} |
421 |
} |
| 418 |
|
422 |
|
|
|
423 |
if ($pOldReserves) { |
| 424 |
print "Purging old reserves older than $pOldReserves days.\n" if $verbose; |
| 425 |
$sth = $dbh->prepare( |
| 426 |
q{ |
| 427 |
DELETE FROM old_reserves |
| 428 |
WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY) |
| 429 |
} |
| 430 |
); |
| 431 |
$sth->execute($pOldReserves); |
| 432 |
print "Done with purging old reserves.\n" if $verbose; |
| 433 |
} |
| 434 |
|
| 419 |
exit(0); |
435 |
exit(0); |
| 420 |
|
436 |
|
| 421 |
sub RemoveOldSessions { |
437 |
sub RemoveOldSessions { |
| 422 |
- |
|
|