Lines 70-83
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
70 |
--restrictions DAYS purge patrons restrictions expired since more than DAYS days. |
70 |
--restrictions DAYS purge patrons restrictions expired since more than DAYS days. |
71 |
Defaults to 30 days if no days specified. |
71 |
Defaults to 30 days if no days specified. |
72 |
--all-restrictions purge all expired patrons restrictions. |
72 |
--all-restrictions purge all expired patrons restrictions. |
|
|
73 |
--del-exp-selfreg Delete expired self registration accounts |
74 |
--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS |
73 |
USAGE |
75 |
USAGE |
74 |
exit $_[0]; |
76 |
exit $_[0]; |
75 |
} |
77 |
} |
76 |
|
78 |
|
77 |
my ( |
79 |
my ( |
78 |
$help, $sessions, $sess_days, $verbose, $zebraqueue_days, |
80 |
$help, |
79 |
$mail, $purge_merged, $pImport, $pLogs, $pSearchhistory, |
81 |
$sessions, |
80 |
$pZ3950, $pListShareInvites, $pDebarments, $allDebarments, |
82 |
$sess_days, |
|
|
83 |
$verbose, |
84 |
$zebraqueue_days, |
85 |
$mail, |
86 |
$purge_merged, |
87 |
$pImport, |
88 |
$pLogs, |
89 |
$pSearchhistory, |
90 |
$pZ3950, |
91 |
$pListShareInvites, |
92 |
$pDebarments, |
93 |
$allDebarments, |
94 |
$pExpSelfReg, |
95 |
$pUnvSelfReg, |
81 |
); |
96 |
); |
82 |
|
97 |
|
83 |
GetOptions( |
98 |
GetOptions( |
Lines 95-100
GetOptions(
Link Here
|
95 |
'list-invites:i' => \$pListShareInvites, |
110 |
'list-invites:i' => \$pListShareInvites, |
96 |
'restrictions:i' => \$pDebarments, |
111 |
'restrictions:i' => \$pDebarments, |
97 |
'all-restrictions' => \$allDebarments, |
112 |
'all-restrictions' => \$allDebarments, |
|
|
113 |
'del-exp-selfreg' => \$pExpSelfReg, |
114 |
'del-unv-selfreg' => \$pUnvSelfReg, |
98 |
) || usage(1); |
115 |
) || usage(1); |
99 |
|
116 |
|
100 |
# Use default values |
117 |
# Use default values |
Lines 121-128
unless ( $sessions
Link Here
|
121 |
|| $pZ3950 |
138 |
|| $pZ3950 |
122 |
|| $pListShareInvites |
139 |
|| $pListShareInvites |
123 |
|| $pDebarments |
140 |
|| $pDebarments |
124 |
|| $allDebarments ) |
141 |
|| $allDebarments |
125 |
{ |
142 |
|| $pExpSelfReg |
|
|
143 |
|| $pUnvSelfReg |
144 |
) { |
126 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
145 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
127 |
usage(1); |
146 |
usage(1); |
128 |
} |
147 |
} |
Lines 252-257
if($allDebarments) {
Link Here
|
252 |
print "$count restrictions were deleted.\nDone with all restrictions purge.\n" if $verbose; |
271 |
print "$count restrictions were deleted.\nDone with all restrictions purge.\n" if $verbose; |
253 |
} |
272 |
} |
254 |
|
273 |
|
|
|
274 |
if( $pExpSelfReg ) { |
275 |
DeleteExpiredSelfRegs(); |
276 |
} |
277 |
if( $pUnvSelfReg ) { |
278 |
DeleteUnverifiedSelfRegs( $pUnvSelfReg ); |
279 |
} |
280 |
|
255 |
exit(0); |
281 |
exit(0); |
256 |
|
282 |
|
257 |
sub RemoveOldSessions { |
283 |
sub RemoveOldSessions { |
Lines 339-341
sub PurgeDebarments {
Link Here
|
339 |
} |
365 |
} |
340 |
return $count; |
366 |
return $count; |
341 |
} |
367 |
} |
|
|
368 |
|
369 |
sub DeleteExpiredSelfRegs { |
370 |
my $cnt= C4::Members::DeleteExpiredOpacRegistrations(); |
371 |
print "Removed $cnt expired self-registered borrowers\n" if $verbose; |
372 |
} |
373 |
|
374 |
sub DeleteUnverifiedSelfRegs { |
375 |
my $cnt= C4::Members::DeleteUnverifiedOpacRegistrations( $_[0] ); |
376 |
print "Removed $cnt unverified self-registrations\n" if $verbose; |
377 |
} |