PAL.C.T MINI SHELL
#!/usr/bin/perl
#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Jamie Cameron <jamie@virtualmin.com>
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;
use warnings;
our (%text,
%in,
$root_directory,
$config_directory,
$remote_user,
$current_theme,
$current_lang,
$default_lang,
%theme_text,
%theme_config);
require("$ENV{'THEME_ROOT'}/authentic-lib.pl");
require("$root_directory/config-lib.pl");
my (%module_info, %info, %newconfig, @info_order, @sections, $idx, $sname, $section, $module, $module_dir,
$module_custom_config_file, %moduletext);
$module = $in{'module'} || $ARGV[0];
$module_custom_config_file = "$root_directory/$current_theme/modules/$module/config.info";
&foreign_available($module) || &error($theme_text{'mconfig_eaccess'});
%module_info = &get_module_info($module);
&ui_print_header(&text('config_dir', "<span>" . $module_info{'desc'} . "</span>"),
$theme_text{'theme_xhred_global_prefs'},
"", undef, 0, 1);
$module_dir = &module_root_directory($module);
if ($current_lang &&
$default_lang &&
$current_lang ne $default_lang &&
-r "$module_custom_config_file.$current_lang")
{
$module_custom_config_file .= ".$current_lang";
}
if (-r $module_custom_config_file) {
# Read the custom config.info file to find sections
&read_file($module_custom_config_file, \%info, \@info_order);
my @config_quick_access;
my $config_quick_access_section;
my $config_quick_access_category;
foreach my $i (@info_order) {
my @p = split(/,/, $info{$i});
if ($p[1] == 11) {
push(@sections, [$i, $p[0]]);
$config_quick_access_section = $i;
$config_quick_access_category = $p[0];
} else {
my $value = $p[0];
$value =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;
$value = &entities_to_ascii($value);
push(@config_quick_access,
{ value => $value,
section => $config_quick_access_section,
data => { category => $config_quick_access_category }
});
}
}
if (@sections > 1) {
print ' <script>';
print 'var config_quick_access = ' . convert_to_json(\@config_quick_access);
print "</script>\n";
# Work out template section to edit
$in{'section'} ||= $sections[0]->[0];
$idx = &indexof($in{'section'}, map {$_->[0]} @sections);
if ($in{'nprev'}) {
$idx--;
$idx = @sections - 1 if ($idx < 0);
} elsif ($in{'nnext'}) {
$idx++;
$idx = 0 if ($idx >= @sections);
}
$in{'section'} = $sections[$idx]->[0];
# We have some sections .. show a menu to select
print &ui_form_start("mconfig.cgi");
print &ui_hidden("module", $module), "\n";
print &ui_span_local($theme_text{'settings_config_configuration_category'} . ":", 'row-block-label') . "\n";
print &ui_select("section", $in{'section'}, \@sections, 1, 0, 0, 0, "onChange='form.submit()'");
print &ui_button_group_local(
(
&ui_dropdown_local([(&ui_textbox('search'))],
{ 'title' => $theme_text{'config_search_options_all'},
'icon' => 'fa fa-md fa-file-find',
'container-class' => 'elm-rel-z config-search',
'button-class' => 'btn-default elm-rel-z heighter-28 pd-lr-8',
'ul-class' => 'pd-tb-0',
}
)
.
&ui_submit($theme_text{'extensions_mail_pagination_left'},
"nprev", undef, undef,
"fa fa-fw fa-arrow-circle-o-left",
"heighter-28 margined-left-5")
.
&ui_submit($theme_text{'extensions_mail_pagination_right'},
"nnext", undef, undef, "fa fa-fw fa-arrow-circle-o-right",
"heighter-28"
)
),
'end_submits');
print &ui_form_end();
($section) = grep {$_->[0] eq $in{'section'}} @sections;
$sname = "$section->[1]";
}
$sname = $theme_text{'theme_xhred_config_configurable_options'} if (!$sname);
print &ui_form_start("mconfig_save.cgi", "post");
print &ui_hidden("module", $module), "\n";
print &ui_hidden("section", $in{'section'}), "\n";
if ($section) {
# Find next section
$idx = &indexof($section, @sections);
if ($idx == @sections - 1) {
print &ui_hidden("section_next", $sections[0]->[0]);
} else {
print &ui_hidden("section_next", $sections[$idx + 1]->[0]);
}
}
print &ui_table_start($sname, "width=100%", 2);
# A case when a custom default config needs to be
# used for a module provided by the theme itself
my $module_custom_config_default = "$root_directory/$current_theme/modules/$module/config.defaults";
if (-r $module_custom_config_default) {
&read_file($module_custom_config_default, \%newconfig);
}
# Load user preferences
&load_module_preferences($module, \%newconfig);
# Assign theme expected defaults if missing
map {my $__ = ""; $newconfig{$_} eq $__ && ($newconfig{$_} = ($theme_config{$_} || $__))} keys %newconfig;
&generate_config(\%newconfig, "$root_directory/$current_theme/modules/$module/config.info", $module, undef, undef, $in{'section'});
print &ui_table_end();
print &ui_form_end(
[["save", $text{'save'}], $section ? (["save_next", $theme_text{'settings_config_save_and_next'}]) : ()]);
%moduletext = &load_language($module);
&ui_print_footer("/$module/", $moduletext{'index_return'} || $text{'index'});
} else {
&error($theme_text{'mconfig_ecannot'});
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`