^^&&^^

Edit File: update_apachectl

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/update_apachectl                  Copyright 2014 cPanel, Inc.
#                                                           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 Cpanel::ConfigFiles::Apache ();
use Cpanel::Usage               ();
use Cpanel::Config::Httpd::EA4  ();
if ( Cpanel::Config::Httpd::EA4::is_ea4() ) {
    print "Nothing to do under ea4 (this script has been deprecated under ea4).\n";
    exit(0);
}

my $apacheconf = Cpanel::ConfigFiles::Apache->new();

my $apachectl_file = $apacheconf->bin_apachectl();

Cpanel::Usage::wrap_options( \@ARGV, \&usage, { 'file' => \$apachectl_file } );

if ( !-e $apachectl_file ) {
    print "$apachectl_file missing.\n";
    exit 1;
}

if ( open my $apachectl_fh, '+<', $apachectl_file ) {
    local $/ = undef;
    my $apachectl = readline($apachectl_fh);
    if ( $apachectl =~ /^PORT=/m ) {
        print "$apachectl_file is already updated.\n";
        close $apachectl_fh;
        exit 0;
    }
    unless ( $apachectl =~ /^STATUSURL=/m ) {
        print "Could not find STATUSURL in $apachectl_file.\n";
        exit 1;
    }
    my $new_statusurl = <<'EO_STATUSURL';
PORT="$(grep 'apache_port=' /var/cpanel/cpanel.config 2>/dev/null | sed -e 's/.*=$[.0-9]*:$\{0,1\}//;' -e 's/[^0-9]*//g' 2>/dev/null)"
STATUSURL="http://localhost:${PORT:-80}/whm-server-status"
EO_STATUSURL

$apachectl =~ s/^STATUSURL=.*?$/$new_statusurl/m;
    seek( $apachectl_fh, 0, 0 );
    print $apachectl_fh $apachectl;
    truncate( $apachectl_fh, tell($apachectl_fh) );
    close $apachectl_fh;
    print "Updated.\n";
    exit 0;
}
else {
    print "Unable to open $apachectl_file ready/write.\n";
    exit 1;
}

sub usage {
    my $apachectl = $apacheconf->bin_apachectl();
    print <<EO_USAGE;
update_apachectl [options]

This script updates apachectl to retrieve status information from
nonstandard ports as configured in WHM Tweak Settings

Options:
      --help       Brief help message
      --file       Location of the apachectl file (defaults to $apachectl)

EO_USAGE
    exit 0;
}