use Modern::Perl;

return {
    bug_number  => "32057",
    description => "Add optional stack trace to action logs",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        if ( !column_exists( 'action_logs', 'trace' ) ) {
            $dbh->do(
                q{
              ALTER TABLE action_logs
                ADD COLUMN `trace` TEXT DEFAULT NULL COMMENT 'An optional stack trace enabled by ActionLogsTraceDepth' AFTER `script`
            }
            );
            say $out "Added column 'action_logs.trace'";
        }

        $dbh->do(
            q{
            INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
            ('ActionLogsTraceDepth', '0', '', 'Sets the maximum depth of the action logs stack trace', 'Integer')
        }
        );
        say $out "Added new system preference 'ActionLogsTraceDepth'";
    },
};
