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

# cpanel - scripts/refresh-dkim-validity-cache     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

#----------------------------------------------------------------------
# NOTE: See Cpanel/DKIM/ValidityCache/Sync.pm for a more code-friendly
# analogue to this script.
#----------------------------------------------------------------------

package scripts::refresh_dkim_validity_cache;

use strict;
use warnings;

=encoding utf-8

=head1 NAME

scripts/refresh-dkim-validity-cache

=head1 USAGE

    refresh-dkim-validity-cache ( --help | --all-domains | --initialize )

    refresh-dkim-validity-cache --domain $d1 --domain $d2 ...

=head1 DESCRIPTION

This script refreshes the DKIM validity cache so that the system
will add DKIM signatures for all messages whose sender domain has a
correct DKIM configuration—but B&lt;only&gt; those messages.

It notes all changes made to the cache and prints a summary at the end.

=head1 OPTIONS

=over

=item * C&lt;--all-domains&gt; - Refreshes every domain’s validity cache.
(This can take a while!) Excludes C&lt;--domain&gt; and C&lt;--initialize&gt;.

=item * C&lt;--domain&gt; - Accepts a domain as argument. May be given multiple
times.

=item * C&lt;--initialize&gt; - Creates the validity cache anew if it doesn’t
already exist. All users are recorded as having valid DKIM, with the
understanding that a subsequent run of this script with C&lt;--all-domains&gt;
will remove invalid entries. (This is to ensure that DKIM signing doesn’t
fail temporarily while the cache is being created.)
C&lt;--initialize&gt; excludes C&lt;--domain&gt; and implies C&lt;--all-domains&gt;.
This is only useful in rare cases and shouldn’t ordinarily be done.

=back

=cut

use Try::Tiny;

use parent qw( Cpanel::HelpfulScript );

use constant _OPTIONS =&gt; (
    &#039;initialize&#039;,
    &#039;all-domains&#039;,
    &#039;domain=s@&#039;,
);

__PACKAGE__-&gt;new(@ARGV)-&gt;run() if !caller;

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

    my $given_domains_ar = $self-&gt;getopt(&#039;domain&#039;);

    my $every_domain_yn = $self-&gt;getopt(&#039;all-domains&#039;);

    my $init_yn = $self-&gt;getopt(&#039;initialize&#039;);

    if ($every_domain_yn) {
        if ( $init_yn || $given_domains_ar ) {
            die $self-&gt;help(&#039;“--all-domains” excludes “--initialize” and “--domain”.&#039;);
        }
    }
    elsif ($init_yn) {
        if ($given_domains_ar) {
            die $self-&gt;help(&#039;“--initialize” excludes “--all-domains” and “--domain”.&#039;);
        }
    }
    elsif ( !$given_domains_ar ) {
        die $self-&gt;help(&#039;No arguments given!&#039;);
    }

    require Cpanel::DKIM::ValidityCache;

    my $all_domains_ar = _load_all_domains();

    my $cache_all_ar = Cpanel::DKIM::ValidityCache-&gt;get_all();

    my %old_lookup;

    my $init_obj;

    if ($cache_all_ar) {
        if ($init_yn) {
            $self-&gt;say(&#039;The cache is already initialized.&#039;);
            return;
        }

        %old_lookup = map { $_ =&gt; undef } @$cache_all_ar;

        require Cpanel::Set;
        my @stale = Cpanel::Set::difference(
            [ keys %old_lookup ],
            $all_domains_ar,
        );

        for (@stale) {
            $self-&gt;say(&quot;Removing stale entry for “$_” …&quot;);
            _write_or_warn( &#039;unset&#039;, $_ );
        }
    }
    elsif ($init_yn) {
        require Cpanel::DKIM::ValidityCache::TempDir;
        $init_obj = Cpanel::DKIM::ValidityCache::TempDir-&gt;new();
    }

    $_ = 0 for my ( $added, $removed );

    for my $domain ( sort @$all_domains_ar ) {

        # Skip all wildcards.
        next if 0 == index( $domain, &#039;*&#039; );

        if ( !$every_domain_yn &amp;&amp; !$init_yn ) {
            my $proceed_yn = grep { $_ eq $domain } @$given_domains_ar;

            next if !$proceed_yn;
        }

        if ($init_yn) {
            _write_or_warn( set =&gt; $domain );
            $added++;
        }
        else {
            $self-&gt;say(&quot;Checking “$domain” …&quot;);

            try {
                if ( _domain_has_valid_dkim($domain) ) {
                    $self-&gt;say(&quot;\t✅ Valid!&quot;);

                    if ( !exists $old_lookup{$domain} ) {
                        _write_or_warn( set =&gt; $domain );
                        $added++;
                        $self-&gt;say(&quot;\t➕ Added to cache.&quot;);
                    }
                }
                else {
                    $self-&gt;say(&quot;\t⛔ Not valid.&quot;);

                    if ( exists $old_lookup{$domain} ) {
                        require Cpanel::DKIM::ValidityCache::Write;
                        Cpanel::DKIM::ValidityCache::Write-&gt;unset($domain);
                        $removed++;
                        $self-&gt;say(&quot;\t➖ Removed from cache.&quot;);
                    }
                }
            }
            catch {
                warn &quot;$domain: $_&quot;;
            };
        }
    }

    $self-&gt;say();

    if ($init_yn) {
        $init_obj-&gt;install();
        $self-&gt;say(&quot;The cache is initialized. ($added entries added)&quot;);
    }
    else {
        $self-&gt;say(&quot;Done! $added added, $removed removed.&quot;);
    }

    return;
}

sub _write_or_warn {
    my ( $fn, $name ) = @_;

    require Cpanel::DKIM::ValidityCache::Write;
    local $@;
    warn if !eval { Cpanel::DKIM::ValidityCache::Write-&gt;$fn($name); 1 };

    return;
}

sub _load_all_domains {

    require Cpanel::Config::LoadUserDomains;

    # 1 = give me a domain-to-user hash
    my $du_hr = Cpanel::Config::LoadUserDomains::loaduserdomains( undef, 1 );

    require Cpanel::Sys::Hostname;

    # Ensure that we can DKIM-sign mail sent from the hostname.
    my $hostname = Cpanel::Sys::Hostname::gethostname();
    $du_hr-&gt;{$hostname} ||= undef;

    return [ sort keys %$du_hr ];
}

sub _domain_has_valid_dkim {
    my ($domain) = @_;

    require Cpanel::DnsUtils::MailRecords;

    my $resp_ar = Cpanel::DnsUtils::MailRecords::validate_dkim_records_for_domains( [$domain] );

    return ( ( $resp_ar-&gt;[0]{&#039;state&#039;} // q&lt;&gt; ) eq &#039;VALID&#039; );
}

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>