use constant DEFAULT_JOBS_PURGEDAYS               => 1;

use constant DEFAULT_JOBS_PURGEDAYS               => 1;

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 Getopt::Long qw( GetOptions );

use Getopt::Long qw( GetOptions );

   --log-action       Specify which action log action entries to trim. Repeatable.

   --log-action       Specify which action log action entries to trim. Repeatable.

   --logs DAYS        purge entries from action_logs older than DAYS days.

   --logs DAYS        purge entries from action_logs older than DAYS days.

                      Defaults to 180 days if no days specified.

                      Defaults to 180 days if no days specified.

   --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 @jobs_types;

my @jobs_types;

my $reports;

my $reports;

my $edifact_msg_days;

my $edifact_msg_days;

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

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

    'jobs-days:i'                => \$jobs_days,

    'jobs-days:i'                => \$jobs_days,

    'reports:i'                  => \$reports,

    'reports:i'                  => \$reports,

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

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

) || usage(1);

) || usage(1);

# Use default values

# Use default values

$jobs_days        = DEFAULT_JOBS_PURGEDAYS          if defined($jobs_days)        && $jobs_days == 0;

$jobs_days        = DEFAULT_JOBS_PURGEDAYS          if defined($jobs_days)        && $jobs_days == 0;

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

# 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

        $log_query .= " AND action IN (" . join( ',', ('?') x @log_actions ) . ")";

        $log_query .= " AND action IN (" . join( ',', ('?') x @log_actions ) . ")";

        push @query_params, @log_actions;

        push @query_params, @log_actions;

    }

    }

    $sth = $dbh->prepare($log_query);

    $sth = $dbh->prepare($log_query);

    if ($confirm) {

    if ($confirm) {

    }

    }

    print "Done with purging action_logs.\n" if $verbose;

    print "Done with purging action_logs.\n" if $verbose;

}

}