^^&&^^

Edit File: easyapache

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - easyapache                                Copyright 2015 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

BEGIN { unshift @INC, '/var/cpanel/perl/easy'; }

use strict;

use Cpanel::Unix::PID::Tiny    ();
use Cpanel::Config::Httpd::EA4 ();

if ( Cpanel::Config::Httpd::EA4::is_ea4() ) {
    die "EasyApache3 is not available when EasyApache4 is in effect.\n";
}

my $from_upcp = ( @ARGV && grep( /^--from-upcp$/, @ARGV ) ) ? 1 : 0;

if ( !$from_upcp ) {
    my $upid = Cpanel::Unix::PID::Tiny->new();
    my $pid  = $upid->is_pidfile_running('/var/run/upcp.pid');

if ($pid) {
        print "cPanel Update (upcp) is currently running. Please wait for upcp process ( pid $pid ) to complete, then try again." . " You can run the command 'ps --pid $pid' to check if the process is running.\n";
        exit 1;
    }
}

if ( system( '/usr/local/cpanel/scripts/cpanel_easy_sanity_check', @ARGV ) != 0 ) {    # since its not distributed
    exit 1;
}

require Cpanel::Easy::Apache;                                                          #issafe

my $ea = Cpanel::Easy::Apache->new(                                                    #issafe
    {
        'ui_obj'    => 'Cpanel::Easy::Apache::UI::CLI',                                #issafe
        'param_obj' => 'Getopt::Param',                                                #issafe
        'help'      => sub {
            my ($easy) = @_;
            require Cpanel::Easy::Apache::UI::CLI::Help;                               #issafe
            Cpanel::Easy::Apache::UI::CLI::Help::do_help_and_exit($easy);              #issafe
        },
    }
);

$ea->run();