#!/usr/local/bin/perl # list_restrict.cgi # Display usermin per-user or per-group module restrictions require './usermin-lib.pl'; $access{'restrict'} || &error($text{'acl_ecannot'}); &ui_print_header(undef, $text{'restrict_title'}, ""); print &text('restrict_desc', "edit_acl.cgi"),"
\n";
@usermods = &list_usermin_usermods();
if (@usermods) {
print "$text{'restrict_add'}",
"
\n";
print "
$text{'restrict_who'} | ", "$text{'restrict_what'} | ", "$text{'restrict_move'} |
", $u->[0] eq "*" ? $text{'restrict_all'} : $u->[0] =~ /^\@(.*)/ ? &text('restrict_group', "$1") : $u->[0] =~ /^\// ? &text('restrict_file', "$u->[0]") : "$u->[0]"," | \n"; $mods = join(" ", map { "$_" } @{$u->[2]}); print "",!$mods ? $text{'restrict_nomods'} : &text($u->[1] eq "+" ? 'restrict_plus' : $u->[1] eq "-" ? 'restrict_minus' : 'restrict_set', $mods)," | \n"; print ""; if ($u eq $usermods[@usermods-1]) { print ""; } else { print "", ""; } if ($u eq $usermods[0]) { print ""; } else { print "", ""; } print " |
\n"; } print "$text{'restrict_add'}
\n"; &ui_print_footer("", $text{'index_return'});