#!/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();
if (@groups) {
@groups = sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @groups
if ($config{'sort_mode'});
print "$text{'groups_add'}
\n";
print "
$text{'groups_name'} | ", "$text{'groups_unix'} | ", "$text{'groups_type'} | ", "$text{'groups_sid'} |
", "$g->{'name'} | \n"; print "",$g->{'unix'} == -1 ? $text{'groups_nounix'} : "$g->{'unix'}"," | \n"; print "",$text{'groups_type_'.$g->{'type'}} || $g->{'type'}," | \n"; print "$g->{'sid'} | \n"; print "
\n"; } print "$text{'groups_add'}
\n"; &ui_print_footer("", $text{'index_sharelist'});