| Lines 45-51
          use Koha::UploadedFiles;
      
      
        Link Here | 
        
          | 45 |  | 45 |  | 
        
          | 46 | sub usage { | 46 | sub usage { | 
        
          | 47 |     print STDERR <<USAGE; | 47 |     print STDERR <<USAGE; | 
          
            
              | 48 | 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-days DAYS] [--uploads-missing 0|1 ] | 48 | 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-days DAYS] [--uploads-missing 0|1 ] [--statistics DAYS] | 
        
          | 49 |  | 49 |  | 
        
          | 50 |    -h --help          prints this help message, and exits, ignoring all | 50 |    -h --help          prints this help message, and exits, ignoring all | 
        
          | 51 |                       other options | 51 |                       other options | 
  
    | Lines 83-88
          Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
      
      
        Link Here | 
        
          | 83 |    --temp-uploads-days DAYS Override the corresponding preference value. | 83 |    --temp-uploads-days DAYS Override the corresponding preference value. | 
        
          | 84 |    --uploads-missing FLAG Delete upload records for missing files when FLAG is true, count them otherwise | 84 |    --uploads-missing FLAG Delete upload records for missing files when FLAG is true, count them otherwise | 
        
          | 85 |    --oauth-tokens     Delete expired OAuth2 tokens | 85 |    --oauth-tokens     Delete expired OAuth2 tokens | 
            
              |  |  | 86 |    --statistics DAYS       Purge entries from statistics older than DAYS days. | 
        
          | 86 | USAGE | 87 | USAGE | 
        
          | 87 |     exit $_[0]; | 88 |     exit $_[0]; | 
        
          | 88 | } | 89 | } | 
  
    | Lines 109-114
          my $temp_uploads;
      
      
        Link Here | 
        
          | 109 | my $temp_uploads_days; | 110 | my $temp_uploads_days; | 
        
          | 110 | my $uploads_missing; | 111 | my $uploads_missing; | 
        
          | 111 | my $oauth_tokens; | 112 | my $oauth_tokens; | 
            
              |  |  | 113 | my $pStatistics; | 
        
          | 112 |  | 114 |  | 
        
          | 113 | GetOptions( | 115 | GetOptions( | 
        
          | 114 |     'h|help'            => \$help, | 116 |     'h|help'            => \$help, | 
  
    | Lines 133-138
          GetOptions(
      
      
        Link Here | 
        
          | 133 |     'temp-uploads-days:i' => \$temp_uploads_days, | 135 |     'temp-uploads-days:i' => \$temp_uploads_days, | 
        
          | 134 |     'uploads-missing:i' => \$uploads_missing, | 136 |     'uploads-missing:i' => \$uploads_missing, | 
        
          | 135 |     'oauth-tokens'      => \$oauth_tokens, | 137 |     'oauth-tokens'      => \$oauth_tokens, | 
            
              |  |  | 138 |     'statistics:i'      => \$pStatistics, | 
        
          | 136 | ) || usage(1); | 139 | ) || usage(1); | 
        
          | 137 |  | 140 |  | 
        
          | 138 | # Use default values | 141 | # Use default values | 
  
    | Lines 167-172
          unless ( $sessions
      
      
        Link Here | 
        
          | 167 |     || $temp_uploads | 170 |     || $temp_uploads | 
        
          | 168 |     || defined $uploads_missing | 171 |     || defined $uploads_missing | 
        
          | 169 |     || $oauth_tokens | 172 |     || $oauth_tokens | 
            
              |  |  | 173 |     || $pStatistics | 
        
          | 170 | ) { | 174 | ) { | 
        
          | 171 |     print "You did not specify any cleanup work for the script to do.\n\n"; | 175 |     print "You did not specify any cleanup work for the script to do.\n\n"; | 
        
          | 172 |     usage(1); | 176 |     usage(1); | 
  
    | Lines 353-358
          if ($oauth_tokens) {
      
      
        Link Here | 
        
          | 353 |     say "Removed $count expired OAuth2 tokens" if $verbose; | 357 |     say "Removed $count expired OAuth2 tokens" if $verbose; | 
        
          | 354 | } | 358 | } | 
        
          | 355 |  | 359 |  | 
            
              |  |  | 360 | if ($pStatistics) { | 
            
              | 361 |     print "Purging statistics older than $pStatistics days.\n" if $verbose; | 
            
              | 362 |     $sth = $dbh->prepare( | 
            
              | 363 |         q{ | 
            
              | 364 |             DELETE FROM statistics | 
            
              | 365 |             WHERE datetime < DATE_SUB(CURDATE(), INTERVAL ? DAY) | 
            
              | 366 |         } | 
            
              | 367 |     ); | 
            
              | 368 |     $sth->execute($pStatistics); | 
            
              | 369 |     print "Done with purging statistics.\n" if $verbose; | 
            
              | 370 | } | 
            
              | 371 |  | 
        
          | 356 | exit(0); | 372 | exit(0); | 
        
          | 357 |  | 373 |  | 
        
          | 358 | sub RemoveOldSessions { | 374 | sub RemoveOldSessions { | 
            
              | 359 | -  |  |  |