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

(-)a/misc/cronjobs/cleanup_database.pl (-4 / +17 lines)
Lines 80-87 Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose] Link Here
80
                      Defaults to 180 days if no days specified.
80
                      Defaults to 180 days if no days specified.
81
   --searchhistory DAYS  purge entries from search_history older than DAYS days.
81
   --searchhistory DAYS  purge entries from search_history older than DAYS days.
82
                         Defaults to 30 days if no days specified
82
                         Defaults to 30 days if no days specified
83
   --list-invites  DAYS  purge (unaccepted) list share invites older than DAYS
83
   --list-invites  DAYS  purge (unaccepted) list share invites older than DAYS days.
84
                         days.  Defaults to 14 days if no days specified.
84
                         This parameter is prioritised over the
85
                         PurgeListShareInvitesOlderThan system preference.
86
                         Defaults to 14 days if no days specified for this parameter and
87
                         the PurgeListShareInvitesOlderThan system preference is empty.
85
   --restrictions DAYS   purge patrons restrictions expired since more than DAYS days.
88
   --restrictions DAYS   purge patrons restrictions expired since more than DAYS days.
86
                         Defaults to 30 days if no days specified.
89
                         Defaults to 30 days if no days specified.
87
   --all-restrictions   purge all expired patrons restrictions.
90
   --all-restrictions   purge all expired patrons restrictions.
Lines 197-206 $pLogs = DEFAULT_LOGS_PURGEDAYS if defined($pLogs) Link Here
197
$zebraqueue_days   = DEFAULT_ZEBRAQ_PURGEDAYS             if defined($zebraqueue_days)   && $zebraqueue_days == 0;
200
$zebraqueue_days   = DEFAULT_ZEBRAQ_PURGEDAYS             if defined($zebraqueue_days)   && $zebraqueue_days == 0;
198
$mail              = DEFAULT_MAIL_PURGEDAYS               if defined($mail)              && $mail == 0;
201
$mail              = DEFAULT_MAIL_PURGEDAYS               if defined($mail)              && $mail == 0;
199
$pSearchhistory    = DEFAULT_SEARCHHISTORY_PURGEDAYS      if defined($pSearchhistory)    && $pSearchhistory == 0;
202
$pSearchhistory    = DEFAULT_SEARCHHISTORY_PURGEDAYS      if defined($pSearchhistory)    && $pSearchhistory == 0;
200
$pListShareInvites = DEFAULT_SHARE_INVITATION_EXPIRY_DAYS if defined($pListShareInvites) && $pListShareInvites == 0;
201
$pDebarments       = DEFAULT_DEBARMENTS_PURGEDAYS         if defined($pDebarments)       && $pDebarments == 0;
203
$pDebarments       = DEFAULT_DEBARMENTS_PURGEDAYS         if defined($pDebarments)       && $pDebarments == 0;
202
$pMessages         = DEFAULT_MESSAGES_PURGEDAYS           if defined($pMessages)         && $pMessages == 0;
204
$pMessages         = DEFAULT_MESSAGES_PURGEDAYS           if defined($pMessages)         && $pMessages == 0;
203
205
206
# Choose the number of days at which to purge unaccepted list invites:
207
# - DAYS defined in the list-invites parameter is prioritised first
208
# - PurgeListShareInvitesOlderThan system preference is prioritised second
209
# - Default value of 14 days is prioritised last - if the list-invites parameter is passed without a DAYS value and the PurgeListShareInvitesOlderThan syspref is empty.
210
if ( !defined($pListShareInvites) ) {
211
    if ( C4::Context->preference('PurgeListShareInvitesOlderThan') ) {
212
        $pListShareInvites = C4::Context->preference('PurgeListShareInvitesOlderThan');
213
    }
214
} elsif ( defined($pListShareInvites) && $pListShareInvites == 0 ) {
215
    $pListShareInvites = DEFAULT_SHARE_INVITATION_EXPIRY_DAYS;
216
}
217
204
if ($help) {
218
if ($help) {
205
    usage(0);
219
    usage(0);
206
}
220
}
207
- 

Return to bug 26831