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 77-82
my (
Link Here
|
77 |
$help, $sessions, $sess_days, $verbose, $zebraqueue_days, |
80 |
$help, $sessions, $sess_days, $verbose, $zebraqueue_days, |
78 |
$mail, $purge_merged, $pImport, $pLogs, $pSearchhistory, |
81 |
$mail, $purge_merged, $pImport, $pLogs, $pSearchhistory, |
79 |
$pZ3950, $pListShareInvites, $pDebarments, $allDebarments, |
82 |
$pZ3950, $pListShareInvites, $pDebarments, $allDebarments, |
|
|
83 |
$fees_days |
80 |
); |
84 |
); |
81 |
|
85 |
|
82 |
GetOptions( |
86 |
GetOptions( |
Lines 90-95
GetOptions(
Link Here
|
90 |
'import:i' => \$pImport, |
94 |
'import:i' => \$pImport, |
91 |
'z3950' => \$pZ3950, |
95 |
'z3950' => \$pZ3950, |
92 |
'logs:i' => \$pLogs, |
96 |
'logs:i' => \$pLogs, |
|
|
97 |
'fees:i' => \$fees_days, |
93 |
'searchhistory:i' => \$pSearchhistory, |
98 |
'searchhistory:i' => \$pSearchhistory, |
94 |
'list-invites:i' => \$pListShareInvites, |
99 |
'list-invites:i' => \$pListShareInvites, |
95 |
'restrictions:i' => \$pDebarments, |
100 |
'restrictions:i' => \$pDebarments, |
Lines 116-121
unless ( $sessions
Link Here
|
116 |
|| $purge_merged |
121 |
|| $purge_merged |
117 |
|| $pImport |
122 |
|| $pImport |
118 |
|| $pLogs |
123 |
|| $pLogs |
|
|
124 |
|| $fees_days |
119 |
|| $pSearchhistory |
125 |
|| $pSearchhistory |
120 |
|| $pZ3950 |
126 |
|| $pZ3950 |
121 |
|| $pListShareInvites |
127 |
|| $pListShareInvites |
Lines 222-227
if ($pLogs) {
Link Here
|
222 |
print "Done with purging action_logs.\n" if $verbose; |
228 |
print "Done with purging action_logs.\n" if $verbose; |
223 |
} |
229 |
} |
224 |
|
230 |
|
|
|
231 |
if ($fees_days) { |
232 |
print "Purging records from accountlines.\n" if $verbose; |
233 |
purge_zero_balance_fees( $fees_days ); |
234 |
print "Done purging records from accountlines.\n" if $verbose; |
235 |
} |
236 |
|
225 |
if ($pSearchhistory) { |
237 |
if ($pSearchhistory) { |
226 |
print "Purging records older than $pSearchhistory from search_history.\n" if $verbose; |
238 |
print "Purging records older than $pSearchhistory from search_history.\n" if $verbose; |
227 |
PurgeSearchHistory($pSearchhistory); |
239 |
PurgeSearchHistory($pSearchhistory); |
228 |
- |
|
|