Lines 116-122
Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose]
Link Here
|
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 |
--reports DAYS Purge reports data saved more than DAYS days ago. The data is created by running runreport.pl with the --store-results option. |
118 |
--reports DAYS Purge reports data saved more than DAYS days ago. The data is created by running runreport.pl with the --store-results option. |
119 |
--edifact-messages DAYS Purge entries from edifact_messages table older than DAYS days. |
119 |
--edifact-messages DAYS Purge entries from the edifact_messages table older than DAYS days. |
120 |
Defaults to 365 days if no days specified. |
120 |
Defaults to 365 days if no days specified. |
121 |
USAGE |
121 |
USAGE |
122 |
exit $_[0]; |
122 |
exit $_[0]; |
Lines 734-745
if ($reports) {
Link Here
|
734 |
} |
734 |
} |
735 |
|
735 |
|
736 |
if($edifact_msg_days) { |
736 |
if($edifact_msg_days) { |
737 |
print "Purging edifact messages older than $edifact_msg_days days.\n" if $verbose; |
737 |
print "Purging EDIFACT messages older than $edifact_msg_days days.\n" if $verbose; |
738 |
my $count = PurgeEdifactMessages($edifact_msg_days, $confirm); |
738 |
my $count = PurgeEdifactMessages($edifact_msg_days, $confirm); |
739 |
if ( $verbose ) { |
739 |
if ( $verbose ) { |
740 |
say $confirm |
740 |
say $confirm |
741 |
? sprintf( "Done with purging %d edifact messages", $count ) |
741 |
? sprintf( "Done with purging %d EDIFACT messages", $count ) |
742 |
: sprintf( "%d edifact messages would have been removed", $count ); |
742 |
: sprintf( "%d EDIFACT messages would have been removed", $count ); |
743 |
} |
743 |
} |
744 |
} |
744 |
} |
745 |
|
745 |
|
746 |
- |
|
|