|
Lines 39-48
use C4::Dates;
Link Here
|
| 39 |
use C4::Search; |
39 |
use C4::Search; |
| 40 |
use Getopt::Long; |
40 |
use Getopt::Long; |
| 41 |
use C4::Log; |
41 |
use C4::Log; |
|
|
42 |
use C4::Accounts; |
| 42 |
|
43 |
|
| 43 |
sub usage { |
44 |
sub usage { |
| 44 |
print STDERR <<USAGE; |
45 |
print STDERR <<USAGE; |
| 45 |
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] [--import DAYS] [--logs DAYS] [--searchhistory DAYS] [--restrictions DAYS] [--all-restrictions] |
46 |
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] |
| 46 |
|
47 |
|
| 47 |
-h --help prints this help message, and exits, ignoring all |
48 |
-h --help prints this help message, and exits, ignoring all |
| 48 |
other options |
49 |
other options |
|
Lines 60-65
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
| 60 |
Defaults to 60 days if no days specified. |
61 |
Defaults to 60 days if no days specified. |
| 61 |
--z3950 purge records from import tables that are the result |
62 |
--z3950 purge records from import tables that are the result |
| 62 |
of Z39.50 searches |
63 |
of Z39.50 searches |
|
|
64 |
--fees DAYS purge entries accountlines older than DAYS days, where |
| 65 |
amountoutstanding is 0. |
| 63 |
--logs DAYS purge entries from action_logs older than DAYS days. |
66 |
--logs DAYS purge entries from action_logs older than DAYS days. |
| 64 |
Defaults to 180 days if no days specified. |
67 |
Defaults to 180 days if no days specified. |
| 65 |
--searchhistory DAYS purge entries from search_history older than DAYS days. |
68 |
--searchhistory DAYS purge entries from search_history older than DAYS days. |
|
Lines 92-97
my (
Link Here
|
| 92 |
$allDebarments, |
95 |
$allDebarments, |
| 93 |
$pExpSelfReg, |
96 |
$pExpSelfReg, |
| 94 |
$pUnvSelfReg, |
97 |
$pUnvSelfReg, |
|
|
98 |
$fees_days |
| 99 |
$help, $sessions, $sess_days, $verbose, $zebraqueue_days, |
| 100 |
$mail, $purge_merged, $pImport, $pLogs, $pSearchhistory, |
| 101 |
$pZ3950, $pListShareInvites, $pDebarments, $allDebarments, |
| 95 |
); |
102 |
); |
| 96 |
|
103 |
|
| 97 |
GetOptions( |
104 |
GetOptions( |
|
Lines 105-110
GetOptions(
Link Here
|
| 105 |
'import:i' => \$pImport, |
112 |
'import:i' => \$pImport, |
| 106 |
'z3950' => \$pZ3950, |
113 |
'z3950' => \$pZ3950, |
| 107 |
'logs:i' => \$pLogs, |
114 |
'logs:i' => \$pLogs, |
|
|
115 |
'fees:i' => \$fees_days, |
| 108 |
'searchhistory:i' => \$pSearchhistory, |
116 |
'searchhistory:i' => \$pSearchhistory, |
| 109 |
'list-invites:i' => \$pListShareInvites, |
117 |
'list-invites:i' => \$pListShareInvites, |
| 110 |
'restrictions:i' => \$pDebarments, |
118 |
'restrictions:i' => \$pDebarments, |
|
Lines 133-138
unless ( $sessions
Link Here
|
| 133 |
|| $purge_merged |
141 |
|| $purge_merged |
| 134 |
|| $pImport |
142 |
|| $pImport |
| 135 |
|| $pLogs |
143 |
|| $pLogs |
|
|
144 |
|| $fees_days |
| 136 |
|| $pSearchhistory |
145 |
|| $pSearchhistory |
| 137 |
|| $pZ3950 |
146 |
|| $pZ3950 |
| 138 |
|| $pListShareInvites |
147 |
|| $pListShareInvites |
|
Lines 241-246
if ($pLogs) {
Link Here
|
| 241 |
print "Done with purging action_logs.\n" if $verbose; |
250 |
print "Done with purging action_logs.\n" if $verbose; |
| 242 |
} |
251 |
} |
| 243 |
|
252 |
|
|
|
253 |
if ($fees_days) { |
| 254 |
print "Purging records from accountlines.\n" if $verbose; |
| 255 |
purge_zero_balance_fees( $fees_days ); |
| 256 |
print "Done purging records from accountlines.\n" if $verbose; |
| 257 |
} |
| 258 |
|
| 244 |
if ($pSearchhistory) { |
259 |
if ($pSearchhistory) { |
| 245 |
print "Purging records older than $pSearchhistory from search_history.\n" if $verbose; |
260 |
print "Purging records older than $pSearchhistory from search_history.\n" if $verbose; |
| 246 |
PurgeSearchHistory($pSearchhistory); |
261 |
PurgeSearchHistory($pSearchhistory); |
| 247 |
- |
|
|