usermin/edit_acl.cgi

   1 #!/usr/local/bin/perl
   2 # edit_acl.cgi
   3 # Choose visible usermin modules
   4
   5 require './usermin-lib.pl';
   6 $access{'acl'} || &error($text{'acl_ecannot'});
   7 &ui_print_header(undef, $text{'acl_title'}, "");
   8
   9 &read_usermin_acl(\%acl);
  10 print "$text{'acl_desc'}<p>\n";
  11 print &ui_form_start("save_acl.cgi");
  12 @mods = &list_modules();
  13 @grid = ( );
  14 foreach $m (@mods) {
  15         push(@grid, &ui_checkbox("mod", $m->{'dir'}, $m->{'desc'},
  16                                  $acl{'user',$m->{'dir'}}));
  17         }
  18 print &ui_grid_table(\@grid, 3, 100, [ "width=33%", "width=33%", "width=33%" ]);
  19 print &ui_form_end([ [ undef, $text{'save'} ] ]);
  20
  21 &ui_print_footer("", $text{'index_return'});
  22