|
Lines 78-84
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
| 78 |
Defaults to 30 days if no days specified. |
78 |
Defaults to 30 days if no days specified. |
| 79 |
--all-restrictions purge all expired patrons restrictions. |
79 |
--all-restrictions purge all expired patrons restrictions. |
| 80 |
--del-exp-selfreg Delete expired self registration accounts |
80 |
--del-exp-selfreg Delete expired self registration accounts |
| 81 |
--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS |
81 |
--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS |
|
|
82 |
--unique-holidays DAYS Delete all unique holidays older than DAYS |
| 82 |
USAGE |
83 |
USAGE |
| 83 |
exit $_[0]; |
84 |
exit $_[0]; |
| 84 |
} |
85 |
} |
|
Lines 100-124
my $allDebarments;
Link Here
|
| 100 |
my $pExpSelfReg; |
101 |
my $pExpSelfReg; |
| 101 |
my $pUnvSelfReg; |
102 |
my $pUnvSelfReg; |
| 102 |
my $fees_days; |
103 |
my $fees_days; |
|
|
104 |
my $special_holidays_days; |
| 103 |
|
105 |
|
| 104 |
GetOptions( |
106 |
GetOptions( |
| 105 |
'h|help' => \$help, |
107 |
'h|help' => \$help, |
| 106 |
'sessions' => \$sessions, |
108 |
'sessions' => \$sessions, |
| 107 |
'sessdays:i' => \$sess_days, |
109 |
'sessdays:i' => \$sess_days, |
| 108 |
'v|verbose' => \$verbose, |
110 |
'v|verbose' => \$verbose, |
| 109 |
'm|mail:i' => \$mail, |
111 |
'm|mail:i' => \$mail, |
| 110 |
'zebraqueue:i' => \$zebraqueue_days, |
112 |
'zebraqueue:i' => \$zebraqueue_days, |
| 111 |
'merged' => \$purge_merged, |
113 |
'merged' => \$purge_merged, |
| 112 |
'import:i' => \$pImport, |
114 |
'import:i' => \$pImport, |
| 113 |
'z3950' => \$pZ3950, |
115 |
'z3950' => \$pZ3950, |
| 114 |
'logs:i' => \$pLogs, |
116 |
'logs:i' => \$pLogs, |
| 115 |
'fees:i' => \$fees_days, |
117 |
'fees:i' => \$fees_days, |
| 116 |
'searchhistory:i' => \$pSearchhistory, |
118 |
'searchhistory:i' => \$pSearchhistory, |
| 117 |
'list-invites:i' => \$pListShareInvites, |
119 |
'list-invites:i' => \$pListShareInvites, |
| 118 |
'restrictions:i' => \$pDebarments, |
120 |
'restrictions:i' => \$pDebarments, |
| 119 |
'all-restrictions' => \$allDebarments, |
121 |
'all-restrictions' => \$allDebarments, |
| 120 |
'del-exp-selfreg' => \$pExpSelfReg, |
122 |
'del-exp-selfreg' => \$pExpSelfReg, |
| 121 |
'del-unv-selfreg' => \$pUnvSelfReg, |
123 |
'del-unv-selfreg' => \$pUnvSelfReg, |
|
|
124 |
'unique-holidays:i' => \$special_holidays_days, |
| 122 |
) || usage(1); |
125 |
) || usage(1); |
| 123 |
|
126 |
|
| 124 |
# Use default values |
127 |
# Use default values |
|
Lines 149-154
unless ( $sessions
Link Here
|
| 149 |
|| $allDebarments |
152 |
|| $allDebarments |
| 150 |
|| $pExpSelfReg |
153 |
|| $pExpSelfReg |
| 151 |
|| $pUnvSelfReg |
154 |
|| $pUnvSelfReg |
|
|
155 |
|| $special_holidays_days |
| 152 |
) { |
156 |
) { |
| 153 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
157 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
| 154 |
usage(1); |
158 |
usage(1); |
|
Lines 294-299
if( $pUnvSelfReg ) {
Link Here
|
| 294 |
DeleteUnverifiedSelfRegs( $pUnvSelfReg ); |
298 |
DeleteUnverifiedSelfRegs( $pUnvSelfReg ); |
| 295 |
} |
299 |
} |
| 296 |
|
300 |
|
|
|
301 |
if ($special_holidays_days) { |
| 302 |
DeleteSpecialHolidays($special_holidays_days); |
| 303 |
} |
| 304 |
|
| 297 |
exit(0); |
305 |
exit(0); |
| 298 |
|
306 |
|
| 299 |
sub RemoveOldSessions { |
307 |
sub RemoveOldSessions { |
|
Lines 391-393
sub DeleteUnverifiedSelfRegs {
Link Here
|
| 391 |
my $cnt= C4::Members::DeleteUnverifiedOpacRegistrations( $_[0] ); |
399 |
my $cnt= C4::Members::DeleteUnverifiedOpacRegistrations( $_[0] ); |
| 392 |
print "Removed $cnt unverified self-registrations\n" if $verbose; |
400 |
print "Removed $cnt unverified self-registrations\n" if $verbose; |
| 393 |
} |
401 |
} |
| 394 |
- |
402 |
|
|
|
403 |
sub DeleteSpecialHolidays { |
| 404 |
my ( $days ) = @_; |
| 405 |
|
| 406 |
my $sth = $dbh->prepare(q{ |
| 407 |
DELETE FROM special_holidays |
| 408 |
WHERE DATE( CONCAT( year, '-', month, '-', day ) ) < DATE_SUB( CAST(NOW() AS DATE), INTERVAL ? DAY ); |
| 409 |
}); |
| 410 |
my $count = $sth->execute( $days ) + 0; |
| 411 |
print "Removed $count unqiue holidays\n" if $verbose; |
| 412 |
} |