mirror of
https://github.com/webmin/webmin.git
synced 2026-02-11 17:44:28 +00:00
28 lines
799 B
Perl
Executable File
28 lines
799 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# lists_configs.cgi
|
|
# List all usermin modules that can be configured
|
|
|
|
require './usermin-lib.pl';
|
|
$access{'configs'} || &error($text{'acl_ecannot'});
|
|
&ReadParse();
|
|
&ui_print_header(undef, $text{'configs_title'}, "");
|
|
|
|
@mods = &list_modules();
|
|
&get_usermin_miniserv_config(\%miniserv);
|
|
print "$text{'configs_desc'}<p>\n";
|
|
@grid = ( );
|
|
|
|
foreach $m (@mods) {
|
|
if ((-r "$miniserv{'root'}/$m->{'dir'}/config.info" ||
|
|
-r "$miniserv{'root'}/$m->{'dir'}/uconfig.info") &&
|
|
&can_use_module($m->{'dir'})) {
|
|
push(@grid, "<a href='edit_configs.cgi?mod=$m->{'dir'}'>".
|
|
"$m->{'desc'}</a>");
|
|
}
|
|
}
|
|
print &ui_grid_table(\@grid, 4, 100,
|
|
[ "width=25%", "width=25%", "width=25%", "width=25%" ],
|
|
undef, $text{'configs_header'});
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|