use constant DEFAULT_JOBS_PURGETYPES              => qw{ update_elastic_index };

use constant DEFAULT_JOBS_PURGETYPES              => qw{ update_elastic_index };

use constant DEFAULT_EDIFACT_MSG_PURGEDAYS        => 365;

use constant DEFAULT_EDIFACT_MSG_PURGEDAYS        => 365;

use constant DEFAULT_LOGS_BATCHSIZE               => 1000;

use constant DEFAULT_LOGS_BATCHSIZE               => 1000;

use Getopt::Long qw( GetOptions );

use Getopt::Long qw( GetOptions );

                      Defaults to 180 days if no days specified.

                      Defaults to 180 days if no days specified.

   --logs-batch ROWS  Delete action_logs rows in batches of ROWS. Ignored if --logs is not set.

   --logs-batch ROWS  Delete action_logs rows in batches of ROWS. Ignored if --logs is not set.

                      Defaults to 1000.

                      Defaults to 1000.

   --searchhistory DAYS  purge entries from search_history older than DAYS days.

   --searchhistory DAYS  purge entries from search_history older than DAYS days.

                         Defaults to 30 days if no days specified

                         Defaults to 30 days if no days specified

   --list-invites  DAYS  purge (unaccepted) list share invites older than DAYS days.

   --list-invites  DAYS  purge (unaccepted) list share invites older than DAYS days.

my $reports;

my $reports;

my $edifact_msg_days;

my $edifact_msg_days;

my $logs_batch;

my $logs_batch;

my $command_line_options = join( " ", @ARGV );

my $command_line_options = join( " ", @ARGV );

    'reports:i'                  => \$reports,

    'reports:i'                  => \$reports,

    'edifact-messages:i'         => \$edifact_msg_days,

    'edifact-messages:i'         => \$edifact_msg_days,

    'logs-batch:i'               => \$logs_batch,

    'logs-batch:i'               => \$logs_batch,

) || usage(1);

) || usage(1);

# Use default values

# Use default values

@jobs_types       = (DEFAULT_JOBS_PURGETYPES)       if $jobs_days                 && @jobs_types == 0;

@jobs_types       = (DEFAULT_JOBS_PURGETYPES)       if $jobs_days                 && @jobs_types == 0;

$edifact_msg_days = DEFAULT_EDIFACT_MSG_PURGEDAYS   if defined($edifact_msg_days) && $edifact_msg_days == 0;

$edifact_msg_days = DEFAULT_EDIFACT_MSG_PURGEDAYS   if defined($edifact_msg_days) && $edifact_msg_days == 0;

$logs_batch       = DEFAULT_LOGS_BATCHSIZE          if defined($logs_batch)       && $logs_batch == 0;

$logs_batch       = DEFAULT_LOGS_BATCHSIZE          if defined($logs_batch)       && $logs_batch == 0;

# Choose the number of days at which to purge unaccepted list invites:

# Choose the number of days at which to purge unaccepted list invites:

# - DAYS defined in the list-invites parameter is prioritised first

# - DAYS defined in the list-invites parameter is prioritised first

            do {

            do {

                $sth->execute(@query_params) or die $dbh->errstr;

                $sth->execute(@query_params) or die $dbh->errstr;

                $rows_deleted = $sth->rows;

                $rows_deleted = $sth->rows;

            } while ( $rows_deleted == $logs_batch );

            } while ( $rows_deleted == $logs_batch );

        } else {

        } else {

            $sth->execute(@query_params) or die $dbh->errstr;

            $sth->execute(@query_params) or die $dbh->errstr;