/usr/share/usermin/htaccess
Edit: /usr/share/usermin/htaccess/edit_authgroup.cgi (1479B)
#!/usr/bin/perl
# edit_authgroup.cgi
# Display a form for editing a new or existing group
require './htaccess-lib.pl';
require './auth-lib.pl';
&ReadParse();
$desc = &text('authg_header', "
$in{'file'}");
if (defined($in{'group'})) {
# editing existing group
&ui_print_header($desc, $text{'authg_edit'}, "");
$g = &get_authgroup($in{'file'}, $in{'group'});
$group = $g->{'group'};
@members = @{$g->{'members'}};
$new = 0;
}
else {
# creating a new group
&ui_print_header($desc, $text{'authg_create'}, "");
$new = 1;
}
print "
\n";
&ui_print_footer($in{'url'}, $text{'auth_return'});