View | Details | Raw Unified | Return to bug 19008
Collapse All | Expand All

(-)a/misc/cronjobs/cleanup_database.pl (-2 / +17 lines)
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
- 

Return to bug 19008