| 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 { |