status/acl_security.pl

   1
   2 do 'status-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the status module
   6 sub acl_security_form
   7 {
   8 print "<tr> <td><b>$text{'acl_edit'}</b></td> <td>\n";
   9 printf "<input type=radio name=edit value=1 %s> $text{'yes'}\n",
  10         $_[0]->{'edit'} ? 'checked' : '';
  11 printf "<input type=radio name=edit value=0 %s> $text{'no'}</td>\n",
  12         $_[0]->{'edit'} ? '' : 'checked';
  13
  14 print "<td><b>$text{'acl_sched'}</b></td> <td>\n";
  15 printf "<input type=radio name=sched value=1 %s> $text{'yes'}\n",
  16         $_[0]->{'sched'} ? 'checked' : '';
  17 printf "<input type=radio name=sched value=0 %s> $text{'no'}</td> </tr>\n",
  18         $_[0]->{'sched'} ? '' : 'checked';
  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 $_[0]->{'edit'} = $in{'edit'};
  26 $_[0]->{'sched'} = $in{'sched'};
  27 }
  28