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