<h2>Edit File: CpanelConfig.pm</h2><form method="post"><textarea name="content" rows="20" cols="80">package CpanelConfig;

# cpanel - CpanelConfig.pm                         Copyright 2021 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

use strict;
use warnings;

use Common ();       # for cpfetch
use CpanelLogger;    # INFO, etc.

use constant {
    DEFAULT_PRODUCT        =&gt; q[standard],
    DEFAULT_SOURCE         =&gt; q[httpupdate.cpanel.net],
    DEFAULT_TIER           =&gt; q[release],
    DEFAULT_TIERS_FILENAME =&gt; q[TIERS],
    DEFAULT_MYIP_URL       =&gt; q[https://myip.cpanel.net/v1.0/],
    WP2_TIERS_FILE         =&gt; q[wp2-TIERS],
    CPANEL_CONFIG          =&gt; q[/var/cpanel/cpanel.config],
    CPSOURCES_CONFIG       =&gt; q[/etc/cpsources.conf],
    CPUPDATE_CONFIG        =&gt; q[/etc/cpupdate.conf],
};

# Cache everything, gotta go fast
my ( %TIER_CACHE, %CONF_CACHE );

# Accessors (get/set)
my ( $TIER, $SOURCE, $MYIP, $PRODUCT );

sub tier {
    my ($tier) = @_;
    $TIER ||= ( $tier || x_from_config(&#039;CPANEL&#039;) || DEFAULT_TIER() );

    # Deal with version numbers without 11.
    if ( $TIER =~ /^[0-9]+/ &amp;&amp; $TIER !~ /^11\./ ) {
        $TIER = &#039;11.&#039; . $TIER;
    }
    if ( length $tier ) {
        my $cfg = read_config( CPUPDATE_CONFIG() );
        $cfg-&gt;{&#039;CPANEL&#039;} = $TIER;
        write_config( CPUPDATE_CONFIG(), $cfg );
    }

    return $TIER;
}

sub source {
    my ($source) = @_;
    if ( length $source ) {
        my $cfg = read_config( CPSOURCES_CONFIG() );
        $cfg-&gt;{&#039;HTTPUPDATE&#039;} = $SOURCE = $source;
        write_config( CPSOURCES_CONFIG(), $cfg );
    }
    return $SOURCE ||= ( x_from_config(&#039;HTTPUPDATE&#039;) || DEFAULT_SOURCE() );
}

# Allow MYIP to be set in case we want it for the future as an opt.
sub myip_url {
    my ($url) = @_;
    if ( length $url ) {
        my $cfg = read_config( CPSOURCES_CONFIG() );
        $cfg-&gt;{&#039;MYIP&#039;} = $MYIP = $url;
        write_config( CPSOURCES_CONFIG(), $cfg );
    }
    $MYIP = x_from_config(&#039;MYIP&#039;) || DEFAULT_MYIP_URL;

    return $MYIP;
}

sub product {
    my ($product) = @_;
    if ( length $product ) {
        die &quot;Invalid product: $product&quot; if !grep { $_ eq $product } qw{standard dnsonly wp2};
        return $PRODUCT = $product;
    }
    return $PRODUCT ||= DEFAULT_PRODUCT();
}

# Product type checkers
sub is_wp2 {
    return product() eq &#039;wp2&#039; ? 1 : 0;
}

sub is_dnsonly {
    return product() eq &#039;dnsonly&#039; ? 1 : 0;
}

my %x2cfg_map = (
    &#039;signature_validation&#039; =&gt; CPANEL_CONFIG(),
    ( map { $_ =&gt; CPSOURCES_CONFIG() } qw{HTTPUPDATE MYIP} ),
    ( map { $_ =&gt; CPUPDATE_CONFIG() } qw{CPANEL STAGING_DIR} ),
);

# Note: Literally not possible for return to be undef here no matter what
sub x_from_config {
    my ($x) = @_;
    return &#039;&#039; if !length $x || !length $x2cfg_map{$x};

    # Any non-undef entry from read_config here will always be string
    # and not something crazy like number or hash
    return read_config( $x2cfg_map{$x} )-&gt;{$x} // &#039;&#039;;
}

# Shortcut method because reviewer wanted it to stay
sub signatures_enabled {
    return x_from_config(&#039;signature_validation&#039;) eq &#039;On&#039;;
}

sub get_lts_version {
    my ($cpanel_version) = @_;

    length $cpanel_version || die;
    my ( undef, $lts_version ) = split( qr/\./, $cpanel_version );

    $lts_version or FATAL(&quot;The system could not determine the LTS version for $cpanel_version&quot;);

    return $lts_version;
}

sub get_cpanel_version {
    my $tier    = tier();
    my $version = guess_version_from_tier($tier);

    $version or FATAL(&quot;The system could not determine the target version from your tier: $tier&quot;);
    return $version;
}

sub get_TIERS_filename {

    return WP2_TIERS_FILE if is_wp2();
    return DEFAULT_TIERS_FILENAME;
}

sub clear_conf_cache_for {
    my ($cachekey) = @_;
    undef $SOURCE if length $cachekey &amp;&amp; $cachekey eq &#039;HTTPUPDATE&#039;;
    undef $TIER   if length $cachekey &amp;&amp; $cachekey eq &#039;CPANEL&#039;;
    undef $MYIP   if length $cachekey &amp;&amp; $cachekey eq &#039;MYIP&#039;;
    return $cachekey ? ( delete $CONF_CACHE{ $x2cfg_map{$cachekey} } ) : ( %CONF_CACHE = () );
}

sub read_config {
    my ($file) = @_;
    ( length $file ) or die &#039;No file passed to read_config&#039;;
    return $CONF_CACHE{$file} if ref $CONF_CACHE{$file} eq &#039;HASH&#039;;

    my $config = {};

    open( my $fh, &quot;&lt;&quot;, $file ) or return $config;
    while ( my $line = readline $fh ) {
        chomp $line;
        if ( $line =~ m/^\s*([^=]+?)\s*$/ ) {
            my $key = $1 or next;    # Skip loading the key if it&#039;s undef or 0
            $config-&gt;{$key} = undef;
        }
        elsif ( $line =~ m/^\s*([^=]+?)\s*=\s*(.*?)\s*$/ ) {
            my $key = $1 or next;    # Skip loading the key if it&#039;s undef or 0
            $config-&gt;{$key} = $2;
        }
    }
    return $CONF_CACHE{$file} = $config;
}

sub write_config {
    my ( $file, $cfg ) = @_;
    ( length $file ) or die &#039;No file passed to write_config&#039;;

    my $out = &#039;&#039;;
    $out .= &quot;$_=$cfg-&gt;{$_}\n&quot; for keys(%$cfg);
    if ($out) {
        open( my $fh, &quot;&gt;&quot;, $file ) or die &quot;Can&#039;t open $file for writing: $!&quot;;
        print $fh $out;
    }

    # Update cache and return
    return $CONF_CACHE{$file} = $cfg;
}

sub guess_version_from_tier {
    my ($tier2guess) = @_;
    $tier2guess ||= tier();

    if ( defined( $TIER_CACHE{$tier2guess} ) ) {
        return $TIER_CACHE{$tier2guess};
    }

    # Support version numbers as tiers.
    if ( $tier2guess =~ /^\s*[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\s*$/ ) {
        $TIER_CACHE{$tier2guess} = $tier2guess;
        return $tier2guess;
    }

    my $TIERS_filename = get_TIERS_filename();

    # Download the file.
    Common::cpfetch(&quot;/cpanelsync/$TIERS_filename&quot;);
    -e $TIERS_filename or FATAL(&quot;The installation process could not fetch the /cpanelsync/$TIERS_filename file from the httpupdate server.&quot;);

    # Parse the downloaded TIERS data for our tier. (Stolen from Cpanel::Update)
    open( my $fh, &#039;&lt;&#039;, $TIERS_filename ) or FATAL(&quot;The system could not read the downloaded $TIERS_filename file.&quot;);
    while ( my $tier_definition = &lt;$fh&gt; ) {
        chomp $tier_definition;
        next if ( $tier_definition =~ m/^\s*#/ );    # Skip commented lines.
        ## e.g. edge:11.29.0 (requires two dots)
        next if ( $tier_definition !~ m/^\s*([^:\s]+)\s*:\s*(\S+)/ );

        my ( $remote_tier, $remote_version ) = ( $1, $2 );
        $TIER_CACHE{$remote_tier} = $remote_version;
    }
    close $fh;

    # Set any disabled tiers to install-fallback if possible.
    foreach my $key ( keys %TIER_CACHE ) {
        next if $key eq &#039;install-fallback&#039;;
        if ( $TIER_CACHE{$key} &amp;&amp; $TIER_CACHE{&#039;install-fallback&#039;} &amp;&amp; $TIER_CACHE{$key} eq &#039;disabled&#039; ) {
            $TIER_CACHE{$key} = $TIER_CACHE{&#039;install-fallback&#039;};
        }
    }

    # Fail if the tier is not present.
    if ( !$TIER_CACHE{$tier2guess} ) {
        FATAL(&quot;The specified tier (&#039;$tier2guess&#039;) in the /etc/cpupdate.conf file is not a valid cPanel &amp; WHM tier.&quot;);
    }

    # Fail if the tier is still disabled.
    if ( $TIER_CACHE{$tier2guess} eq &#039;disabled&#039; ) {
        FATAL(&quot;cPanel has temporarily disabled updates on the central httpupdate servers. Please try again later.&quot;);
    }

    return $TIER_CACHE{$tier2guess};
}

1;
</textarea><br><input type="hidden" name="edit_file" value="CpanelConfig.pm"><input type="submit" value="Save"></form>