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]
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
- 

Return to bug 19008