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

(-)a/misc/cronjobs/cleanup_database.pl (-2 / +17 lines)
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] [--old-issues 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] [--old-reserves 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 88-93 Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu Link Here
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
   --old-issues DAYS       Purge old issues older than DAYS days.
91
   --old-reserves DAYS     Purge old reserves older than DAYS days.
91
USAGE
92
USAGE
92
    exit $_[0];
93
    exit $_[0];
93
}
94
}
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 146-151 GetOptions( Link Here
146
    'deleted-catalog:i' => \$pDeletedCatalog,
148
    'deleted-catalog:i' => \$pDeletedCatalog,
147
    'deleted-patrons:i' => \$pDeletedPatrons,
149
    'deleted-patrons:i' => \$pDeletedPatrons,
148
    'old-issues:i'      => \$pOldIssues,
150
    'old-issues:i'      => \$pOldIssues,
151
    'old-reserves:i'    => \$pOldReserves,
149
) || usage(1);
152
) || usage(1);
150
153
151
# Use default values
154
# Use default values
Lines 184-189 unless ( $sessions Link Here
184
    || $pDeletedCatalog
187
    || $pDeletedCatalog
185
    || $pDeletedPatrons
188
    || $pDeletedPatrons
186
    || $pOldIssues
189
    || $pOldIssues
190
    || $pOldReserves
187
) {
191
) {
188
    print "You did not specify any cleanup work for the script to do.\n\n";
192
    print "You did not specify any cleanup work for the script to do.\n\n";
189
    usage(1);
193
    usage(1);
Lines 433-438 if ($pOldIssues) { Link Here
433
    print "Done with purging old issues.\n" if $verbose;
437
    print "Done with purging old issues.\n" if $verbose;
434
}
438
}
435
439
440
if ($pOldReserves) {
441
    print "Purging old reserves older than $pOldReserves days.\n" if $verbose;
442
    $sth = $dbh->prepare(
443
        q{
444
            DELETE FROM old_reserves
445
            WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)
446
        }
447
    );
448
    $sth->execute($pOldReserves);
449
    print "Done with purging old reserves.\n" if $verbose;
450
}
451
436
exit(0);
452
exit(0);
437
453
438
sub RemoveOldSessions {
454
sub RemoveOldSessions {
439
- 

Return to bug 19008