/
tconfig.cgi
executable file
·105 lines (94 loc) · 4.42 KB
/
tconfig.cgi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
#!/usr/local/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 ($remote_user, %gconfig, %text, %in, %theme_config, %theme_text, $has_usermin, $get_user_level);
do($ENV{'THEME_ROOT'} . "/authentic-lib.pl");
do($ENV{'THEME_ROOT'} . "/tconfig-lib.pl");
(!&webmin_user_is_admin() && $theme_config{'settings_theme_config_admins_only_privileged'} eq 'true') &&
error($theme_text{'settings_theme_config_admins_only_privileged_error'});
ui_print_header(($theme_text{'settings_subtitle'} . ' <tt>' . $remote_user . '</tt>'),
$theme_text{'settings_title'},
undef, undef, undef, 1);
# Define all available options
my $settings_data = theme_settings_data();
my @settings = @{ $settings_data->{'settings'} };
my @excluded_options = @{ $settings_data->{'excluded_options'} };
my @sections = @{ $settings_data->{'sections'} };
my @config_quick_access = @{ $settings_data->{'config_quick_access'} };
my ($section, $sid, $sname);
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];
my $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];
print &ui_form_start("tconfig.cgi");
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;
$sid = "$section->[0]";
$sname = "$section->[1]";
}
print ui_form_start("tconfig.cgi", "post", undef, 'id="settings_"');
print &ui_hidden("section", $in{'section'}), "\n";
print ui_table_start($sname, undef, 2);
foreach my $s (@settings) {
if ($s->[0]->{'id'} eq $sid) {
if ($s->[0]->{'desc'}) {
print ui_table_row(undef, "<div class=\"table-cell-padded\">$s->[0]->{'desc'}</div>", 2);
}
for (my $i = 0; $i < scalar(@{ $s->[0]->{'data'} }); $i++) {
print ui_table_row(@{ $s->[0]->{'data'} }[$i]->[0], @{ $s->[0]->{'data'} }[$i]->[1]);
}
}
}
print ui_table_end();
# Print footer with left and
my @theme_controls = theme_controls($sname);
print '
<table class="ui_form_end_buttons" style="width:100%">
<tbody>
<tr>
<td>
' . $theme_controls[0] . '
</td>
<td>
' . $theme_controls[1] . '
</td>
</tr>
</tbody>
</table>';