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]
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]
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 88-93 Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu Link Here
88
   --deleted-catalog  DAYS Purge deleted catalog older than DAYS
88
   --deleted-catalog  DAYS Purge deleted catalog older than DAYS
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
USAGE
92
USAGE
92
    exit $_[0];
93
    exit $_[0];
93
}
94
}
Lines 116-121 my $uploads_missing; 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 142-147 GetOptions( Link Here
142
    'statistics:i'      => \$pStatistics,
144
    'statistics:i'      => \$pStatistics,
143
    'deleted-catalog:i' => \$pDeletedCatalog,
145
    'deleted-catalog:i' => \$pDeletedCatalog,
144
    'deleted-patrons:i' => \$pDeletedPatrons,
146
    'deleted-patrons:i' => \$pDeletedPatrons,
147
    'old-issues:i'      => \$pOldIssues,
145
) || usage(1);
148
) || usage(1);
146
149
147
# Use default values
150
# Use default values
Lines 178-183 unless ( $sessions Link Here
178
    || $pStatistics
181
    || $pStatistics
179
    || $pDeletedCatalog
182
    || $pDeletedCatalog
180
    || $pDeletedPatrons
183
    || $pDeletedPatrons
184
    || $pOldIssues
181
) {
185
) {
182
    print "You did not specify any cleanup work for the script to do.\n\n";
186
    print "You did not specify any cleanup work for the script to do.\n\n";
183
    usage(1);
187
    usage(1);
Lines 400-405 if ($pDeletedPatrons) { Link Here
400
    print "Done with purging deleted patrons.\n" if $verbose;
404
    print "Done with purging deleted patrons.\n" if $verbose;
401
}
405
}
402
406
407
if ($pOldIssues) {
408
    print "Purging old issues older than $pOldIssues days.\n" if $verbose;
409
    $sth = $dbh->prepare(
410
        q{
411
            DELETE FROM old_issues
412
            WHERE timestamp < DATE_SUB(CURDATE(), INTERVAL ? DAY)
413
        }
414
    );
415
    $sth->execute($pOldIssues);
416
    print "Done with purging old issues.\n" if $verbose;
417
}
418
403
exit(0);
419
exit(0);
404
420
405
sub RemoveOldSessions {
421
sub RemoveOldSessions {
406
- 

Return to bug 19008