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

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

use strict;

use Cpanel                              ();
use Cpanel::Config::userdata::Constants ();
use Cpanel::Config::userdata::Guard     ();
use Cpanel::FileUtils::TouchFile        ();
use Cpanel::SafeRun::Errors             ();
use Cpanel::ServerTasks                 ();
use Cpanel::WildcardDomain              ();
use Cpanel::WildcardDomain::Tiny        ();

use File::Basename ();

BEGIN { unshift @INC, &#039;/usr/local/cpanel&#039;; }

my @ssl_userdata_parts = qw(
  sslcertificatefile
  sslcertificatekeyfile
  sslcacertificatefile
);

our $TOUCH_FILE = &#039;/var/cpanel/ssl/wildcard_cleanup_complete&#039;;

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

########################################################################
# This script was created to fix an issue documented in case 67341
########################################################################

sub script {
    my ( $class, @argv ) = @_;

    my ( $rebuild_apache, $forced );
    for my $arg (@argv) {
        if ( $arg eq &#039;--rebuildapache&#039; ) {
            $rebuild_apache = 1;
        }
        if ( $arg eq &#039;--force&#039; ) {
            $forced = 1;
        }
    }

    return if -e $TOUCH_FILE &amp;&amp; !$forced;

    my ( $httpd_conf_rebuild_needed, @migrated_servernames, @migrated_nobody_domains );

    @migrated_servernames      = _migrate_wildcard_encoded_userdata_files();
    @migrated_nobody_domains   = _migrate_nobody_userdata_files();
    $httpd_conf_rebuild_needed = 1 if @migrated_servernames || @migrated_nobody_domains;

    #Rebuild apache because previous rebuilds might have accidentally
    #deleted the wildcard SSL vhosts from being unable to find their
    #userdata files.
    if ($httpd_conf_rebuild_needed) {
        if ($rebuild_apache) {
            print &quot;Rebuilding Apache\n&quot;;
            my $output = Cpanel::SafeRun::Errors::saferunallerrors(&quot;$Cpanel::root/bin/build_apache_conf&quot;);
            if ( $output !~ /OK$/ ) {
                warn &quot;Error rebuilding the apache configuration: $output\n&quot;;
            }
            Cpanel::ServerTasks::queue_task( [&#039;ApacheTasks&#039;], &#039;apache_restart&#039; );
        }
        else {
            print &quot;Skipping Apache Rebuild\n&quot;;
        }
    }

    Cpanel::FileUtils::TouchFile::touchfile($TOUCH_FILE);

    return;
}

sub _migrate_nobody_userdata_files {
    my $userDir = $Cpanel::Config::userdata::Constants::USERDATA_DIR . &quot;/nobody&quot;;
    if ( !-e $userDir ) {
        return;
    }
    my @domains_processed = ();

    {
        my $main_guard = Cpanel::Config::userdata::Guard-&gt;new( &#039;nobody&#039;, &#039;main&#039; );
        my $maindata   = $main_guard-&gt;data();
        for my $domain ( $maindata-&gt;{&#039;main_domain&#039;}, @{ $maindata-&gt;{&#039;sub_domains&#039;} } ) {
            if ( !$domain || !Cpanel::WildcardDomain::Tiny::is_wildcard_domain($domain) || !-e $userDir . &quot;/${domain}_SSL&quot; ) {
                next;
            }

            my $guard    = Cpanel::Config::userdata::Guard-&gt;new( &#039;nobody&#039;, $domain . &#039;_SSL&#039; );
            my $userdata = $guard-&gt;data();

            _fix_userdata($userdata);

            push @domains_processed, $userdata-&gt;{&#039;servername&#039;};

            $guard-&gt;save();
        }

        $main_guard-&gt;abort();
    }

    return;
}

sub _migrate_wildcard_encoded_userdata_files {
    my @migrated_servernames            = ();
    my @wildcard_encoded_userdata_files = glob(&quot;$Cpanel::Config::userdata::Constants::USERDATA_DIR/*/_wildcard_*&quot;);

    for my $old_file (@wildcard_encoded_userdata_files) {
        next if !-f $old_file;

        if ( $old_file =~ m{\.cache\z} ) {
            unlink $old_file;
            next;
        }

        my ( $ok, %ret ) = _migrate_userdata_file($old_file);
        next if $ret{&#039;deleted&#039;};

        my $new_file = $old_file;

        #We *shouldn&#039;t* need the fussiness of anchoring this substitution
        #with / and \z, but just in case.
        $new_file =~ s{/_wildcard_([^/]+)\z}{/*$1};

        if ( !-f $new_file ) {
            if ( !rename( $old_file, $new_file ) ) {
                warn &quot;The system failed to rename $old_file to $new_file because of an error: $!&quot;;
                next;
            }
            push @migrated_servernames, $ret{&#039;servername&#039;};
        }
    }

    return @migrated_servernames;
}

sub _migrate_userdata_file {
    my ($file) = @_;

    my ( $filename, $path, undef ) = File::Basename::fileparse($file);
    my $user        = File::Basename::basename($path);
    my %return_data = ();

    {
        my $guard    = Cpanel::Config::userdata::Guard-&gt;new( $user, $filename );
        my $userdata = $guard-&gt;data();
        if ( exists $userdata-&gt;{&#039;servername&#039;} ) {
            for my $ssl_part (@ssl_userdata_parts) {
                next if !$userdata-&gt;{$ssl_part};

                if ( !-e $userdata-&gt;{$ssl_part} ) {
                    $guard-&gt;abort();
                    unlink $file;
                    return ( 1, &#039;deleted&#039; =&gt; 1 );
                }
            }

            _fix_userdata($userdata);

            $return_data{&#039;servername&#039;} = $userdata-&gt;{&#039;servername&#039;};

            $guard-&gt;save();
        }
        else {
            $guard-&gt;abort();
        }
    }

    return ( 1, %return_data );
}

sub _fix_userdata {
    my ($userdata) = @_;

    # Decodes wildcard encoded domains
    $userdata-&gt;{&#039;servername&#039;} = Cpanel::WildcardDomain::decode_wildcard_domain( $userdata-&gt;{&#039;servername&#039;} );
    $userdata-&gt;{&#039;serveradmin&#039;} =~ s{(\@)_wildcard_\.}{$1};
    $userdata-&gt;{&#039;serveralias&#039;} = $userdata-&gt;{&#039;servername&#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>