/usr/share/usermin/htaccess
Edit: /usr/share/usermin/htaccess/list_authgroups.cgi (1300B)
#!/usr/bin/perl
# list_authgroups.cgi
# Displays a list of groups and their members
require './htaccess-lib.pl';
require './auth-lib.pl';
&ReadParse();
$desc = &text('authg_header', "
$in{'file'}");
&ui_print_header($desc, $text{'authg_title'}, "");
$f = $in{'file'};
@groups = sort { $a->{'name'} cmp $b->{'name'} } &list_authgroups($in{'file'});
if (@groups) {
print "
\n";
print " | ",&text('authg_header2', "$f"),
" |
\n";
print " \n";
print " | $text{'authg_group'} | ",
"$text{'authg_mems'} | \n";
for($i=0; $i<@groups; $i++) {
$g = $groups[$i]->{'group'};
@m = @{$groups[$i]->{'members'}};
if (@m > 15) { @m = @m[0..14]; }
printf " | $g | \n",
&urlize($f), &urlize(&this_url());
printf "%s | \n",
@m ? join(" , ", @m) : "None";
}
print " |
\n";
}
else {
print "
",&text('authg_none', "$f"),"\n";
}
printf "%s
\n",
&urlize($f), &urlize(&this_url()), $text{'authg_add'};
&ui_print_footer($in{'url'}, $text{'auth_return'});