|
Lines 44-50
use Koha::UploadedFiles;
Link Here
|
| 44 |
|
44 |
|
| 45 |
sub usage { |
45 |
sub usage { |
| 46 |
print STDERR <<USAGE; |
46 |
print STDERR <<USAGE; |
| 47 |
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] [--temp-uploads] [--temp-uploads-override DAYS] |
47 |
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] [--temp-uploads] [--temp-uploads-override DAYS] [--uploads-missing 0|1 ] |
| 48 |
|
48 |
|
| 49 |
-h --help prints this help message, and exits, ignoring all |
49 |
-h --help prints this help message, and exits, ignoring all |
| 50 |
other options |
50 |
other options |
|
Lines 83-88
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
| 83 |
--unique-holidays DAYS Delete all unique holidays older than DAYS |
83 |
--unique-holidays DAYS Delete all unique holidays older than DAYS |
| 84 |
--temp-uploads Delete temporary uploads. |
84 |
--temp-uploads Delete temporary uploads. |
| 85 |
--temp-uploads-override DAYS Override the corresponding preference value. |
85 |
--temp-uploads-override DAYS Override the corresponding preference value. |
|
|
86 |
--uploads-missing FLAG Delete upload records for missing files when FLAG is true, count them otherwise |
| 86 |
USAGE |
87 |
USAGE |
| 87 |
exit $_[0]; |
88 |
exit $_[0]; |
| 88 |
} |
89 |
} |
|
Lines 107-112
my $fees_days;
Link Here
|
| 107 |
my $special_holidays_days; |
108 |
my $special_holidays_days; |
| 108 |
my $temp_uploads; |
109 |
my $temp_uploads; |
| 109 |
my $override_temp_uploads; |
110 |
my $override_temp_uploads; |
|
|
111 |
my $uploads_missing; |
| 110 |
|
112 |
|
| 111 |
GetOptions( |
113 |
GetOptions( |
| 112 |
'h|help' => \$help, |
114 |
'h|help' => \$help, |
|
Lines 129-134
GetOptions(
Link Here
|
| 129 |
'unique-holidays:i' => \$special_holidays_days, |
131 |
'unique-holidays:i' => \$special_holidays_days, |
| 130 |
'temp-uploads' => \$temp_uploads, |
132 |
'temp-uploads' => \$temp_uploads, |
| 131 |
'temp-uploads-override:i' => \$override_temp_uploads, |
133 |
'temp-uploads-override:i' => \$override_temp_uploads, |
|
|
134 |
'uploads-missing:i' => \$uploads_missing, |
| 132 |
) || usage(1); |
135 |
) || usage(1); |
| 133 |
|
136 |
|
| 134 |
# Use default values |
137 |
# Use default values |
|
Lines 161-166
unless ( $sessions
Link Here
|
| 161 |
|| $pUnvSelfReg |
164 |
|| $pUnvSelfReg |
| 162 |
|| $special_holidays_days |
165 |
|| $special_holidays_days |
| 163 |
|| $temp_uploads |
166 |
|| $temp_uploads |
|
|
167 |
|| defined $uploads_missing |
| 164 |
) { |
168 |
) { |
| 165 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
169 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
| 166 |
usage(1); |
170 |
usage(1); |
|
Lines 320-325
if( $temp_uploads ) {
Link Here
|
| 320 |
print "Done purging temporary uploads.\n" if $verbose; |
324 |
print "Done purging temporary uploads.\n" if $verbose; |
| 321 |
} |
325 |
} |
| 322 |
|
326 |
|
|
|
327 |
if( defined $uploads_missing ) { |
| 328 |
print "Looking for missing uploads\n" if $verbose; |
| 329 |
my $keep = $uploads_missing == 1 ? 0 : 1; |
| 330 |
my $count = Koha::UploadedFiles->delete_missing({ keep_record => $keep }); |
| 331 |
if( $keep ) { |
| 332 |
print "Counted $count missing uploaded files\n"; |
| 333 |
} else { |
| 334 |
print "Removed $count records for missing uploads\n"; |
| 335 |
} |
| 336 |
} |
| 337 |
|
| 323 |
exit(0); |
338 |
exit(0); |
| 324 |
|
339 |
|
| 325 |
sub RemoveOldSessions { |
340 |
sub RemoveOldSessions { |