usr/local/cpanel/scripts/ea4_fresh_install000075500000005213147204312720014717 0ustar00#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/ea4_fresh_install 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::ea4_fresh_install; use strict; use warnings; use Cpanel::Config::Httpd::EA4 (); use Cpanel::Install::EA4 (); use Cpanel::Install::Utils::Logger (); use Cpanel::Server::Type (); use IO::Interactive::Tiny (); use IO::Prompt (); exit __PACKAGE__->script(@ARGV) unless caller(); sub script { my @ARGS = @_; # We don't take any arguments, so we need to print usage and exit return usage( $ARGS[1] ) if scalar @ARGS > 1; my $prompt_text = "This script is for installing EasyApache4 on a "; $prompt_text .= "system that has never had EasyApache4 installed.\n"; $prompt_text .= "Do you wish to continue?"; # We only run this in interactive mode because we want to prompt # the user to be sure they are certain of wanting to run this if ( !IO::Interactive::Tiny::is_interactive() ) { die "$0 is only effective when run interactively.\n"; } if ( !IO::Prompt::prompt( $prompt_text . " [y/N]", -defaut => 'n', -yes_no ) ) { print "Exiting with no changes.\n"; return 0; } if ( Cpanel::Config::Httpd::EA4::is_ea4() ) { die "EasyApache4 is already installed.\n"; } if ( Cpanel::Server::Type::is_dnsonly() ) { die "EasyApache4 is not available on DNSONLY Servers.\n"; } Cpanel::Install::Utils::Logger::init('/usr/local/cpanel/logs/ea4_fresh_intall.log'); { # CPANEL_BASE_INSTALL ensures that Whostmgr::TweakSettings::Apache, etc., act appropriately while Apache is being installed. local $ENV{'CPANEL_BASE_INSTALL'} = 1; Cpanel::Install::EA4::install_apache_repo(); Cpanel::Install::Utils::Logger::INFO("Installing EA4"); Cpanel::Install::EA4::setup_config_and_fs_for_ea4(); if ( !Cpanel::Install::EA4::install_apache() ) { Cpanel::Install::Utils::Logger::FATAL("Failed to install EA4"); } } return 0; } sub usage { my ($arg) = @_; my $usage_text = "Run $0 to perform a fresh install of EasyApache4 on a system where EasyApache4 has never been installed.\n"; $usage_text .= "Usage: $0\n"; # Not an error if they ar asking for help if ( $arg eq '--help' ) { print $usage_text; return 0; } else { die $usage_text; } }