FM / authentic-theme

/usr/share/usermin/authentic-theme

Name	Size	Mode	Actions
extensions/	-	0755	rm
help/	-	0755	rm
images/	-	0755	rm
lang/	-	0755	rm
modules/	-	0755	rm
unauthenticated/	-	0755	rm
401.cgi	342	0755	edit dl rm
403.cgi	342	0755	edit dl rm
404.cgi	342	0755	edit dl rm
authentic-funcs.pl	29874	0644	edit dl rm
authentic-init.pl	83560	0644	edit dl rm
authentic-lib.pl	90283	0644	edit dl rm
authentic.pl	61202	0644	edit dl rm
config	139	0644	edit dl rm
config.cgi	6893	0755	edit dl rm
config_save.cgi	2445	0755	edit dl rm
FUNDING.yml	102	0644	edit dl rm
index.cgi	309	0755	edit dl rm
LICENSE	1067	0644	edit dl rm
login-lib-funcs.pl	11759	0644	edit dl rm
login-lib.pl	1518	0644	edit dl rm
manifest-usermin.json	982	0644	edit dl rm
manifest.template	920	0644	edit dl rm
mconfig.cgi	6747	0755	edit dl rm
mconfig_save.cgi	1723	0755	edit dl rm
navigation-lib.pl	64628	0644	edit dl rm
pam_login.cgi	3481	0755	edit dl rm
password_form.cgi	4008	0755	edit dl rm
postinstall-usermin.pl	264	0755	edit dl rm
postinstall.pl	645	0755	edit dl rm
service-worker.js	94	0644	edit dl rm
session_login.cgi	4621	0755	edit dl rm
settings-backgrounds.cgi	3702	0755	edit dl rm
settings-backgrounds_save.cgi	1667	0755	edit dl rm
settings-editor_favorites_read.cgi	897	0755	edit dl rm
settings-editor_favorites_write.cgi	574	0755	edit dl rm
settings-editor_read.cgi	2440	0755	edit dl rm
settings-editor_write.cgi	973	0755	edit dl rm
settings-favorites_save.cgi	632	0755	edit dl rm
settings-lib.pl	651	0644	edit dl rm
settings-logos.cgi	4725	0755	edit dl rm
settings-logos_save.cgi	2401	0755	edit dl rm
stats-lib-funcs.pl	17390	0644	edit dl rm
stats-lib.pl	432	0644	edit dl rm
stats.cgi	3135	0755	edit dl rm
stats.pl	7721	0755	edit dl rm
sysinfo.cgi	7874	0755	edit dl rm
tconfig-lib.pl	39224	0644	edit dl rm
tconfig.cgi	4542	0755	edit dl rm
theme-update.sh	8408	0755	edit dl rm
theme.info	379	0644	edit dl rm
theme.info.no	24	0644	edit dl rm
THEME.pgp	3102	0644	edit dl rm
uconfig.cgi	6442	0755	edit dl rm
uconfig_save.cgi	2034	0755	edit dl rm
uninstall-usermin.pl	170	0755	edit dl rm
uninstall.pl	346	0755	edit dl rm
xhr-lib.pl	29310	0644	edit dl rm
xhr.cgi	355	0755	edit dl rm

Edit: /usr/share/usermin/authentic-theme/uconfig.cgi (6442B)

#!/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, $current_lang, $default_lang, $user_config_directory, %theme_text);

require("$ENV{'THEME_ROOT'}/authentic-lib.pl");
require("$root_directory/config-lib.pl");

my (%access,
    %module_info,
    %info,
    %newconfig,
    %canconfig,
    @info_order,
    @sections,
    $help,
    $idx,
    $sname,
    $section,
    $module,
    $module_dir,
    $module_dir_conf_file,
    %moduletext);

$module = $in{'module'} || $ARGV[0];
&foreign_available($module) || &error($text{'config_eaccess'});
&switch_to_remote_user();
&create_user_config_dirs();
%module_info = &get_module_info($module);

if (-r &help_file($module, "config_intro")) {
    $help = ["config_intro", $module];
} else {
    $help = undef;
}
&ui_print_header(&text('config_dir', $module_info{'desc'}), $text{'config_title'}, "", $help, 0, 1);
$module_dir = &module_root_directory($module);
$module_dir           = &module_root_directory($module);
$module_dir_conf_file = "$module_dir/uconfig.info";
if ($current_lang && $default_lang &&
    $current_lang ne $default_lang &&
    -r "$module_dir_conf_file.$current_lang")
{
    $module_dir_conf_file .= ".$current_lang";
}

# Read the uconfig.info file to find sections
&read_file($module_dir_conf_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 type="application/javascript">';
    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("uconfig.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("uconfig_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);
&read_file("$module/defaultuconfig",                \%newconfig);
&read_file("$config_directory/$module/uconfig",     \%newconfig);
&read_file("$user_config_directory/$module/config", \%newconfig);
&read_file("$config_directory/$module/canconfig",   \%canconfig);

my $func;
if (-r "$module_dir/uconfig_info.pl") {

# Module has a custom config editor
    &foreign_require($module, "uconfig_info.pl");
    my $fn = "${module}::config_form";
    if (defined(&$fn)) {
        $func++;
        &foreign_call($module, "config_form", \%newconfig, \%canconfig);
    }
}
if (!$func) {

# Use config.info to create config inputs
    &generate_config(\%newconfig, "$module_dir/uconfig.info", $module, (%canconfig ? \%canconfig : 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'});

cmd: