certmgr/acl_security.pl

   1
   2 do 'certmgr-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the acl module
   6 sub acl_security_form
   7 {
   8 print "<tr> <td valign=top><b>$text{'acl_pages'}</b></td> <td colspan=3>\n";
   9 foreach $p (@pages) {
  10         printf "<input type=checkbox name=%s value=1 %s> %s<br>\n",
  11                 $p, $_[0]->{$p} ? "checked" : "", $text{'index_'.$p};
  12         }
  13 print "</td> </tr>\n";
  14 }
  15
  16 # acl_security_save(&options)
  17 # Parse the form for security options for the acl module
  18 sub acl_security_save
  19 {
  20 foreach $p (@pages) {
  21         $_[0]->{$p} = $in{$p};
  22         }
  23 }
  24