JFIF$        dd7 

Viewing File: /usr/local/cpanel/scripts/fixetchosts

#!/usr/local/cpanel/3rdparty/bin/perl

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

use strict;
use Cpanel::SafeFile             ();
use Cpanel::Validate::Hostname   ();
use Cpanel::IP::Loopback         ();
use Cpanel::DIp::MainIP          ();
use Cpanel::Sys::Hostname::FQDN  ();
use Cpanel::FileUtils::TouchFile ();
use IO::Handle                   ();

exit script(@ARGV) unless caller;

sub script {
    return run('/etc/hosts');
}

sub run {
    my ($file)        = @_;
    my $mainip        = Cpanel::DIp::MainIP::getmainserverip();
    my $hostname      = Cpanel::Sys::Hostname::FQDN::get_fqdn_hostname();
    my $shorthostname = Cpanel::Sys::Hostname::FQDN::get_short_hostname();

    # CPANEL-36014: If the returned hostname ends with a trailing dot, strip it.
    $hostname =~ s/\.$//;

    Cpanel::FileUtils::TouchFile::touchfile($file);
    die "The hostname $hostname is not valid.\n" unless Cpanel::Validate::Hostname::is_valid($hostname);

    update( $file, $mainip, $hostname, $shorthostname );
    return 0;
}

sub update {
    my ( $file, $mainip, $hostname, $shorthostname ) = @_;

    my $hosts_fh   = IO::Handle->new();
    my $hosts_lock = Cpanel::SafeFile::safeopen( $hosts_fh, '+<', $file );
    if ($hosts_lock) {
        my %SEENIP;
        my @ETCHOSTS;

        while ( my $line = readline $hosts_fh ) {
            chomp $line;
            if ( $line =~ m/^\s*#/ || $line =~ m/^\s*$/ ) {
                push @ETCHOSTS, { 'raw' => $line };
            }
            else {
                my ( $ip, $hosts ) = split( /\s+/, $line, 2 );
                my @line_hosts;
                foreach my $host ( split( /\s+/, $hosts ) ) {
                    next if ( $ip ne $mainip && $host eq $hostname );                                   # Drop mismatch hostnames for the main IP
                    next if ( $ip eq $mainip && ( $host eq $hostname || $host eq $shorthostname ) );    # These will be re-added
                    push @line_hosts, $host if ( !grep { $_ eq $host } @line_hosts );                   # Drop duplicates while preserving order
                }

                if ( !@line_hosts ) {                                                                   ## Drop empty lines
                    next if $ip eq $mainip;                                                             # Prevent duplicate commented lines for the main IP
                    push @ETCHOSTS, { 'raw' => '# ' . $line };                                          # Preserve lines that were commented out in full
                }
                else {                                                                                  ## Save valid entries
                    push @ETCHOSTS, { 'ip' => $ip, 'hosts' => \@line_hosts };
                    $SEENIP{$ip} = 1;
                }
            }
        }
        seek( $hosts_fh, 0, 0 );

        my $added_hostname = 0;
        foreach my $line_ref (@ETCHOSTS) {
            if ( exists $line_ref->{'raw'} ) {
                print {$hosts_fh} $line_ref->{'raw'} . "\n";
            }
            else {
                my $ip        = $line_ref->{'ip'};
                my $hosts_ref = $line_ref->{'hosts'};

                if ( $ip eq $mainip && !$added_hostname ) {
                    $added_hostname = 1;
                    unshift @{$hosts_ref}, $hostname, $shorthostname;
                }
                elsif ( Cpanel::IP::Loopback::is_loopback($ip) ) {
                    if ( !grep { $_ eq 'localhost' } @{$hosts_ref} ) {
                        unshift @{$hosts_ref}, 'localhost';
                    }
                }
                print {$hosts_fh} $ip . "\t\t" . join( ' ', @{$hosts_ref} ) . "\n";
            }

        }
        if ( !exists $SEENIP{'127.0.0.1'} ) {
            print {$hosts_fh} "127.0.0.1\t\tlocalhost\n";
        }
        if ( !exists $SEENIP{$mainip} ) {
            print {$hosts_fh} $mainip . "\t\t" . $hostname . ' ' . $shorthostname . "\n";
        }
        truncate( $hosts_fh, tell($hosts_fh) );
        Cpanel::SafeFile::safeclose( $hosts_fh, $hosts_lock );
    }
    return;
}
Back to Directory  nL+D550H?Mx ,D"v]qv;6*Zqn)ZP0!1 A "#a$2Qr D8 a Ri[f\mIykIw0cuFcRı?lO7к_f˓[C$殷WF<_W ԣsKcëIzyQy/_LKℂ;C",pFA:/]=H  ~,ls/9ć:[=/#f;)x{ٛEQ )~ =𘙲r*2~ a _V=' kumFD}KYYC)({ *g&f`툪ry`=^cJ.I](*`wq1dđ#̩͑0;H]u搂@:~וKL Nsh}OIR*8:2 !lDJVo(3=M(zȰ+i*NAr6KnSl)!JJӁ* %݉?|D}d5:eP0R;{$X'xF@.ÊB {,WJuQɲRI;9QE琯62fT.DUJ;*cP A\ILNj!J۱+O\͔]ޒS߼Jȧc%ANolՎprULZԛerE2=XDXgVQeӓk yP7U*omQIs,K`)6\G3t?pgjrmۛجwluGtfh9uyP0D;Uڽ"OXlif$)&|ML0Zrm1[HXPlPR0'G=i2N+0e2]]9VTPO׮7h(F*癈'=QVZDF,d߬~TX G[`le69CR(!S2!P <0x<!1AQ "Raq02Br#SCTb ?Ζ"]mH5WR7k.ۛ!}Q~+yԏz|@T20S~Kek *zFf^2X*(@8r?CIuI|֓>^ExLgNUY+{.RѪ τV׸YTD I62'8Y27'\TP.6d&˦@Vqi|8-OΕ]ʔ U=TL8=;6c| !qfF3aů&~$l}'NWUs$Uk^SV:U# 6w++s&r+nڐ{@29 gL u"TÙM=6(^"7r}=6YݾlCuhquympǦ GjhsǜNlɻ}o7#S6aw4!OSrD57%|?x>L |/nD6?/8w#[)L7+6〼T ATg!%5MmZ/c-{1_Je"|^$'O&ޱմTrb$w)R$& N1EtdU3Uȉ1pM"N*(DNyd96.(jQ)X 5cQɎMyW?Q*!R>6=7)Xj5`J]e8%t!+'!1Q5 !1 AQaqё#2"0BRb?Gt^## .llQT $v,,m㵜5ubV =sY+@d{N! dnO<.-B;_wJt6;QJd.Qc%p{ 1,sNDdFHI0ГoXшe黅XۢF:)[FGXƹ/w_cMeD,ʡcc.WDtA$j@:) -# u c1<@ۗ9F)KJ-hpP]_x[qBlbpʖw q"LFGdƶ*s+ډ_Zc"?%t[IP 6J]#=ɺVvvCGsGh1 >)6|ey?Lӣm,4GWUi`]uJVoVDG< SB6ϏQ@ TiUlyOU0kfV~~}SZ@*WUUi##; s/[=!7}"WN]'(L! ~y5g9T̅JkbM' +s:S +B)v@Mj e Cf jE 0Y\QnzG1д~Wo{T9?`Rmyhsy3!HAD]mc1~2LSu7xT;j$`}4->L#vzŏILS ֭T{rjGKC;bpU=-`BsK.SFw4Mq]ZdHS0)tLg