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