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

(-)a/misc/cronjobs/cleanup_database.pl (-1 / +7 lines)
Lines 79-84 Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose] Link Here
79
                      or equal to 1.
79
                      or equal to 1.
80
   --log-modules      Specify which action log modules to trim. Repeatable.
80
   --log-modules      Specify which action log modules to trim. Repeatable.
81
   --preserve-log     Specify which action logs to exclude. Repeatable.
81
   --preserve-log     Specify which action logs to exclude. Repeatable.
82
   --log-action       Specify which action log action entries to trim. Repeatable.
82
   --logs DAYS        purge entries from action_logs older than DAYS days.
83
   --logs DAYS        purge entries from action_logs older than DAYS days.
83
                      Defaults to 180 days if no days specified.
84
                      Defaults to 180 days if no days specified.
84
   --searchhistory DAYS  purge entries from search_history older than DAYS days.
85
   --searchhistory DAYS  purge entries from search_history older than DAYS days.
Lines 155-160 my $labels; Link Here
155
my $cards;
156
my $cards;
156
my @log_modules;
157
my @log_modules;
157
my @preserve_logs;
158
my @preserve_logs;
159
my @log_actions;
158
my $jobs_days;
160
my $jobs_days;
159
my @jobs_types;
161
my @jobs_types;
160
my $reports;
162
my $reports;
Lines 175-180 GetOptions( Link Here
175
    'logs:i'            => \$pLogs,
177
    'logs:i'            => \$pLogs,
176
    'log-module:s'      => \@log_modules,
178
    'log-module:s'      => \@log_modules,
177
    'preserve-log:s'    => \@preserve_logs,
179
    'preserve-log:s'    => \@preserve_logs,
180
    'log-action:s'      => \@log_actions,
178
    'messages:i'        => \$pMessages,
181
    'messages:i'        => \$pMessages,
179
    'fees:i'            => \$fees_days,
182
    'fees:i'            => \$fees_days,
180
    'searchhistory:i'   => \$pSearchhistory,
183
    'searchhistory:i'   => \$pSearchhistory,
Lines 375-380 if ($pLogs) { Link Here
375
        $log_query .= " AND module IN (" . join(',',('?') x @log_modules ) . ")";
378
        $log_query .= " AND module IN (" . join(',',('?') x @log_modules ) . ")";
376
        push @query_params, @log_modules;
379
        push @query_params, @log_modules;
377
    }
380
    }
381
    if( @log_actions ){
382
        $log_query .= " AND action IN (" . join(',',('?') x @log_actions ) . ")";
383
        push @query_params, @log_actions;
384
    }
378
    $sth = $dbh->prepare( $log_query );
385
    $sth = $dbh->prepare( $log_query );
379
    if ( $confirm ) {
386
    if ( $confirm ) {
380
        $sth->execute($pLogs, @query_params) or die $dbh->errstr;
387
        $sth->execute($pLogs, @query_params) or die $dbh->errstr;
381
- 

Return to bug 32686