click here for details
|
|||||
click here for details};
}
################### New TEMPLATE UTILITY methods ###################
# This function constructs data structure for the list of steps in
# the EA wizard.
sub get_wizard_steps {
my ( $self, $easy, $nav_args ) = @_;
my ( $page_url, $method, $methods_hr, $last_seen ) = @{$nav_args};
return '' if $easy->get_param('action') eq 'save_and_build';
my @wizard_steps;
for my $func (
sort { $methods_hr->{$a}{'order'} <=> $methods_hr->{$b}{'order'} }
grep { exists $methods_hr->{$_}{'order'} }
keys %{$methods_hr}
) {
my $visited = $methods_hr->{$func}{'order'} <= $last_seen ? 1 : 0;
my %step = (
'stepKey' => $func,
'stepOrder' => $methods_hr->{$func}{'order'},
'stepName' => $methods_hr->{$func}{'short'},
'isVisited' => $visited,
'isCurrent' => $func eq $method
);
push @wizard_steps, \%step;
}
return \@wizard_steps;
}
sub old_list_profiles_tmpl {
my ( $self, $easy, $wizard_nav_data, $profiles_hr, $order_ar, $args_for_tmpl ) = @_;
my ($form_data) = $self->get_ea_config_data( $easy, qw( action profile) );
# Construct the profile list hash
my @profiles_list;
my $chosen = exists $profiles_hr->{ $easy->get_param('profile') } ? $easy->get_param('profile') : $easy->{'profile_main'};
# Filter to identify new profiles.
my $new_profile_filter = "cpanel_centos|cpanel_cloud";
for my $idx ( 0 .. scalar( @{$order_ar} - 1 ) ) {
# Filter out new profiles.
next if $order_ar->[$idx] =~ m{^$new_profile_filter};
my %profile_data;
my ( $is_selected, $is_custom ) = ( $order_ar->[$idx] eq $chosen ? 1 : 0, 0 );
my $name = $profiles_hr->{ $order_ar->[$idx] }{'_meta'}{'name'};
my $note = $profiles_hr->{ $order_ar->[$idx] }{'_meta'}{'note'};
if ( $order_ar->[$idx] !~ m{^cpanel_} && $order_ar->[$idx] ne $easy->{'profile_main'} ) {
$is_custom = 1;
}
# Fill in the profile hash with above collected data.
%profile_data = (
'index' => $idx,
'profileKey' => $order_ar->[$idx],
'profileName' => $name,
'profileDesc' => $note,
'isSelected' => $is_selected,
'isCustom' => $is_custom
);
push @profiles_list, \%profile_data;
}
# get_wizard_nav_data
my $wizard_steps = get_wizard_steps( $self, $easy, $wizard_nav_data );
my ( $page_url, $step_key, $steps_hr ) = @{$wizard_nav_data}[ 0 .. 2 ];
my $step_data = $steps_hr->{$step_key};
my $tmpl_args = {
'template_file' => 'list_profiles_old.tmpl',
'data' => {
'wizard' => {
'pageUrl' => $page_url,
'nextStepKey' => 'choose_apache',
'formData' => $form_data,
'wizardSteps' => $wizard_steps,
},
'page' => {
'header' => $easy->{'powered_by_line'},
'stepTitle' => $step_data->{'short'},
'stepDesc' => $step_data->{'name'},
'eaHelpUrl' => 'http://go.cpanel.net/eaissues',
'warnings' => {
'doUpdate' => $args_for_tmpl->{'cp_update'},
'updateUrl' => $args_for_tmpl->{'upcp'},
'isOpenSslBug' => $args_for_tmpl->{'is_open_ssl_bug'},
'optOpenssl' => $args_for_tmpl->{'opt_openssl'},
},
'profilesList' => \@profiles_list,
'showDetailText' => $show_icon,
'hideDetailText' => $hide_icon,
'aboutProfiles' => $Cpanel::Easy::Apache::UI::HTML::layover_safe_profile_details,
}
}
};
Cpanel::Template::process_template(
'whostmgr',
$tmpl_args,
{ 'include_path' => "/var/cpanel/perl/easy/Cpanel/Easy/easy_apache_ui" }
);
return;
}
# This function gets all the required data for constructing and working
# with Profiles step in EA wizard.
sub list_profiles_tmpl {
my ( $self, $easy, $wizard_nav_data, $profile, $profile_setup, $page_url ) = @_;
$easy->set_state_of_spec_includes_from_system($profile_setup);
my ( $cp_update, $is_open_ssl_bug, $opt_openssl ) = ( 0, 0, 0 );
my $cpanel_version = $easy->get_cpanel_version();
$cpanel_version = $cpanel_version =~ m{^(\d+([.]\d+)?).*} ? $1 : 0;
my ( $eleven, $cpanel_version_sub, @others ) = split( /\./, $cpanel_version );
my $upcp = $cpanel_version < 11.28 ? 'upcp' : 'upcp2';
if ( $easy->{'_'}{'Cpanel::Easy::Utils::cPVers out of date'} ) {
$cp_update = 1;
}
if ( $easy->openssl_bug_check() ) {
$is_open_ssl_bug = 1;
}
if ( -d '/opt/openssl' ) {
$opt_openssl = 1;
}
my $profiles_hr = $self->get_profiles_hashref($easy);
my $order_ar = $self->get_profiles_order_arrayref($easy);
##
# Branch out to call old_list_profiles_tmpl, if cPanel version is
# anywhere between 11.34 and 1138 inclusive of both.
##
if ($IS_1134_to_1138) {
my $args_for_tmpl = {
'open_ssl' => $is_open_ssl_bug,
'opt_openssl' => $opt_openssl,
'cp_update' => $cp_update,
'upcp' => $upcp
};
old_list_profiles_tmpl( $self, $easy, $wizard_nav_data, $profiles_hr, $order_ar, $args_for_tmpl );
return;
}
my $cloud_linux_installed = Cpanel::Easy::Utils::CloudLinux::has_cloudlinux_support();
my $filter = $cloud_linux_installed ? "cloud" : "centos";
my $profile_filter = "cpanel_$filter";
my $is_cloudlinux_supported = 1;
my $is_centos7_plus = 0;
if ( !$cloud_linux_installed ) {
$is_cloudlinux_supported = Cpanel::Easy::Utils::CloudLinux::is_cloudlinux_supported();
# Check for cent os 7+ version for CentOS machines only if cloudlinux is not installed.
$is_centos7_plus = ( $easy->is_redhat() && $easy->{'getos_releaseversion'} >= 7 );
}
# Construct the profile list hash
my ( $defaultp, $standardp, $customp ) = $self->differentiate_profiles( $easy, $cloud_linux_installed );
my @default_profile = @{$defaultp};
my @standard_profiles = @{$standardp};
my @custom_profiles = @{$customp};
my $tmpl_args = {
'template_file' => 'list_profiles.tmpl',
'data' => {
'wizard' => {
'pageUrl' => $page_url,
'nextStepKey' => 'choose_apache',
# 'formData' => $form_data,
},
'page' => {
'header' => $easy->{'powered_by_line'},
'isCloudLinux' => $cloud_linux_installed,
'isCloudLinuxSupported' => $is_cloudlinux_supported,
'is_centos7_plus' => $is_centos7_plus,
'eaHelpUrl' => 'http://go.cpanel.net/eaissues',
'purchaseCloudlinuxData' => $easy->{'purchase_cloudlinux_data'},
'cpanel_version_sub' => $cpanel_version_sub,
'warnings' => {
'doUpdate' => $cp_update,
'updateUrl' => $upcp,
'isOpenSslBug' => $is_open_ssl_bug,
'optOpenssl' => $opt_openssl,
},
'profilesList' => {
'defaultProfile' => \@default_profile,
'standardProfileList' => \@standard_profiles,
'customProfileList' => \@custom_profiles,
},
'aboutProfiles' => $Cpanel::Easy::Apache::UI::HTML::layover_safe_profile_details,
}
}
};
Cpanel::Template::process_template(
'whostmgr',
$tmpl_args,
{ 'include_path' => "/var/cpanel/perl/easy/Cpanel/Easy/easy_apache_ui" }
);
return;
}
# This function gets all the required data for constructing and working
# with Apache step in EA wizard.
sub choose_apache_tmpl {
my ( $self, $easy_apache, $wizard_nav_data, $profile, $profile_setup ) = @_;
$self->merge_profile( $easy_apache, $profile, $profile_setup );
# get_wizard_nav_data
my $wizard_steps = get_wizard_steps( $self, $easy_apache, $wizard_nav_data );
my ( $page_url, $step_key, $steps_hr ) = @{$wizard_nav_data}[ 0 .. 2 ];
my $step_data = $steps_hr->{$step_key};
my $form_data = $self->get_ea_config_data( $easy_apache, qw( action apache) );
# Get available apache versions.
my ( $apv_hr, $ord_ar, $current_version ) = $self->get_apache_hashref_order_and_current($easy_apache);
# Get full version name of currently used version.
$current_version = $easy_apache->_get_httpd_version();
# Get full version name of the version in profile.
my $profile_full_version = get_full_apache_version( $profile_setup->{'Apache'}{'version'}, $apv_hr );
my ( $selected_apache_ver, $ea_sld_url ) = ( '', $Cpanel::Easy::Apache::Utils::Support::URL );
my @verify_options;
my @version_list;
for my $version ( @{$ord_ar} ) {
my %version_data;
my $full_version = get_full_apache_version( $version, $apv_hr ) || $version;
my $is_selected = $easy_apache->get_param('apache') eq $version ? 1 : 0;
# Select the version from profile when this page is loaded first time during
# the wizard process.
if ( !exists $apv_hr->{ $easy_apache->get_param('apache') }
&& $profile_setup->{'Apache'}{'version'} eq $version ) {
$is_selected = 1;
}
# Save the selected version to use it in js for verify functionality.
if ($is_selected) {
$selected_apache_ver = $version;
}
# Get the configuration for each version which tells if a
# verification is needed to select/unselect it.
my %verify_option_cfg = build_verify_data( $self, $apv_hr->{$version}, "apache_$version" );
# If the current version should be verified, add
# it to the verify list.
if ( scalar( keys %verify_option_cfg ) > 0 ) {
push( @verify_options, \%verify_option_cfg );
}
%version_data = (
'versionKey' => $version,
'versionName' => $full_version,
'versionDesc' => $apv_hr->{$version}{'note'},
'isSelected' => $is_selected,
'isEOL' => ( defined $apv_hr->{$version}{support} && $apv_hr->{$version}{support} == $ENDOFLIFE ? 1 : 0 ), # Boolean value if the version of Apache is "End of Life" or not
);
push @version_list, \%version_data;
}
my $json_verify_versions = JSON::Syck::Dump( \@verify_options );
my $tmpl_args = {
'template_file' => 'list_apache.tmpl',
'data' => {
'wizard' => {
'pageUrl' => $page_url,
'wizardSteps' => $wizard_steps,
'nextStepKey' => 'choose_php',
'formData' => $form_data,
},
'page' => {
'header' => $easy_apache->{'powered_by_line'},
'stepTitle' => $step_data->{'short'},
'stepDesc' => $step_data->{'name'},
'showDetailText' => $show_icon,
'hideDetailText' => $hide_icon,
'eaSldUrl' => $ea_sld_url,
'usedVersion' => $current_version,
'profileVersion' => $profile_full_version,
'selectedVersion' => $selected_apache_ver,
'versionList' => \@version_list,
'verifyVersions' => $json_verify_versions,
}
}
};
Cpanel::Template::process_template(
'whostmgr',
$tmpl_args,
{ 'include_path' => "/var/cpanel/perl/easy/Cpanel/Easy/easy_apache_ui" }
);
return;
}
# This function gets all the required data for constructing and working
# with Php step in EA wizard.
sub choose_php_tmpl {
my ( $self, $easy_apache, $wizard_nav_data, $profile, $profile_setup ) = @_;
# get_wizard_nav_data
my $wizard_steps = get_wizard_steps( $self, $easy_apache, $wizard_nav_data );
my ( $page_url, $step_key, $steps_hr ) = @{$wizard_nav_data}[ 0 .. 2 ];
my $step_data = $steps_hr->{$step_key};
my $form_data = $self->get_ea_config_data( $easy_apache, qw( action php5 turn_off_old_new_php_setting) );
# update working profile with version that has actually been selected
$profile_setup->{Apache}->{version} = $form_data->{'apache'} if ( $form_data->{'apache'} =~ m/2_2|2_4/ );
my $selected_version = '';
my @installed;
if ( @installed = $self->get_current_php_versions($easy_apache) ) {
@installed = grep( s/^(\d).*/$1/, @installed );
}
my %old_new_php_settings;
if ( $easy_apache->get_param('turn_off_old_new_php_setting') ) {
$easy_apache->set_param( 'turn_off_old_new_php_setting', 0 );
$easy_apache->{'_'}{'prefs'}{'always_do_the_latest_phps'} = 0;
$easy_apache->set_param( 'always_do_the_latest_phps', 0 );
$easy_apache->{'_'}{'prefs'}{'always_do_the_oldest_phps'} = 0;
$easy_apache->set_param( 'always_do_the_oldest_phps', 0 );
my $pr_hr = $easy_apache->deserialize( $easy_apache->{'prefs_file'} );
$pr_hr->{'always_do_the_latest_phps'} = 0;
$pr_hr->{'always_do_the_oldest_phps'} = 0;
$easy_apache->serialize( $easy_apache->{'prefs_file'}, $pr_hr );
}
my @version_list;
my %support_info;
my $php_namespace = "Cpanel::Easy::PHP5";
##
# $none_from_profile - Set to true if the selected profile to customize, has
# "no php" option.
##
my $none_from_profile = !$easy_apache->get_ns_value_from_profile( $php_namespace, $profile );
if ( $easy_apache->{'_'}{'prefs'}{'always_do_the_oldest_phps'} || $easy_apache->{'_'}{'prefs'}{'always_do_the_latest_phps'} ) {
eval qq{ require $php_namespace; };
my $version_key = $easy_apache->{'_'}{'prefs'}{'always_do_the_latest_phps'} ? $php_namespace->latest_version() : $php_namespace->oldest_version();
my $version_name = "5.$version_key";
$version_name =~ s{\_}{.}g;
my $selected = "";
if ( !$none_from_profile ) {
$selected = $version_key;
}
my ( $do_latest, $do_oldest ) = ( 0, 0 );
if ( $easy_apache->{'_'}{'prefs'}{'always_do_the_latest_phps'} ) {
$do_latest = 1;
}
else {
$do_oldest = 1;
}
%old_new_php_settings = (
"versionKey" => $version_key,
"selectedVersion" => $selected,
"versionName" => $version_name,
"doOldest" => $do_oldest,
"doLatest" => $do_latest,
"supportText" => Cpanel::Easy::PHP5::support_decoration($version_key),
);
my $support_level = Cpanel::Easy::PHP5::support_level($version_key);
if ($support_level) {
$support_info{$support_level} = '* ' . Cpanel::Easy::PHP5::support_text($version_key);
}
}
else {
my $cur_php = Cpanel::LoadFile::loadfile('/usr/local/apache/conf/php.version');
chomp $cur_php;
eval qq{ require $php_namespace; };
##
# $none_from_param - Set to true if none is selected while
# customizing the profile using wizard navigation.
##
my ( $param_exists, $none_from_param, $php_param ) = ( 0, 0, "" );
if ( grep( /^php5$/, $easy_apache->{'param_obj'}->param() ) ) {
$param_exists = 1;
$php_param = $easy_apache->get_param('php5');
$none_from_param = $php_param eq "" ? 1 : 0;
}
my @versions = $php_namespace->versions();
# Evaluate the selected PHP version.
my $selected_version_set = 0;
for my $version_key (@versions) {
# Make sure the selected version is set only once
if ( !$selected_version_set ) {
# Check if a php version is selected during the wizard navigation.
# Set a flag so to make sure nothing else is filled in $selected_version
# if none(empty string) is selected.
if ($param_exists) { # An info msg will be helpful to display if this condition fails
if ( $php_param eq $version_key ) {
$selected_version = $version_key;
$selected_version_set = 1;
}
}
elsif ( !$none_from_profile && $profile_setup->{ 'Cpanel::Easy::PHP5::' . $version_key } ) {
$selected_version = $version_key;
$selected_version_set = 1;
}
}
my %version_data;
my $version_name = "5.$version_key";
$version_name =~ s{\_}{\.}g;
# Get the decoration string for the current php version
# (i.e. Deprecated/EOL etc.)
my $support_decoration = Cpanel::Easy::PHP5::support_decoration($version_key);
%version_data = (
'versionKey' => $version_key,
'versionName' => $version_name,
'supportDecoration' => Cpanel::Easy::PHP5::support_decoration($version_key)
);
my $support_level = Cpanel::Easy::PHP5::support_level($version_key);
if ($support_level) {
$support_info{$support_level} = '* ' . Cpanel::Easy::PHP5::support_text($version_key);
}
push @version_list, \%version_data;
}
# The latest php version is selected as a final fallback if:
# 1. Php in profile is not supported by the current EA
# 2. Php set in the param(some way other than the UI) is not supported by the current EA
if ( !$none_from_param && !$none_from_profile && !$selected_version ) {
$selected_version = $php_namespace->latest_version($profile_setup);
}
}
my $cloud_linux_installed = Cpanel::Easy::Utils::CloudLinux::has_cloudlinux_support();
my $is_cloudlinux_supported = 1;
if ( !$cloud_linux_installed ) {
$is_cloudlinux_supported = Cpanel::Easy::Utils::CloudLinux::is_cloudlinux_supported();
}
my $tmpl_args = {
'template_file' => 'list_php.tmpl',
'data' => {
'wizard' => {
'pageUrl' => $page_url,
'wizardSteps' => $wizard_steps,
'nextStepKey' => 'show_basic_opts',
'formData' => $form_data,
},
'page' => {
'header' => $easy_apache->{'powered_by_line'},
'stepTitle' => $step_data->{'short'},
'stepDesc' => $step_data->{'name'},
'showDetailText' => $show_icon,
'hideDetailText' => $hide_icon,
'helpUrl' => $Cpanel::Easy::Apache::Utils::Support::URL,
'mainPhpVersion' => $easy_apache->{'state'}{'optmods'}{$php_namespace}{'name'},
'selectedVersion' => $selected_version,
'oldNewPhpSettings' => \%old_new_php_settings,
'versionList' => \@version_list,
'supportInfo' => \%support_info,
'installedVersionList' => \@installed,
'cloudLinuxInstalled' => $cloud_linux_installed,
'isCloudLinuxSupported' => $is_cloudlinux_supported,
'purchaseCloudlinuxData' => $easy_apache->{'purchase_cloudlinux_data'}
}
}
};
Cpanel::Template::process_template(
'whostmgr',
$tmpl_args,
{ 'include_path' => "/var/cpanel/perl/easy/Cpanel/Easy/easy_apache_ui" }
);
return;
}
# This function gets all the required data for optional modules
# for a specified software (apache, php etc).
sub get_optmods_data {
my ( $easy, $profile_hr, $params_ar, $form_parts_name, $bold_names ) = @_;
$bold_names = 0 if !$bold_names;
my @show;
my %data;
# prefs $params_ar is already in order
for my $pns ( $form_parts_name eq 'prefs' ? @{$params_ar} : sort @{$params_ar} ) {
if ( $form_parts_name ne 'prefs' ) {
$data{$pns} = $easy->get_easyconfig_hr_from_ns_variations($pns);
next if !$data{$pns} || !keys %{ $data{$pns} };
push @show, $pns unless ( $data{$pns}->{'skip'} || $data{$pns}->{'display_hide'} );
}
else {
$data{$pns} = $easy->{'prefs_details'}{$pns};
$data{$pns}{'am_i_on'} = sub {
my ( $easy, $name ) = @_;
return $easy->{'_'}{'prefs'}{$name} ? 1 : 0;
};
push @show, $pns;
}
}
return if !@show;
my ( @verify_options, @opt_mod_list );
for my $ns (@show) {
my ( $url, $opt_mod_desc, $from_param ) = ( "", "", 0 );
my $on =
ref $data{$ns}->{'am_i_on'} eq 'CODE'
? $data{$ns}->{'am_i_on'}->( $easy, $ns )
: $easy->get_ns_value_from_profile( $ns, $profile_hr );
if ( defined $easy->get_param($ns) ) {
$from_param = 1;
$on = $easy->get_param($ns) ? 1 : 0;
}
my $is_selected = $on ? 1 : 0;
if ( $data{$ns}->{'reverse'} && !$from_param ) {
$is_selected = $on ? 0 : 1;
}
my $is_reverse = $data{$ns}->{'reverse'};
$data{$ns}->{'name'} = $ns if !$data{$ns}->{'name'};
if ( $data{$ns}->{'url'} ) {
$url = $data{$ns}->{'url'};
my $uri_vers = $easy->{'apache_uri_version_lookup'}{ $easy->{'working_profile'}{'Apache'}{'version'} };
$url =~ s{\[\% apache_uri_version \%\]}{$uri_vers}g;
}
# REFACTOR: $opt_mod_desc should return only description text.
# Disable/Enable modules should be returned as its own list.
$opt_mod_desc = $data{$ns}->{'note'} if $data{$ns}->{'note'};
# Verify if the user indeed wants to select this option on or off
if ( $data{$ns}->{'verify_on'} || $data{$ns}->{'verify_off'} ) {
my %verify_option_cfg = build_verify_data( $easy, $data{$ns}, "$ns" );
if ( scalar( keys %verify_option_cfg ) > 0 ) {
push( @verify_options, \%verify_option_cfg );
}
}
my $support_level = "";
if ( $data{$ns}->{'support'} ) {
my $gap = ' ' x 3;
$support_level = get_short_deco( $data{$ns}->{'support'} );
}
my $last_run_failed = exists $easy->{'last_failed'}{$ns};
my %opt_mod_cfg = (
"key" => $ns,
"name" => $data{$ns}->{'name'},
"url" => $url,
"isSelected" => $is_selected,
"isReverse" => $is_reverse,
"lastRunFailed" => $last_run_failed,
"supportLevel" => $support_level,
"desc" => $opt_mod_desc
);
# Add this cfg to opt mod list
push( @opt_mod_list, \%opt_mod_cfg );
}
return ( \@opt_mod_list, \@verify_options );
}
# This function gets all the required data for constructing and working
# with Short options list in EA wizard.
sub show_basic_opts_tmpl {
my ( $self, $easy_apache, $wizard_nav_data, $profile, $profile_setup ) = @_;
$self->merge_profile( $easy_apache, $profile, $profile_setup );
# get_wizard_nav_data
my $wizard_steps = get_wizard_steps( $self, $easy_apache, $wizard_nav_data );
my ( $page_url, $step_key, $steps_hr ) = @{$wizard_nav_data}[ 0 .. 2 ];
my $step_data = $steps_hr->{$step_key};
my @php_param;
my $pns = 'Cpanel::Easy::PHP5';
eval qq{require $pns;};
my @versions = $pns->versions();
# Remove old versions from profile
foreach my $ns ( keys %$profile_setup ) {
delete $profile_setup->{$ns} if ( $ns =~ /^\Q$pns\E::\d+_\d+$/ );
}
# Set current version so modself kicks off
my $selected = $easy_apache->get_param('php5');
my $found = 0;
foreach my $ver (@versions) {
my $subns = "${pns}::${ver}";
$easy_apache->set_ns_value_in_profile( $subns, $profile_setup, ( $ver eq $selected ? 1 : 0 ) );
$found = 1 if $ver eq $selected;
}
$easy_apache->set_ns_value_in_profile( $pns, $profile_setup, $found );
push @php_param, '5' if $found;
$easy_apache->set_param( 'php', @php_param );
my $invalid_apache = 0;
if ( !exists $easy_apache->{'state'}{'optmods'}{'Apache'}{'_main'}{ $easy_apache->get_param('apache') } ) {
my $def = $profile_setup->{'Apache'}{'version'};
$invalid_apache = 1;
$easy_apache->set_param( 'apache', $def );
}
$profile_setup->{'Apache'}{'version'} = $easy_apache->get_param('apache');
$easy_apache->{'working_profile'} = $profile_setup;
my %form_parts;
my ( $apache_ar, $php5_ar, $non_php_includes_ar, $prefs_ar ) = $self->get_opt_params_lists($easy_apache);
my ( $opt_mod_list, $verify_option_list ) = get_optmods_data( $easy_apache, $profile_setup, [ @{$non_php_includes_ar}, @{ $easy_apache->{'apache_ns_mods_in_basic'} } ], 'apache_sepcial', 1 );
my %js_config = (
"optionsTableClass" => "optionsList",
"verifyOptions" => $verify_option_list
);
my $json_js_config = JSON::Syck::Dump( \%js_config );
my %param_lookup;
@param_lookup{ @{ $easy_apache->{'apache_ns_mods_in_basic'} }, @{$non_php_includes_ar} } = ();
my %opt_mod_form_data;
LIST:
for my $ar ( $apache_ar, $php5_ar ) {
ITEM:
for my $opt ( @{$ar} ) {
next ITEM if exists $param_lookup{$opt};
my $setting = defined $easy_apache->get_param($opt) ? $easy_apache->get_param($opt) : $easy_apache->get_ns_value_from_profile( $opt, $profile_setup );
$setting = $setting ? 1 : 0;
my $ec = $easy_apache->get_easyconfig_hr_from_ns_via_state($opt);
if ( $ec->{'reverse'} ) {
$setting = $setting ? 0 : 1;
}
$opt_mod_form_data{$opt} = $setting;
}
}
my $prefs = $easy_apache->deserialize( $easy_apache->{'prefs_file'} );
my @params = ( "action", "turn_off_old_new_php_setting", @{$non_php_includes_ar}, @{ $easy_apache->{'apache_ns_mods_in_basic'} } );
my $form_data = $self->get_ea_config_data( $easy_apache, @params );
my $tmpl_args = {
'template_file' => 'short_options.tmpl',
'data' => {
'wizard' => {
'pageUrl' => $page_url,
'wizardSteps' => $wizard_steps,
'nextStepKey' => 'show_all_opts',
'formData' => $form_data,
},
'page' => {
'header' => $easy_apache->{'powered_by_line'},
'stepTitle' => $step_data->{'short'},
'stepDesc' => $step_data->{'name'},
'invalidApache' => $invalid_apache,
'optModFormData' => \%opt_mod_form_data,
"optModList" => $opt_mod_list,
'preferences' => $prefs,
'verifyOptions' => $json_js_config,
}
}
};
Cpanel::Template::process_template(
'whostmgr',
$tmpl_args,
{ 'include_path' => "/var/cpanel/perl/easy/Cpanel/Easy/easy_apache_ui" }
);
return; # false means no build yet
}
# This function gets all the required data for constructing and working
# with All options list in EA wizard.
sub show_all_opts_tmpl {
my ( $self, $easy_apache, $wizard_nav_data, $profile, $profile_setup ) = @_;
$self->merge_profile( $easy_apache, $profile, $profile_setup );
# get_wizard_nav_data
my $wizard_steps = get_wizard_steps( $self, $easy_apache, $wizard_nav_data );
my ( $page_url, $step_key, $steps_hr ) = @{$wizard_nav_data}[ 0 .. 2 ];
my $step_data = $steps_hr->{$step_key};
##
# Set the selected PHP version in php step
##
my $is_php5 = grep( /^5$/, $easy_apache->get_param('php') ) ? 1 : 0;
my $php5_ns = 'Cpanel::Easy::PHP5';
$easy_apache->set_ns_value_in_profile( $php5_ns, $profile_setup, $is_php5 );
if ($is_php5) {
# Remove old versions from profile
foreach my $ns ( keys %$profile_setup ) {
delete $profile_setup->{$ns} if ( $ns =~ /^\Q$php5_ns\E::\d+_\d+$/ );
}
# Set current version so modself kicks off
my $selected = $easy_apache->get_param('php5');
eval qq{require $php5_ns;};
my @versions = $php5_ns->versions();
# Turn on the correct PHP5 version in the profile and turn off the remaining versions.
foreach my $ver (@versions) {
my $subns = "${php5_ns}::${ver}";
$easy_apache->set_ns_value_in_profile( $subns, $profile_setup, ( $ver eq $selected ? 1 : 0 ) );
}
}
##
# Set the selected Apache version in apache step
##
my $invalid_apache = 0;
my $profile_apache = "";
if ( !exists $easy_apache->{'state'}{'optmods'}{'Apache'}{'_main'}{ $easy_apache->get_param('apache') } ) {
my $profile_apache = $profile_setup->{'Apache'}{'version'};
$invalid_apache = 1;
$easy_apache->set_param( 'apache', $profile_apache );
}
$profile_setup->{'Apache'}{'version'} = $easy_apache->get_param('apache');
# set unchecked ones to zero
for my $apo ( keys %{ $profile_setup->{'Apache'}{'optmods'} } ) {
$profile_setup->{'Apache'}{'optmods'}{$apo} = $easy_apache->get_param( 'Cpanel::Easy::Apache::' . $apo ) ? 1 : 0;
}
for my $opt ( keys %{$profile_setup} ) {
next if $opt eq 'Apache' || $opt eq '_meta' || !defined( $easy_apache->get_param($opt) );
$profile_setup->{$opt} = $easy_apache->get_param($opt) ? 1 : 0;
}
my ( $apache_ar, $php5_ar, $non_php_includes_ar, $prefs_ar ) = $self->get_opt_params_lists($easy_apache);
for my $opt ( @{$non_php_includes_ar} ) {
$profile_setup->{$opt} = $easy_apache->get_param($opt) ? 1 : 0;
}
$easy_apache->{'working_profile'} = $profile_setup;
# # ??? Add change profile menu here or leave it out, can do after release
my ( @resultOptions, @verify_options );
##
# $opt_mod_list: is used to hold the optional module list for each software (apache/php etc.)
# $verify_option_list is used to hold list of options which require a confirm verification popup
##
my @full_opt_list;
my ( $opt_mod_list, $verify_option_list ) = get_optmods_data( $easy_apache, $profile_setup, $apache_ar, 'apache' );
if ($opt_mod_list) {
push @full_opt_list,
{
"sectionKey" => "apache",
"sectionData" => $opt_mod_list
};
if ($verify_option_list) {
@resultOptions = @{$verify_option_list};
push @verify_options, @resultOptions;
}
}
( $opt_mod_list, $verify_option_list ) = get_optmods_data( $easy_apache, $profile_setup, $non_php_includes_ar, 'non_php_includes' );
if ($opt_mod_list) {
push @full_opt_list,
{
"sectionKey" => "non_php_includes",
"sectionData" => $opt_mod_list
};
if ($verify_option_list) {
@resultOptions = @{$verify_option_list};
push @verify_options, @resultOptions;
}
}
if ($is_php5) {
( $opt_mod_list, $verify_option_list ) = get_optmods_data( $easy_apache, $profile_setup, $php5_ar, 'php5' );
if ($opt_mod_list) {
push @full_opt_list,
{
"sectionKey" => "php5",
"sectionData" => $opt_mod_list
};
if ($verify_option_list) {
@resultOptions = @{$verify_option_list};
push @verify_options, @resultOptions;
}
}
}
( $opt_mod_list, $verify_option_list ) = get_optmods_data( $easy_apache, $profile_setup, $prefs_ar, 'prefs' );
if ($opt_mod_list) {
push @full_opt_list,
{
"sectionKey" => "prefs",
"sectionData" => $opt_mod_list
};
if ($verify_option_list) {
@resultOptions = @{$verify_option_list};
push @verify_options, @resultOptions;
}
}
my @nav_index = (
{
'name' => 'Apache',
'anchor' => 'apache',
},
{
'name' => 'Other',
'anchor' => 'non_php_includes',
},
);
my %save_as_form_data;
if ( $profile ne $easy_apache->{'profile_main'} ) {
%save_as_form_data = (
'save_as_ident' => $easy_apache->get_param('profile') =~ m{^cpanel_} ? '' : Cpanel::Encoder::html_encode_str( $easy_apache->get_param('profile') ),
'save_as_name' => Cpanel::Encoder::html_encode_str( $profile_setup->{'_meta'}{'name'} ),
'save_as_desc' => Cpanel::Encoder::html_encode_str( $profile_setup->{'_meta'}{'note'} ),
);
}
for my $key (qw( save_as_ident save_as_name save_as_desc )) {
$save_as_form_data{$key} = Cpanel::Encoder::html_encode_str( $easy_apache->get_param($key) ) if $easy_apache->get_param($key);
}
my $php_full_version = "5.";
eval qq{use $php5_ns;};
my @vrs = $php5_ns->versions();
$php_full_version .= $easy_apache->get_param('php5') || ( grep { $profile_setup->{ $php5_ns . '::' . $_ } } @vrs )[0] || 'x';
$php_full_version =~ s{\_}{\.}g;
if ($is_php5) {
push @nav_index,
{
'name' => "PHP 5",
'anchor' => "php5",
};
}
# REFACTOR: Both pref & save can be added in one push.
push @nav_index,
{
'name' => 'Preferences',
'anchor' => "prefs",
};
push @nav_index,
{
'name' => 'Save As',
'anchor' => 'save',
};
my %js_config = (
"optionsTableClass" => "optionsList",
"verifyOptions" => \@verify_options
);
my $json_js_config = JSON::Syck::Dump( \%js_config );
my $rgx = qr(::);
my @params = ( "action", "save_as_ident", "save_as_name", "save_as_desc", @{$prefs_ar}, $rgx );
my $form_data = $self->get_ea_config_data( $easy_apache, @params );
my $tmpl_args = {
'template_file' => 'full_options.tmpl',
'data' => {
'wizard' => {
'pageUrl' => $page_url,
'wizardSteps' => $wizard_steps,
'formData' => $form_data,
},
'page' => {
'header' => $easy_apache->{'powered_by_line'},
'stepTitle' => $step_data->{'short'},
'stepDesc' => $step_data->{'name'},
'invalidApache' => $invalid_apache,
'profileApache' => $profile_apache,
'isPhp5' => $is_php5,
'phpFullVersion' => $php_full_version,
'navIndex' => \@nav_index,
'fullOptList' => \@full_opt_list,
'saveAsFormData' => \%save_as_form_data,
'verifyOptions' => $json_js_config,
}
}
};
Cpanel::Template::process_template(
'whostmgr',
$tmpl_args,
{ 'include_path' => "/var/cpanel/perl/easy/Cpanel/Easy/easy_apache_ui" }
);
return; # false means no build yet
}
################### END New TEMPLATE UTILITY methods ###################
#### configure_profile() %methods ##
sub list_profiles {
my ( $self, $easy, $profile, $profile_setup, $zero ) = @_;
$easy->set_state_of_spec_includes_from_system($profile_setup);
my ( $profiles_hr, $order_ar ) = $self->get_profiles_hashref_and_order_arrayref($easy);
my $warning = '';
my $js_config = qq/{
profileClassName : "profile",/;
my $cpanel_version = $easy->get_cpanel_version();
$cpanel_version = $cpanel_version =~ m{^(\d+([.]\d+)?).*} ? $1 : 0;
my $upcp = $cpanel_version < 11.28 ? 'upcp' : 'upcp2';
if ( $easy->{'_'}{'Cpanel::Easy::Utils::cPVers out of date'} ) {
$warning .= q{Your build is out of date as per the red message at the top of the page.
For best results, you should update before running easy apache.
}; } my $url = 'http://go.cpanel.net/eaissues'; if ( $easy->openssl_bug_check() ) { $warning .= qq{Your server may be using a version of OpenSSL that contains a serious bug that can prevent Apache 2.x from running properly. Before proceeding further, we ask that you please read the information provided at the following URL and take the proper steps to correct this issue on your server.
}; # ADD URL TO CONFIG $js_config .= qq/ openSSLBug : true, eaHelpUrl : "$url",/; } if ( -d '/opt/openssl' ) { $warning .= qq{If you experience problems or want to go back to your system openssl read this first.
}; } if ($warning) { # ADD WARNING TO CONFIG $js_config .= qq/ warning : "$warning",/; } my $icon = -e '/usr/local/cpanel/whostmgr/docroot/images/reject.gif' ? q{ } : '';
print <<"END_EA3";
[EasyApache Quick Reference guide]
[Click here to view details]}; $note .= qq{ [Raw]}; $note .= qq{ [Download profile]}; $note .= qq{ [About Profiles]
}; my ( $l, $r, $d, $detailClass ) = ( $idx == 0 || $checked ) ? ( $show_icon, $hide_icon, 'block', $hide_det_class ) : ( $hide_icon, $show_icon, 'none', $show_det_class ); print qq{\n}; } print qq{or }; $js_config .= qq/ descLinkIdSuffix: "seedetails", buildButtonId : "save_and_build" }/; print $self->get_form_end( $easy, { 'submit' => 'Customize Profile', 'no_p' => 1, } ); print qq{
\n}; print <<"END_JS"; END_JS return; # zero means no build yet } # This sub builds a hash for each given option # if it has requirement to verify when switched on or off. sub build_verify_data { my $self = shift; my $apv_hr = shift; my ($option_id) = @_; my %option_cfg; if ( $apv_hr->{'verify_on'} || $apv_hr->{'verify_off'} ) { my $on_txt = $apv_hr->{'verify_on'} ? Cpanel::Encoder::html_encode_str( $apv_hr->{'verify_on'} ) : ''; my $on_url = $apv_hr->{'verify_on_url'} ? sprintf( q{%s}, $apv_hr->{'verify_on_url'}, $apv_hr->{'verify_on_url'} ) : ''; my $off_txt = $apv_hr->{'verify_off'} ? Cpanel::Encoder::html_encode_str( $apv_hr->{'verify_off'} ) : ''; my $off_url = $apv_hr->{'verify_off_url'} ? sprintf( q{%s}, $apv_hr->{'verify_off_url'}, $apv_hr->{'verify_off_url'} ) : ''; my ( %on_obj, %off_obj ); # Start building the configuration hash for the # current option. $option_cfg{'id'} = "$option_id"; if ( $on_txt || $on_url ) { %on_obj = ( 'text' => "$on_txt", 'url' => "$on_url" ); # Add this to option configuration $option_cfg{'onObj'} = \%on_obj; } if ( $off_txt || $off_url ) { %off_obj = ( 'text' => "$off_txt", 'url' => "$off_url" ); # Add this to option configuration $option_cfg{'offObj'} = \%off_obj; } } return %option_cfg; } sub choose_apache { my ( $self, $easy, $profile, $profile_setup, $zero ) = @_; $self->merge_profile( $easy, $profile, $profile_setup ); print $self->get_form_start( $easy, { 'hidden_minus' => [qw( action apache )], 'form_action' => $zero, 'new_action' => 'choose_php', }, ); my ( $apv_hr, $ord_ar, $current ) = $self->get_apache_hashref_order_and_current($easy); my ( $choices, $selected_apache_ver, $option_block_class ) = ( '', '', 'version' ); my %js_config = ( 'versionBlockClass' => "$option_block_class", 'detLinkIdSuffix' => "seedetails" ); my @verify_options; my $did_cur = 0; print qq{|
[
$r
]
↑ $apv_hr->{ $v }{'note'}
\n
|
| \n"; my $checked = $selected ? '' : 'checked="checked"'; print qq{ \n}; print " | \n"; print "\n"; print " | |
| \n"; print qq{ \n}; print " | \n"; my $support_decoration = Cpanel::Easy::PHP5::support_decoration($latest); if ($support_decoration) { # print "\n"; print " | \n"; } print " |
| \n"; print qq{ | \n}; print " | \n"; print " | ||
| \n"; print qq{ | \n}; print " | \n"; my $support_decoration = Cpanel::Easy::PHP5::support_decoration($sub); if ($support_decoration) { # print " | \n"; print " | \n"; } print " |
Invalid apache version, using $def.
"; $easy->set_param( 'apache', $def ); } $profile_setup->{'Apache'}{'version'} = $easy->get_param('apache'); $easy->{'working_profile'} = $profile_setup; print $self->{'name'}, "or }; if ( $form_parts{"verify_options"} ) { $js_config{'verifyOptions'} = $form_parts{"verify_options"}; } my $json_js_config = JSON::Syck::Dump( \%js_config ); print <<"JS"; JS print $self->get_form_end( $easy, { 'submit' => 'Exhaustive Options List', 'no_p' => 1, } ); print qq{
\n}; return; # false means no build yet } sub show_all_opts { my ( $self, $easy, $profile, $profile_setup, $zero ) = @_; $self->merge_profile( $easy, $profile, $profile_setup ); my %js_config = ( "optionsTableClass" => "optionsList" ); my @verify_options; my $val = grep( /^5$/, $easy->get_param('php') ) ? 1 : 0; my $pns = 'Cpanel::Easy::PHP5'; $easy->set_ns_value_in_profile( $pns, $profile_setup, $val ); if ($val) { # Remove old versions from profile foreach my $ns ( keys %$profile_setup ) { delete $profile_setup->{$ns} if ( $ns =~ /^\Q$pns\E::\d+_\d+$/ ); } # Set current version so modself kicks off my $selected = $easy->get_param('php5'); eval qq{require $pns;}; my @versions = $pns->versions(); foreach my $ver (@versions) { my $subns = "${pns}::${ver}"; $easy->set_ns_value_in_profile( $subns, $profile_setup, ( $ver eq $selected ? 1 : 0 ) ); } } if ( !exists $easy->{'state'}{'optmods'}{'Apache'}{'_main'}{ $easy->get_param('apache') } ) { my $def = $profile_setup->{'Apache'}{'version'}; print "Invalid apache version, using $def.
"; $easy->set_param( 'apache', $def ); } $profile_setup->{'Apache'}{'version'} = $easy->get_param('apache'); # set unchecked ones to zero for my $apo ( keys %{ $profile_setup->{'Apache'}{'optmods'} } ) { $profile_setup->{'Apache'}{'optmods'}{$apo} = $easy->get_param( 'Cpanel::Easy::Apache::' . $apo ) ? 1 : 0; } for my $opt ( keys %{$profile_setup} ) { next if $opt eq 'Apache' || $opt eq '_meta' || !defined( $easy->get_param($opt) ); $profile_setup->{$opt} = $easy->get_param($opt) ? 1 : 0; } my ( $apache_ar, $php5_ar, $non_php_includes_ar, $prefs_ar ) = $self->get_opt_params_lists($easy); for my $opt ( @{$non_php_includes_ar} ) { $profile_setup->{$opt} = $easy->get_param($opt) ? 1 : 0; } $easy->{'working_profile'} = $profile_setup; # ??? Add change profile menu here or leave it out, can do after release my %form_parts = ( 'non_php_includes' => '[None]', 'apache' => '[None]', 'php5' => '[None]', 'prefs' => '[None]', ); ( $apache_ar, $php5_ar, $non_php_includes_ar, $prefs_ar ) = $self->get_opt_params_lists($easy); my @resultOptions; _generate_form_part( $easy, $profile_setup, \%form_parts, $apache_ar, 'apache' ); if ( $form_parts{"verify_options"} ) { @resultOptions = @{ $form_parts{"verify_options"} }; push @verify_options, @resultOptions; } if ( grep( /^5$/, $easy->get_param('php') ) ) { _generate_form_part( $easy, $profile_setup, \%form_parts, $php5_ar, 'php5' ); if ( $form_parts{"verify_options"} ) { @resultOptions = @{ $form_parts{"verify_options"} }; push @verify_options, @resultOptions; } } _generate_form_part( $easy, $profile_setup, \%form_parts, $non_php_includes_ar, 'non_php_includes' ); if ( $form_parts{"verify_options"} ) { @resultOptions = @{ $form_parts{"verify_options"} }; push @verify_options, @resultOptions; } _generate_form_part( $easy, $profile_setup, \%form_parts, $prefs_ar, 'prefs' ); if ( $form_parts{"verify_options"} ) { @resultOptions = @{ $form_parts{"verify_options"} }; push @verify_options, @resultOptions; } my @nav_index = ( { 'name' => 'Apache', 'anchor' => 'apache', }, { 'name' => 'Other', 'anchor' => 'other', }, ); my %save_as; if ( $profile ne $easy->{'profile_main'} ) { %save_as = ( 'save_as_ident' => $easy->get_param('profile') =~ m{^cpanel_} ? '' : Cpanel::Encoder::html_encode_str( $easy->get_param('profile') ), 'save_as_name' => Cpanel::Encoder::html_encode_str( $profile_setup->{'_meta'}{'name'} ), 'save_as_desc' => Cpanel::Encoder::html_encode_str( $profile_setup->{'_meta'}{'note'} ), ); } for my $key (qw( save_as_ident save_as_name save_as_desc )) { $save_as{$key} = Cpanel::Encoder::html_encode_str( $easy->get_param($key) ) if $easy->get_param($key); } $form_parts{'save_as'} = <<"END_SAVEAS";When you "save" your choices in this interface it is referred to as the "Previously Saved Config". Here, you can additionally "Save As" a specific name for reuse.
| (Maximum 64 letters, numbers, and underscores only) | |
If you need more information about specific apache modules, their capabilities, or uses please see http://httpd.apache.org.END_BQ print $self->{'name'}, "
or
END_APACHE $js_config{'verifyOptions'} = \@verify_options; my $json_js_config = JSON::Syck::Dump( \%js_config ); print <<"JS"; JS return; # false means no build yet } sub save_only { my ( $self, $easy, $profile, $profile_setup, $zero ) = @_; if ( !exists $easy->{'state'}{'optmods'}{'Apache'}{'_main'}{ $easy->get_param('apache') } ) { my $def = $profile_setup->{'Apache'}{'version'}; print "Invalid apache version, using $def.
"; $easy->set_param( 'apache', $def ); } $profile_setup->{'Apache'}{'version'} = $easy->get_param('apache'); for my $ar ( $self->get_opt_params_lists($easy) ) { for my $opt ( @{$ar} ) { next if exists $easy->{'_'}{'prefs'}{$opt}; $easy->set_param( $opt, 0 ) if !defined $easy->get_param($opt); my $setting = $easy->get_param($opt) ? 1 : 0; my $ec = $easy->get_easyconfig_hr_from_ns_via_state($opt); if ( $ec->{'reverse'} ) { $setting = $setting ? 0 : 1; } $easy->set_ns_value_in_profile( $opt, $profile_setup, $setting ); } } my %avail_ver; @avail_ver{ @{ $easy->{'state_config'}{'main_vers'} } } = (); if ( exists $avail_ver{ $easy->get_param('apache') } ) { $profile_setup->{'Apache'}{'version'} = $easy->get_param('apache'); } my $val = grep( /^5$/, $easy->get_param('php') ) ? 1 : 0; my $pns = 'Cpanel::Easy::PHP5'; $easy->set_ns_value_in_profile( $pns, $profile_setup, $val ); if ($val) { # Remove old versions from profile foreach my $ns ( keys %$profile_setup ) { delete $profile_setup->{$ns} if ( $ns =~ /^\Q$pns\E::\d+_\d+$/ ); } # Set current version so modself kicks off my $selected = $easy->get_param('php5'); eval qq{require $pns;}; my @versions = $pns->versions(); foreach my $ver (@versions) { my $subns = "${pns}::${ver}"; $easy->set_ns_value_in_profile( $subns, $profile_setup, ( $ver eq $selected ? 1 : 0 ) ); } } my %prefs; for my $pref ( keys %{ $easy->{'prefs_details'} } ) { my @prefs = $easy->get_param($pref); $prefs{$pref} = 0; $prefs{$pref} = join ',', @prefs if @prefs; } $easy->serialize( $easy->{'prefs_file'}, \%prefs ); my ( $changed_hr, $loop_hr ) = $easy->apply_one_pass_implies_logic($profile_setup); my @arg_copy = @_; my $code_ref = \&show_all_opts; $easy->handle_one_pass_hashes( $changed_hr, $loop_hr, sub { my ($text) = @_; print qq{$text
\n}; }, sub { my ($text) = @_; print qq{$text
\n}; no strict 'refs'; $code_ref->(@arg_copy); return; # don't change me from 'return;'!! }, ); # require Data::Dumper::HTML;print Data::Dumper::HTML::DumperHTML( $profile_setup ); # make sure the intent of reverse optmods are faithfully recorded the file saving the updated profile my $status = $easy->check_and_fix_reverse_optmods( 'profile_ref' => $profile_setup, 'wanted_apache' => $profile_setup->{'Apache'}->{'version'} ); if ( !_profile_is_valid( $self, $easy, $profile_setup ) ) { no strict 'refs'; &{'show_all_opts'}(@_); return; # don't change me from 'return;'!! } print "Saving...
| or |
Click here if your build does not begin within 5 seconds.
END_REDIRECT return; } #### save_only() utils ## sub _profile_is_valid { my ( $self, $easy, $profile_hr ) = @_; # depends, dryruns, changing to 1s and 2s, outputting erros along the way local $easy->{'working_profile'} = $profile_hr; my $ok = 1; my %in_state; @in_state{ @{ $easy->{'state'}{'order'} } } = (); my %avail_ver; @avail_ver{ @{ $easy->{'state_config'}{'main_vers'} } } = (); if ( !exists $avail_ver{ $profile_hr->{'Apache'}{'version'} } ) { print qq{Invalid apache version.
\n}; $ok = 0; } KEY: for my $ent ( keys %{$profile_hr} ) { next if $ent eq '_meta'; if ( $ent !~ m{::} && $ent ne 'Apache' ) { print qq{Removing unknown profile entry.
\n}; delete $profile_hr->{$ent}; next KEY; } if ( $ent eq 'Apache' ) { for my $op ( keys %{ $profile_hr->{'Apache'}{'optmods'} } ) { $ok = 0 if !__ent_is_ok( $easy, 'Cpanel::Easy::Apache::' . $op, \%in_state ); } } else { $ok = 0 if !__ent_is_ok( $easy, $ent, \%in_state ); } } return 1 if $ok; print qq{... Profile validation failed.
\n}; return; } sub __ent_is_ok { my ( $easy, $ns, $in_state_hr ) = @_; if ( !$easy->is_namespace($ns) ) { print qq{Entry passed to save into profile is invalid.
\n}; return; } return 1 if $easy->ns_is_include_kid_and_parent_is_off( $ns, $easy->{'working_profile'} ); return 1 if !$easy->get_ns_value_from_profile( $ns, $easy->{'working_profile'} ); if ( !exists $in_state_hr->{$ns} ) { # it may be a custom opt mod that was removed and could be reintroduced later so... (case 1119) # if its not really a namespace then its already return()ed so no need to encode $ns print <<"END_UNK";} . $easy->maketext(@depends_text) . qq{
\n}; return; } return 1; } sub _profile_saved_ok { my ( $self, $easy, $profile_hr ) = @_; # save based on 'profile' and 'save_as_ident' (64 letters, numbers, and underscores) # _meta->name = save_as_name _meta->note = save_as_desc if saving custom my $save_as = $easy->get_param('save_as_ident'); $save_as = '' if $save_as =~ m{^cpanel}; if ( !$save_as ) { $save_as = $easy->get_param('profile') if $easy->get_param('profile') !~ m{/} && $easy->get_param('profile') !~ m{^cpanel}; } my $long = ''; if ($save_as) { $save_as =~ s{\W+}{}g; if ( !$save_as ) { print qq{'Profile' to save as contained no valid characters.
\n}; return; } if ( length($save_as) > 64 ) { print qq{'Profile' to save has more than 64 letters, numbers, or underscores.
\n}; return; } if ( !$easy->get_param('save_as_name') ) { print qq{'Profile' Label needs specified.
\n}; return; } if ( !$easy->get_param('save_as_desc') ) { print qq{'Profile' Description needs specified.
\n}; return; } # HTML Encode the name & descriptions of the profile to prevent XSS attacks. my $profile_name = Cpanel::Encoder::html_encode_str( $easy->get_param('save_as_name') ); my $profile_desc = Cpanel::Encoder::html_encode_str( $easy->get_param('save_as_desc') ); $profile_hr->{'_meta'} = { %{ $profile_hr->{'_meta'} }, 'name' => $profile_name, 'note' => $profile_desc, }; $long = $easy->{'profile_custom_dir'} . '/' . $save_as . '.yaml'; } $easy->profile_revision_check( $profile_hr, $long ); if ($long) { if ( !$easy->save_profile( $profile_hr, $long ) ) { print qq{Could not save profile as '$save_as'
\n}; } } # do last saved rename $easy->{'profile_main'}, $easy->{'profile_prev'}; return 1 if $easy->serialize( $easy->{'profile_main'}, $profile_hr ); print qq{Could not save profile as last saved.
\n}; return; } sub get_full_apache_version { my $xy = shift; my $apache_hr = shift; if ( $apache_hr->{$xy}->{'version'} ) { return $apache_hr->{$xy}->{'version'}; } if ( $apache_hr->{$xy}->{'src_cd2'} ) { my $xyz = $apache_hr->{$xy}->{'src_cd2'}; $xyz =~ s/^(apache|httpd)[_-]//i; return $xyz; } return $xy; } sub get_short_deco { my $support_level = shift; Cpanel::Easy::Apache::Utils::Support::get_short_deco($support_level); } sub get_long_deco { my $support_level = shift; Cpanel::Easy::Apache::Utils::Support::get_long_deco($support_level); } 1;