|
Lines 115-121
Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose]
Link Here
|
| 115 |
--jobs-days DAYS Purge all finished background jobs this many days old. Defaults to 1 if no DAYS provided. |
115 |
--jobs-days DAYS Purge all finished background jobs this many days old. Defaults to 1 if no DAYS provided. |
| 116 |
--jobs-type TYPES What type of background job to purge. Defaults to "update_elastic_index" if omitted |
116 |
--jobs-type TYPES What type of background job to purge. Defaults to "update_elastic_index" if omitted |
| 117 |
Specifying "all" will purge all types. Repeatable. |
117 |
Specifying "all" will purge all types. Repeatable. |
| 118 |
--edifact-messages DAYS Purge entries from edifact_messages table older than DAYS days. |
118 |
--edifact-messages DAYS Purge entries from the edifact_messages table older than DAYS days. |
| 119 |
Defaults to 365 days if no days specified. |
119 |
Defaults to 365 days if no days specified. |
| 120 |
USAGE |
120 |
USAGE |
| 121 |
exit $_[0]; |
121 |
exit $_[0]; |
|
Lines 722-733
if ($jobs_days) {
Link Here
|
| 722 |
} |
722 |
} |
| 723 |
|
723 |
|
| 724 |
if($edifact_msg_days) { |
724 |
if($edifact_msg_days) { |
| 725 |
print "Purging edifact messages older than $edifact_msg_days days.\n" if $verbose; |
725 |
print "Purging EDIFACT messages older than $edifact_msg_days days.\n" if $verbose; |
| 726 |
my $count = PurgeEdifactMessages($edifact_msg_days, $confirm); |
726 |
my $count = PurgeEdifactMessages($edifact_msg_days, $confirm); |
| 727 |
if ( $verbose ) { |
727 |
if ( $verbose ) { |
| 728 |
say $confirm |
728 |
say $confirm |
| 729 |
? sprintf( "Done with purging %d edifact messages", $count ) |
729 |
? sprintf( "Done with purging %d EDIFACT messages", $count ) |
| 730 |
: sprintf( "%d edifact messages would have been removed", $count ); |
730 |
: sprintf( "%d EDIFACT messages would have been removed", $count ); |
| 731 |
} |
731 |
} |
| 732 |
} |
732 |
} |
| 733 |
|
733 |
|
| 734 |
- |
|
|