pserver/acl_security.pl

   1
   2 do 'pserver-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the pserver module
   6 sub acl_security_form
   7 {
   8 local $i = 0;
   9 foreach $f (@features, 'setup', 'init') {
  10         print "<tr>\n" if ($i%2 == 0);
  11         print "<td><b>",$text{'acl_'.$f},"</b></td> <td>\n";
  12         printf "<input type=radio name=%s value=1 %s> $text{'yes'}\n",
  13                 $f, $_[0]->{$f} ? 'checked' : '';
  14         printf "<input type=radio name=%s value=0 %s> $text{'no'}</td>\n",
  15                 $f, $_[0]->{$f} ? '' : 'checked';
  16         print "</tr>\n" if ($i++%2 == 1);
  17         }
  18 print "</tr>\n" if ($i%2 == 1);
  19 }
  20
  21 # acl_security_save(&options)
  22 # Parse the form for security options for the acl module
  23 sub acl_security_save
  24 {
  25 foreach $f (@features, 'setup', 'init') {
  26         $_[0]->{$f} = $in{$f};
  27         }
  28 }
  29