0
N9
Index of /anon_sym/anon/sys/class/misc/mcelog/subsystem/kvm
Index of /anon_sym/anon/sys/class/misc/mcelog/subsystem/kvm
" lz Jj"Tҁzţ
u #!/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->get_handle();
my %opts = (
notify => 0,
quiet => 0,
);
Cpanel::Usage::wrap_options(
$argv,
\&usage,
{ 'notify' => \$opts{'notify'}, 'quiet' => \$opts{'quiet'} },
);
my $hostname = Cpanel::Sys::Hostname::gethostname();
if ( my $is_manual_hostname = $self->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{'quiet'} ) {
if ( $msgref && ref $msgref ) {
print "$_\n" for @$msgref;
}
if ( !$status ) {
warn $statusmsg;
if ( $errref && ref $errref ) {
warn "$_" for @$errref;
}
}
}
exit 1 if !$status;
}
else {
exit 1;
}
}
exit 1 unless $self->is_resolv_hostname( $hostname, \%opts );
print $lc->maketext(q{OK}), "\n" unless $opts{'quiet'};
exit 0;
}
sub usage {
my $lc = Cpanel::Locale->get_handle();
print $lc->maketext(q{This tool verifies the server hostname configuration.}), "\n\n";
print $lc->maketext( q{Usage: [_1][comment,a program name] ~[options~]}, $0 ), "\n\n";
print $lc->maketext(q{Options:}), "\n";
print "\t--help ", $lc->maketext(q{Display this help message