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/settings-editor_read.cgi (2440B)

#!/usr/bin/perl

#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;

our (%in, $current_theme, $config_directory, $get_user_level, $remote_user, %theme_text);

do($ENV{'THEME_ROOT'} . "/authentic-lib.pl");
do($ENV{'THEME_ROOT'} . "/settings-lib.pl");

my @files = get_settings_editor_files();

webmin_user_is_admin() ||
  error($theme_text{'theme_error_access_not_root_user'});
if ($in{'file'}) {
  array_contains(\@files, $in{'file'}) ||
    error($theme_text{'theme_error_access_dir_not_allowed'});
}

my $file = html_escape($in{'file'});
$file = $files[0] if (!$file);
ui_print_header(undef, $theme_text{'settings_right_theme_extensions_title'}, undef, undef, undef, 1);
print '' . theme_text('settings_right_extensions_title') . '
            <p></p>';
print "<form action=\"settings-editor_read.cgi\" method=\"get\" class=\"margined-bottom-5\">\n";
print '<div class="pull-right settings-editor-read-badge"><span class="badge label-default">'
  .
  ( $file =~ /.css/    ? $theme_text{'theme_fileformat_css'} :
      $file =~ /.json/ ? $theme_text{'theme_fileformat_json'} :
      $file =~ /.js/   ? $theme_text{'theme_fileformat_js'} :
      $file =~ /.pl/   ? $theme_text{'theme_fileformat_perl'} :
      $theme_text{'theme_fileformat_plain_text'}
  ) .
  '</span></div>';
print "$theme_text{'settings_right_file_edit'}&nbsp;\n";
print "<select class='heighter-34' name=\"file\">\n";

foreach my $f (@files) {
    printf "<option %s>%s</option>\n", $f eq $file ? 'selected' : '', $f;
}
print "</select></form>\n";

my $data = read_file_contents($file);

print ui_form_start("settings-editor_write.cgi", "form-data");
print ui_hidden("file", $file), "\n";
print ui_textarea("data",
                   ($file =~ '.json' ? ($data =~ /\{(?:\{.*\}|[^{])*\}/sg) :
                      $data
                   ),
                   20, 80, undef, undef,
                   "style='width: 100%' "
                     .
                     ( $file =~ '.pl' ? 'placeholder="' . $theme_text{'theme_fileformat_perl_placeholder'} . '"' :
                         ''
                     ) .
                     "");
print ui_form_end([["save", $theme_text{'theme_xhred_global_save'}]]);
ui_print_footer("tconfig.cgi", $theme_text{'right_return_theme_options'});

cmd: