mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 00:39:57 +00:00
31 lines
867 B
Perl
Executable File
31 lines
867 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Show a table of all execiles
|
|
|
|
require './rbac-lib.pl';
|
|
$access{'execs'} || &error($text{'execs_ecannot'});
|
|
&ui_print_header(undef, $text{'execs_title'}, "", "execs");
|
|
|
|
$execs = &list_exec_attrs();
|
|
if (@$execs) {
|
|
print "<a href='edit_exec.cgi?new=1'>$text{'execs_add'}</a><br>\n";
|
|
print &ui_columns_start(
|
|
[ $text{'execs_name'},
|
|
$text{'execs_policy'},
|
|
$text{'execs_id'} ]);
|
|
foreach $e (sort { $a->{'name'} cmp $b->{'name'} } @$execs) {
|
|
print &ui_columns_row(
|
|
[ "<a href='edit_exec.cgi?idx=$e->{'index'}'>$e->{'name'}</a>",
|
|
$text{'execs_p'.$e->{'policy'}},
|
|
$e->{'id'} eq '*' ? $text{'execs_all'} : $e->{'id'},
|
|
]);
|
|
}
|
|
print &ui_columns_end();
|
|
}
|
|
else {
|
|
print "<b>$text{'execs_none'}</b><p>\n";
|
|
}
|
|
print "<a href='edit_exec.cgi?new=1'>$text{'execs_add'}</a><br>\n";
|
|
|
|
&ui_print_footer("", $text{"index_return"});
|
|
|