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] [--old-reserves 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] [--transfers 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 89-94 Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu Link Here
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
   --old-reserves DAYS     Purge old reserves older than DAYS days.
92
   --transfers DAYS        Purge arrived items transfers older than DAYS days.
92
USAGE
93
USAGE
93
    exit $_[0];
94
    exit $_[0];
94
}
95
}
Lines 120-125 my $pDeletedCatalog; Link Here
120
my $pDeletedPatrons;
121
my $pDeletedPatrons;
121
my $pOldIssues;
122
my $pOldIssues;
122
my $pOldReserves;
123
my $pOldReserves;
124
my $pTransfers;
123
125
124
GetOptions(
126
GetOptions(
125
    'h|help'            => \$help,
127
    'h|help'            => \$help,
Lines 149-154 GetOptions( Link Here
149
    'deleted-patrons:i' => \$pDeletedPatrons,
151
    'deleted-patrons:i' => \$pDeletedPatrons,
150
    'old-issues:i'      => \$pOldIssues,
152
    'old-issues:i'      => \$pOldIssues,
151
    'old-reserves:i'    => \$pOldReserves,
153
    'old-reserves:i'    => \$pOldReserves,
154
    'transfers:i'    => \$pTransfers,
152
) || usage(1);
155
) || usage(1);
153
156
154
# Use default values
157
# Use default values
Lines 188-193 unless ( $sessions Link Here
188
    || $pDeletedPatrons
191
    || $pDeletedPatrons
189
    || $pOldIssues
192
    || $pOldIssues
190
    || $pOldReserves
193
    || $pOldReserves
194
    || $pTransfers
191
) {
195
) {
192
    print "You did not specify any cleanup work for the script to do.\n\n";
196
    print "You did not specify any cleanup work for the script to do.\n\n";
193
    usage(1);
197
    usage(1);
Lines 449-454 if ($pOldReserves) { Link Here
449
    print "Done with purging old reserves.\n" if $verbose;
453
    print "Done with purging old reserves.\n" if $verbose;
450
}
454
}
451
455
456
if ($pTransfers) {
457
    print "Purging arrived item transfers older than $pTransfers days.\n" if $verbose;
458
    $sth = $dbh->prepare(
459
        q{
460
            DELETE FROM branchtransfers
461
            WHERE datearrived < DATE_SUB(CURDATE(), INTERVAL ? DAY)
462
        }
463
    );
464
    $sth->execute($pTransfers);
465
    print "Done with purging transfers.\n" if $verbose;
466
}
467
452
exit(0);
468
exit(0);
453
469
454
sub RemoveOldSessions {
470
sub RemoveOldSessions {
455
- 

Return to bug 19008