View | Details | Raw Unified | Return to bug 17350
Collapse All | Expand All

(-)a/misc/cronjobs/cleanup_database.pl (-1 / +21 lines)
Lines 113-118 Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose] Link Here
113
   --bg-days DAYS          Purge all finished background jobs this many days old. Defaults to 1 if no DAYS provided.
113
   --bg-days DAYS          Purge all finished background jobs this many days old. Defaults to 1 if no DAYS provided.
114
   --bg-type TYPES         What type of background job to purge. Defaults to "update_elastic_index" if omitted
114
   --bg-type TYPES         What type of background job to purge. Defaults to "update_elastic_index" if omitted
115
                           Specifying "all" will purge all types. Repeatable.
115
                           Specifying "all" will purge all types. Repeatable.
116
   --reports DAYS          Purge reports data saved more than  DAYS days ago.
116
USAGE
117
USAGE
117
    exit $_[0];
118
    exit $_[0];
118
}
119
}
Lines 156-161 my @log_modules; Link Here
156
my @preserve_logs;
157
my @preserve_logs;
157
my $background_days;
158
my $background_days;
158
my @background_types;
159
my @background_types;
160
my $reports;
159
161
160
my $command_line_options = join(" ",@ARGV);
162
my $command_line_options = join(" ",@ARGV);
161
163
Lines 200-205 GetOptions( Link Here
200
    'return-claims'     => \$return_claims,
202
    'return-claims'     => \$return_claims,
201
    'bg-type:s'        => \@background_types,
203
    'bg-type:s'        => \@background_types,
202
    'bg-days:i'         => \$background_days,
204
    'bg-days:i'         => \$background_days,
205
    'reports:i'           => \$reports,
203
) || usage(1);
206
) || usage(1);
204
207
205
# Use default values
208
# Use default values
Lines 252-257 unless ( $sessions Link Here
252
    || $cards
255
    || $cards
253
    || $return_claims
256
    || $return_claims
254
    || $background_days
257
    || $background_days
258
    || $reports
255
) {
259
) {
256
    print "You did not specify any cleanup work for the script to do.\n\n";
260
    print "You did not specify any cleanup work for the script to do.\n\n";
257
    usage(1);
261
    usage(1);
Lines 702-707 if ($background_days) { Link Here
702
    }
706
    }
703
}
707
}
704
708
709
if ($reports) {
710
    if ( $confirm ) {
711
        PurgeSavedReports($reports);
712
    } if ( $verbose ) {
713
        say "Purging reports data saved more than $reports days ago.\n";
714
    }
715
}
716
705
cronlogaction({ action => 'End', info => "COMPLETED" });
717
cronlogaction({ action => 'End', info => "COMPLETED" });
706
718
707
exit(0);
719
exit(0);
Lines 840-842 sub DeleteSpecialHolidays { Link Here
840
    print "Removed $count unique holidays\n" if $verbose;
852
    print "Removed $count unique holidays\n" if $verbose;
841
}
853
}
842
854
843
- 
855
sub PurgeSavedReports {
856
    my ( $reports ) = @_;
857
858
    my $sth = $dbh->prepare(q{
859
            DELETE FROM saved_reports
860
            WHERE date(date_run) < DATE_SUB(CURDATE(),INTERVAL ? DAY );
861
        });
862
    $sth->execute( $reports );
863
}

Return to bug 17350