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

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

use strict;
use warnings;

use Cpanel::Locale                  ();
use Cpanel::Usage                   ();
use Cpanel::Config::LoadWwwAcctConf ();
use Cpanel::Sys::Hostname           ();
use Cpanel::Redirect                ();
use Cpanel::DIp::MainIP             ();
use Socket                          ();

my $HOSTNAME_OK            = 0;
my $GENERIC_HOSTNAME_ERROR = 1;
my $NEEDS_SET_HOSTNAME     = 2;

sub script {
    my $self = shift;
    my $argv = shift;
    my $lc   = Cpanel::Locale-&gt;get_handle();
    my %opts = (
        notify =&gt; 0,
        quiet  =&gt; 0,
    );

    Cpanel::Usage::wrap_options(
        $argv,
        \&amp;usage,
        { &#039;notify&#039; =&gt; \$opts{&#039;notify&#039;}, &#039;quiet&#039; =&gt; \$opts{&#039;quiet&#039;} },
    );

    my $hostname = Cpanel::Sys::Hostname::gethostname();

    if ( my $is_manual_hostname = $self-&gt;is_manual_hostname( $hostname, \%opts ) ) {
        if ( $is_manual_hostname == $NEEDS_SET_HOSTNAME ) {
            require Whostmgr::Hostname;
            my ( $status, $statusmsg, $msgref, $errref ) = Whostmgr::Hostname::sethostname( $hostname, 1 );
            unless ( $opts{&#039;quiet&#039;} ) {
                if ( $msgref &amp;&amp; ref $msgref ) {
                    print &quot;$_\n&quot; for @$msgref;
                }

                if ( !$status ) {
                    warn $statusmsg;
                    if ( $errref &amp;&amp; ref $errref ) {
                        warn &quot;$_&quot; for @$errref;
                    }
                }
            }
            exit 1 if !$status;
        }
        else {
            exit 1;
        }
    }
    exit 1 unless $self-&gt;is_resolv_hostname( $hostname, \%opts );

    print $lc-&gt;maketext(q{OK}), &quot;\n&quot; unless $opts{&#039;quiet&#039;};

    exit 0;
}

sub usage {
    my $lc = Cpanel::Locale-&gt;get_handle();

    print $lc-&gt;maketext(q{This tool verifies the server hostname configuration.}), &quot;\n\n&quot;;
    print $lc-&gt;maketext( q{Usage: [_1][comment,a program name] ~[options~]}, $0 ), &quot;\n\n&quot;;
    print $lc-&gt;maketext(q{Options:}),                                              &quot;\n&quot;;
    print &quot;\t--help     &quot;,                                                         $lc-&gt;maketext(q{Display this help message.}),                                               &quot;\n&quot;;
    print &quot;\t--notify   &quot;,                                                         $lc-&gt;maketext(q{Send a failure notification to the system administrator.}),                 &quot;\n&quot;;
    print &quot;\t--quiet    &quot;,                                                         $lc-&gt;maketext(q{Do not display output, and instead set the [output,asis,UNIX] exit code.}), &quot;\n\n&quot;;

    exit 0;
}

# Do not use Cpanel::Hostname::gethostname().  The purpose of this routine
# is to reliably detect from the definitive source on Linux, what it thinks
# it&#039;s running as.  That is then compared to the WHM setting.
sub is_manual_hostname {
    my $self     = shift;
    my $hostname = shift;
    my $opts     = shift;
    my $conf     = Cpanel::Config::LoadWwwAcctConf::loadwwwacctconf();
    my $lc       = Cpanel::Locale-&gt;get_handle();
    my $old      = $lc-&gt;set_context_plain();
    my $ip       = Cpanel::DIp::MainIP::getmainip();

    unless ($conf) {
        my $reason   = $lc-&gt;maketext(q{The system is unable to retrieve the [output,asis,WHM] hostname configuration information.});
        my $solution = $lc-&gt;maketext( q{Verify the file system permissions of the “[_1]” file on your server.}, q{/etc/wwwacct.conf} );
        $self-&gt;send_failure_notification( $opts, { &#039;status&#039; =&gt; &#039;cannot_read_conf&#039;, &#039;reason&#039; =&gt; $reason, &#039;solution&#039; =&gt; $solution, &#039;hostname&#039; =&gt; $hostname, &#039;ip&#039; =&gt; $ip } );
        $lc-&gt;set_context($old);
        return $GENERIC_HOSTNAME_ERROR;
    }

    my $url      = sprintf( &#039;http://%s:2087/scripts2/changehostname&#039;, Cpanel::Redirect::getserviceSSLdomain(&#039;whm&#039;) );
    my $solution = $lc-&gt;maketext( q{The system will attempt to synchronize the current hostname “[_1]” to the system configuration.}, $hostname ) . &#039; &#039; . $lc-&gt;maketext( q{In the future, update your hostname in [output,url,_1,WHM’s] interface (Home » Networking Setup » Change Hostname).}, $url );

    unless ( $conf-&gt;{&#039;HOST&#039;} ) {
        my $reason = $lc-&gt;maketext(q{The system hostname is not configured in [output,asis,WHM].});
        $self-&gt;send_failure_notification( $opts, { &#039;status&#039; =&gt; &#039;host_missing&#039;, &#039;reason&#039; =&gt; $reason, &#039;solution&#039; =&gt; $solution, &#039;hostname&#039; =&gt; $hostname, &#039;ip&#039; =&gt; $ip } );
        $lc-&gt;set_context($old);
        return $NEEDS_SET_HOSTNAME;
    }

    unless ( $hostname eq $conf-&gt;{&#039;HOST&#039;} ) {
        my $reason = $lc-&gt;maketext(q{[output,asis,WHM] has detected a manual hostname change.});
        $self-&gt;send_failure_notification( $opts, { &#039;status&#039; =&gt; &#039;hostname_host_mismatch&#039;, &#039;reason&#039; =&gt; $reason, &#039;solution&#039; =&gt; $solution, &#039;hostname&#039; =&gt; $hostname, &#039;ip&#039; =&gt; $ip } );
        $lc-&gt;set_context($old);
        return $NEEDS_SET_HOSTNAME;
    }

    $lc-&gt;set_context($old);

    return $HOSTNAME_OK;
}

# This uses gethostbyname(), because Apache does.  If Apache is unable to resolve the
# hostname on the machine using the standard default EasyApache profile, then it won&#039;t
# start (due to mod_unique_id).
sub is_resolv_hostname {
    my $self     = shift;
    my $hostname = shift;
    my $opts     = shift;
    my $lc       = Cpanel::Locale-&gt;get_handle();
    my $old      = $lc-&gt;set_context_plain();
    my $solution = $lc-&gt;maketext( q{Update your system “[_1]” file and/or [output,asis,DNS] server.}, q{/etc/hosts} );
    my $ip       = Cpanel::DIp::MainIP::getmainip();

    my $resolved = gethostbyname($hostname);

    unless ($resolved) {
        my $reason = $lc-&gt;maketext( q{The system was unable to resolve the system hostname “[_1]” to an [output,asis,IP] address.}, $hostname );
        $self-&gt;send_failure_notification( $opts, { &#039;status&#039; =&gt; &#039;cannot_resolve_hostname&#039;, &#039;reason&#039; =&gt; $reason, &#039;solution&#039; =&gt; $solution, &#039;hostname&#039; =&gt; $hostname, &#039;ip&#039; =&gt; $ip } );
        $lc-&gt;set_context($old);
        return 0;
    }

    $lc-&gt;set_context($old);

    return 1;
}

sub send_failure_notification {
    my $self = shift;
    my $opts = shift;
    my $args = shift;

    my $lc  = Cpanel::Locale-&gt;get_handle();
    my $old = $lc-&gt;set_context_plain();

    print STDERR $lc-&gt;maketext(&#039;ERROR:&#039;), &quot; $args-&gt;{&#039;reason&#039;}\n&quot; unless $opts-&gt;{&#039;quiet&#039;};
    print STDERR &quot;\n$args-&gt;{&#039;solution&#039;}\n&quot; if $args-&gt;{&#039;solution&#039;};

    unless ( $opts-&gt;{&#039;notify&#039;} ) {
        $lc-&gt;set_context($old);
        return 1;
    }

    require Cpanel::Notify;
    Cpanel::Notify::notification_class(
        &#039;class&#039;            =&gt; &#039;Check::ValidServerHostname&#039;,
        &#039;application&#039;      =&gt; &#039;server_hostname_validator&#039;,
        &#039;status&#039;           =&gt; $args-&gt;{&#039;status&#039;},
        &#039;interval&#039;         =&gt; 86400 * 7,
        &#039;constructor_args&#039; =&gt; [
            &#039;origin&#039;   =&gt; &#039;server_hostname_validator&#039;,
            &#039;reason&#039;   =&gt; $args-&gt;{&#039;reason&#039;},
            &#039;solution&#039; =&gt; $args-&gt;{&#039;solution&#039;},
            &#039;ip&#039;       =&gt; $args-&gt;{&#039;ip&#039;},
        ]
    );

    $lc-&gt;set_context($old);

    return 1;
}

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

__END__

=head1 NAME

check_valid_server_hostname - Verifies proper configuration of hostname

=head1 DESCRIPTION

This script checks the hostname of the machine and verifies that the user has
properly configured it in cPanel &amp; WHM.  Additionally, it performs a DNS check
on the hostname.  Both of these verifications, in tandem, help to ensure the
user has a properly configured and functioning server.
</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>