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

# cpanel - scripts/exim_tidydb                     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::exim_tidydb;

use strict;
use warnings;

use File::Glob                           ();
use File::Basename                       ();
use Umask::Local                         ();
use Cpanel::Autodie                      ();
use Cpanel::FileUtils::TouchFile         ();
use Cpanel::NameVariant                  ();
use Cpanel::Time::ISO                    ();
use Cpanel::Binaries                     ();
use Cpanel::SafeRun::Object              ();
use Cpanel::AccessIds::ReducedPrivileges ();

our @exim_dirs = qw(/var/spool/exim_incoming /var/spool/exim);

use constant VALID_STATIC_DB_NAMES =&gt; (
    &#039;retry&#039;,
    &#039;misc&#039;,
    &#039;callout&#039;,
    &#039;ratelimit&#039;,
);

__PACKAGE__-&gt;script() unless caller();

sub script {

    my $exim_tidydb = Cpanel::Binaries::path(&#039;exim_tidydb&#039;);
    if ( !-x $exim_tidydb ) { die &#039;Cannot find exim_tidydb&#039;; }

    foreach my $dir (@exim_dirs) {
        next if ( !-d $dir );
        my @dbs = File::Glob::bsd_glob(&quot;$dir/db/*&quot;);
        foreach my $db (@dbs) {
            my $basedb = File::Basename::basename($db);
            next if ( $basedb =~ /^\.|\.lock(file)?$/ );

            # Valid database names = retry | misc | wait-&lt;transport-name&gt; | callout | ratelimit
            my $is_valid = grep { $_ eq $basedb } VALID_STATIC_DB_NAMES();
            $is_valid ||= $basedb =~ m{^wait-};
            next if !$is_valid;

            my $dbpath = &quot;$dir/db/$basedb&quot;;
            my $lock   = &quot;$dbpath.lockfile&quot;;
            unless ( -e $lock ) {
                my $privs = Cpanel::AccessIds::ReducedPrivileges-&gt;new(qw/mailnull mail/);
                my $umask = Umask::Local-&gt;new(027);
                Cpanel::FileUtils::TouchFile::touchfile($lock);
            }

            my $run = Cpanel::SafeRun::Object-&gt;new(
                &#039;program&#039; =&gt; $exim_tidydb,
                &#039;args&#039;    =&gt; [ ( $basedb eq &#039;ratelimit&#039; ? ( &#039;-t&#039;, &#039;1d&#039; ) : () ), $dir, $basedb ]
            );

            print $run-&gt;stdout();

            if ( $run-&gt;CHILD_ERROR() &amp;&amp; $run-&gt;error_code() == 1 ) {
                my $new_filename = Cpanel::NameVariant::find_name_variant(
                    max_length =&gt; 254,
                    name       =&gt; $dbpath . &#039;.broken.&#039; . Cpanel::Time::ISO::unix2iso(),
                    test       =&gt; sub {
                        Cpanel::Autodie::link_if_no_conflict( $dbpath, $_[0] );
                    },
                );

                unlink $dbpath or warn &quot;unlink($dbpath): $!&quot;;

                print &quot;Renamed corrupt “$dbpath” to “$new_filename”.\n&quot;;
            }
        }
    }

    Cpanel::SafeRun::Object-&gt;new( &#039;program&#039; =&gt; &#039;/usr/local/cpanel/scripts/cleanmsglog&#039; );
    return;
}

1;
</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>