Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
extensions	[ DIR ]	drwxr-xr-x
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
lib	[ DIR ]	drwxr-xr-x
modules	[ DIR ]	drwxr-xr-x
unauthenticated	[ DIR ]	drwxr-xr-x
401.cgi	339 B	-rwxr-xr-x
403.cgi	339 B	-rwxr-xr-x
404.cgi	339 B	-rwxr-xr-x
FUNDING.yml	103 B	-rw-r--r--
LICENSE	1.04 KB	-rw-r--r--
THEME.pgp	3.04 KB	-rw-r--r--
authentic-funcs.pl	26.33 KB	-rw-r--r--
authentic-init.pl	63.24 KB	-rw-r--r--
authentic-lib.pl	100.1 KB	-rw-r--r--
authentic.pl	49.24 KB	-rw-r--r--
config	139 B	-rw-r--r--
config.cgi	6.52 KB	-rwxr-xr-x
config_save.cgi	2.14 KB	-rwxr-xr-x
index.cgi	306 B	-rwxr-xr-x
manifest-usermin.json	998 B	-rw-r--r--
manifest.template	920 B	-rw-r--r--
mconfig.cgi	6.57 KB	-rwxr-xr-x
mconfig_save.cgi	1.69 KB	-rwxr-xr-x
navigation-lib.pl	54.13 KB	-rw-r--r--
pam_login.cgi	6.23 KB	-rwxr-xr-x
password_form.cgi	4.07 KB	-rwxr-xr-x
postinstall-usermin.pl	264 B	-rwxr-xr-x
postinstall.pl	645 B	-rwxr-xr-x
service-worker.js	141 B	-rw-r--r--
session_login.cgi	8.12 KB	-rwxr-xr-x
settings-backgrounds.cgi	3.61 KB	-rwxr-xr-x
settings-backgrounds_save.cgi	1.16 KB	-rwxr-xr-x
settings-editor_favorites_read...	894 B	-rwxr-xr-x
settings-editor_favorites_writ...	571 B	-rwxr-xr-x
settings-editor_read.cgi	2.4 KB	-rwxr-xr-x
settings-editor_write.cgi	967 B	-rwxr-xr-x
settings-favorites_save.cgi	629 B	-rwxr-xr-x
settings-lib.pl	651 B	-rw-r--r--
settings-logos.cgi	4.61 KB	-rwxr-xr-x
settings-logos_save.cgi	1.75 KB	-rwxr-xr-x
stats.cgi	8.37 KB	-rwxr-xr-x
sysinfo.cgi	6.44 KB	-rwxr-xr-x
tconfig-lib.pl	33.02 KB	-rw-r--r--
tconfig.cgi	6.09 KB	-rwxr-xr-x
theme-update.sh	8.08 KB	-rwxr-xr-x
theme.info	342 B	-rw-r--r--
theme.info.no	24 B	-rw-r--r--
uconfig.cgi	6.27 KB	-rwxr-xr-x
uconfig_save.cgi	1.99 KB	-rwxr-xr-x
uninstall-usermin.pl	170 B	-rwxr-xr-x
uninstall.pl	346 B	-rwxr-xr-x
xhr-lib.pl	10.22 KB	-rw-r--r--
xhr.cgi	349 B	-rwxr-xr-x

Code Editor : config.cgi

#!/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 (%gconfig, %text, %in, $root_directory, $config_directory, $current_lang, $default_lang, %theme_text);

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

my (%access,
    %module_info,
    %info,
    %newconfig,
    @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'});
%access = &get_module_acl(undef, $module);
$access{'noconfig'} &&
  &error($text{'config_ecannot'});
%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', "<span>" . $module_info{'desc'} . "</span>"), $text{'config_title'}, "", $help, 0, 1);
$module_dir           = &module_root_directory($module);
$module_dir_conf_file = "$module_dir/config.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 config.info file to find sections
&read_file($module_dir_conf_file, \%info, \@info_order);

# Call any config preload function
if (&foreign_require($module) &&
    &foreign_func_exists($module, 'config_pre_load')) {
    &foreign_call($module, "config_pre_load", \%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("config.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("config_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);

# Load module config defaults (fill missing)
my $moddefconf = "$module_dir/config";
$moddefconf = "$module_dir/config-$gconfig{'os_type'}"
    if (-r "$module_dir/config-$gconfig{'os_type'}");
&read_file($moddefconf, \%newconfig);

# Load module config custom
&read_file("$config_directory/$module/config", \%newconfig);

# Load module config user custom
&load_module_preferences($module, \%newconfig);

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

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

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

${this.title}

Code Editor : config.cgi