/usr/share/usermin/htaccess
Edit: /usr/share/usermin/htaccess/list_authusers.cgi (1129B)
#!/usr/bin/perl
# list_authusers.cgi
# Displays a list of users from a text file
require './htaccess-lib.pl';
require './auth-lib.pl';
&ReadParse();
$desc = &text('authu_header', "
$in{'file'}");
&ui_print_header($desc, $text{'authu_title'}, "");
$f = $in{'file'};
@users = sort { $a cmp $b } &list_authusers($f);
if (@users) {
print "
\n";
print " | ",&text('authu_header2', "$f"),
" |
\n";
print " \n";
for($i=0; $i<@users; $i++) {
$u = $users[$i];
if ($i%4 == 0) { print "\n"; }
printf "| $u | \n",
&urlize($f), &urlize(&this_url());
if ($i%4 == 3) { print " \n"; }
}
while($i++%4) { print " | \n"; }
print " |
\n";
}
else {
print "
",&text('authu_none', "$f"),"\n";
}
printf "%s
\n",
&urlize($f), &urlize(&this_url()), $text{'authu_add'};
&ui_print_footer($in{'url'}, $text{'auth_return'});