mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
42 lines
1.1 KiB
Perl
Executable File
42 lines
1.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# list_group.cgi
|
|
# List all existing Samba groups
|
|
|
|
require './samba-lib.pl';
|
|
|
|
$access{'maint_groups'} || &error($text{'groups_ecannot'});
|
|
&ui_print_header(undef, $text{'groups_title'}, "");
|
|
|
|
&check_group_enabled($text{'groups_cannot'});
|
|
|
|
@groups = &list_groups();
|
|
@links = ( "<a href='edit_group.cgi?new=1'>$text{'groups_add'}</a>" );
|
|
if (@groups) {
|
|
@groups = sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @groups
|
|
if ($config{'sort_mode'});
|
|
print &ui_links_row(\@links);
|
|
print &ui_columns_start([ $text{'groups_name'},
|
|
$text{'groups_unix'},
|
|
$text{'groups_type'},
|
|
$text{'groups_sid'} ]);
|
|
foreach $g (@groups) {
|
|
print &ui_columns_row([
|
|
"<a href='edit_group.cgi?idx=$g->{'index'}'>".
|
|
&html_escape($g->{'name'})."</a>",
|
|
$g->{'unix'} == -1 ? $text{'groups_nounix'} :
|
|
"<tt>".&html_escape($g->{'unix'})."</tt>",
|
|
$text{'groups_type_'.$g->{'type'}} ||
|
|
&html_escape($g->{'type'}),
|
|
"<tt>".&html_escape($g->{'sid'})."</tt>",
|
|
]);
|
|
}
|
|
print &ui_columns_end();
|
|
}
|
|
else {
|
|
print "<b>$text{'groups_none'}</b><p>\n";
|
|
}
|
|
print &ui_links_row(\@links);
|
|
|
|
&ui_print_footer("", $text{'index_sharelist'});
|
|
|