PAL.C.T MINI SHELL
#!/usr/bin/perl
# Display all supported plugins and features
require './virtual-server-lib.pl';
&can_edit_templates() || &error($text{'features_ecannot'});
&ui_print_header(undef, $text{'features_title'}, "", "features");
# Work out who uses what features
@doms = &list_domains();
foreach $f (@features, @plugins) {
@pdoms = grep { $_->{$f} } @doms;
$fcount{$f} = scalar(@pdoms);
}
print &ui_form_start("save_newfeatures.cgi", "post");
print "$text{'features_desc'}<p>\n";
# Add rows for core features
$n = 0;
foreach $f (@features) {
local @acts;
push(@acts, ui_link("search.cgi?field=$f&what=1",
$text{'features_used'}));
my $vital = &indexof($f, @vital_features) >= 0;
my $always = &indexof($f, @can_always_features) >= 0;
if ($vital) {
# Some features are *never* disabled, but may be not checked
# by default
push(@table, [
ui_img("images/tick.gif", "Enabled"),
$text{'feature_'.$f},
$text{'features_feature'},
$module_info{'version'},
$fcount{$f} || 0,
{ 'type' => 'checkbox', 'name' => 'factive',
'value' => $f, 'checked' => $config{$f} == 3 },
&ui_links_row(\@acts)
]);
}
else {
# Other features can be disabled
push(@table, [
{ 'type' => 'checkbox', 'name' => 'fmods',
'value' => $f, 'checked' => $config{$f} != 0,
'tags' => "onClick='form.factive[$n].disabled = !this.checked;'",
},
$text{'feature_'.$f},
$text{'features_feature'},
$module_info{'version'},
$fcount{$f} || 0,
{ 'type' => 'checkbox', 'name' => 'factive',
'value' => $f, 'checked' => $config{$f} != 2,
'disabled' => $config{$f} == 0 },
&ui_links_row(\@acts)
]);
}
$n++;
}
# Add rows for all plugins
%plugins = map { $_, 1 } @plugins;
%inactive = map { $_, 1 } split(/\s+/, $config{'plugins_inactive'});
$n = 0;
foreach $m (sort { $a->{'desc'} cmp $b->{'desc'} } &get_all_module_infos()) {
$mdir = &module_root_directory($m->{'dir'});
if (-r "$mdir/virtual_feature.pl") {
&foreign_require($m->{'dir'}, "virtual_feature.pl");
local @acts;
if (-r "$mdir/config.info") {
push(@acts, ui_link("edit_plugconfig.cgi?mod=$m->{'dir'}",
$text{'newplugin_conf'}));
}
if (!$m->{'hidden'}) {
push(@acts, ui_link("../$m->{'dir'}/",
$text{'newplugin_open'}));
}
if (!$donesep++) {
print &ui_columns_row([ "<hr>" ],
[ "colspan=".(scalar(@tds)+1) ]);
}
push(@table, [
{ 'type' => 'checkbox', 'name' => 'mods',
'value' => $m->{'dir'},
'checked' => $plugins{$m->{'dir'}},
},
&plugin_call($m->{'dir'}, "feature_name") ||
$m->{'dir'},
$text{'features_plugin'},
$m->{'version'},
$fcount{$m->{'dir'}} ? $fcount{$m->{'dir'}} :
&plugin_defined($m->{'dir'}, "feature_setup") ? 0
: "-",
{ 'type' => 'checkbox', 'name' => 'active',
'value' => $m->{'dir'},
'checked' => !$inactive{$m->{'dir'}},
},
&ui_links_row(\@acts)
]);
push(@hiddens, [ "allplugins", $m->{'dir'} ]);
$n++;
}
}
# Actually generate the table
print &ui_form_columns_table(
"save_newfeatures.cgi",
[ [ "save", $text{'save'} ] ],
0,
undef,
\@hiddens,
[ "", $text{'features_name'}, $text{'features_type'},
$text{'newplugin_version'}, $text{'newplugin_count'},
$text{'newplugin_def'}, $text{'newplugin_acts'} ],
100,
\@table,
undef,
1);
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`