<h2>Edit File - slurp_exim_mainlog</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/slurp_exim_mainlog">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/slurp_exim_mainlog              Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

package scripts::slurp_exim_mainlog;

use strict;
use warnings;

use parent qw( Cpanel::HelpfulScript );

use Cpanel::EximStats::ImportInProgress ();
use Cpanel::Autodie::Unlink             ();
use Cpanel::Daemonizer::Tiny            ();
use Cpanel::Exception                   ();
use Cpanel::EximStats::Retention        ();
use Cpanel::FileUtils::Dir              ();
use Cpanel::FileUtils::TouchFile        ();
use Cpanel::PIDFile                     ();
use Cpanel::Time::ISO                   ();

use Try::Tiny;

=encoding utf-8

=head1 NAME

scripts::slurp_exim_mainlog

=head1 SYNOPSIS

    slurp_exim_mainlog ( --reimport | --force | --help )

This command will do an import of the unarchived (non-&#039;.gz&#039;) /var/log/exim_mainlog* files that are
newer than the exim retention setting (90 by default) days. The slurp normally will only run once,
but if you pass the --reimport flag it will attempt to import the log files after a 7 day waiting period.
If you pass the --force flag, the import will start with no regard to the last time it ran.

=head1 DESCRIPTION

This script does an import of the exim_mainlog files in /var/log. The import can only happen
once every 7 days

=cut

our $EXIM_LOG_DIR    = &#039;/var/log&#039;;
our $PID_FILE        = &#039;/var/run/slurp_exim_mainlog.pid&#039;;
our $OUTPUT_LOG_DIR  = &#039;/var/cpanel/logs&#039;;
our $OUTPUT_LOG_FILE = &#039;eximstats_sqlite_import.log&#039;;

our $MAX_OUTPUT_LOG_AGE   = 30 * 24 * 60**2;    # 30 days
our $TIME_BETWEEN_IMPORTS = 7 * 24 * 60**2;     # 7 days

sub _OPTIONS {
    return qw( force reimport );
}

__PACKAGE__-&gt;new(@ARGV)-&gt;script() unless caller();

## CAVEATS re: case 53744
## 1. the eximstats schema handles dedupes, so we process all recent files
## 2. TaskQueue is overkill for this one-time slurp

sub script {
    my ($self) = @_;

    my $time = _time();

    ## skip the slurp of exim_mainlog* if the touch file exists and it hasn&#039;t been TIME_BETWEEN_IMPORTS yet
    if ( !$self-&gt;getopt(&#039;force&#039;) ) {
        if ( $self-&gt;getopt(&#039;reimport&#039;) ) {
            my $last_import_time          = ( stat $Cpanel::EximStats::ImportInProgress::IMPORTED_FILE )[9] || 0;
            my $seconds_since_last_import = ( $time - $last_import_time );
            if ( -e $Cpanel::EximStats::ImportInProgress::IMPORTED_FILE &amp;&amp; $TIME_BETWEEN_IMPORTS &gt; $seconds_since_last_import ) {
                print &quot;[slurp_exim_mainlog] Skipping re-import because the logs were last imported at &quot; . scalar localtime($last_import_time) . &quot;, and the system only allows imports every $TIME_BETWEEN_IMPORTS seconds without the --force flag.\n&quot;;

                return;
            }
        }
        else {
            if ( -e $Cpanel::EximStats::ImportInProgress::IMPORTED_FILE ) {
                print &quot;[slurp_exim_mainlog] Skipping import because the logs were already imported.\n&quot;;

                return;
            }
        }
    }

    my $IMPORT_LOG_AGE_LIMIT = 60**2 * 24 * ( int( Cpanel::EximStats::Retention::get_valid_exim_retention_days() ) || 60 );

    Cpanel::PIDFile-&gt;do(
        $PID_FILE,
        sub {
            my %imports;
            for my $log ( grep { m/^exim_mainlog/ } @{ Cpanel::FileUtils::Dir::get_directory_nodes($EXIM_LOG_DIR) } ) {

                # Skip archived logs for this import
                next if substr( $log, -3 ) eq &#039;.gz&#039;;

                my $age = ( stat(&quot;$EXIM_LOG_DIR/$log&quot;) )[9];

                ## eximstats shows info for 90 days by default, but it&#039;s configurable
                next if ( $time - $age &gt; $IMPORT_LOG_AGE_LIMIT );

                $imports{&quot;$EXIM_LOG_DIR/$log&quot;} = $age;
            }

            my @imports = keys %imports ? map { $_-&gt;[0] } sort { $b-&gt;[1] &lt;=&gt; $a-&gt;[1] } map { [ $_, $imports{$_} ] } keys %imports : ();

            Cpanel::FileUtils::TouchFile::touchfile($Cpanel::EximStats::ImportInProgress::IMPORTED_FILE);

            $self-&gt;call_import_exim_data( \@imports );
        }
    );

    return;
}

# In a function for tests
sub call_import_exim_data {
    my ( $self, $imports_ar ) = @_;

    if ( !scalar @$imports_ar ) {
        print &quot;[slurp_exim_mainlog] there were no exim_mainlog files new enough to import.\n&quot;;
        return;
    }

    $self-&gt;remove_old_output_logs();

    my $log_file = &quot;$OUTPUT_LOG_DIR/$OUTPUT_LOG_FILE.&quot; . Cpanel::Time::ISO::unix2iso();
    print &quot;[slurp_exim_mainlog] starting import of the exim_mainlog files. Output will be logged to: $log_file\n&quot;;

    Cpanel::Daemonizer::Tiny::run_as_daemon(
        sub {
            close(STDIN);
            open( STDIN, &quot;&lt;&quot;, &quot;/dev/null&quot; );

            open( my $log_fh, &#039;&gt;&gt;&#039;,  $log_file );
            open( STDOUT,     &quot;&gt;&amp;=&quot;, $log_fh );
            open( STDERR,     &quot;&gt;&amp;=&quot;, $log_fh );

            exec( &#039;/usr/local/cpanel/scripts/import_exim_data&#039;, @$imports_ar );
        }
    );

    return;
}

sub remove_old_output_logs {
    my ($self) = @_;

    my @logs_to_remove;
    for my $log ( grep { m/^\Q$OUTPUT_LOG_FILE\E\.[0-9]{4}-[0-9]{2}-[0-9]{2}T[0-9]{2}:[0-9]{2}:[0-9]{2}Z$/ } @{ Cpanel::FileUtils::Dir::get_directory_nodes($OUTPUT_LOG_DIR) } ) {
        my $log_path = &quot;$OUTPUT_LOG_DIR/$log&quot;;

        next if !-e $log_path || _time() - ( stat(_) )[9] &lt; $MAX_OUTPUT_LOG_AGE;

        push @logs_to_remove, $log_path;
    }

    try {
        Cpanel::Autodie::Unlink::unlink_if_exists_batch(@logs_to_remove) if scalar @logs_to_remove;
    }
    catch {
        warn &quot;[slurp_exim_mainlog] there was a problem removing old output logs: &quot; . Cpanel::Exception::get_string_no_id($_);
    };

    return;
}

# For tests
sub _time {
    return time();
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>