htpasswd-file/acl_security.pl

   1
   2 require 'htpasswd-file-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the passwd module
   6 sub acl_security_form
   7 {
   8 print "<tr> <td><b>$text{'acl_repeat'}</b></td> <td>\n";
   9 printf "<input type=radio name=repeat value=1 %s> $text{'yes'}\n",
  10         $_[0]->{'repeat'} ? "checked" : "";
  11 printf "<input type=radio name=repeat value=0 %s> $text{'no'}</td>\n",
  12         $_[0]->{'repeat'} ? "" : "checked";
  13
  14 print "<td><b>$text{'acl_create'}</b></td> <td>\n";
  15 printf "<input type=radio name=create value=1 %s> $text{'yes'}\n",
  16         $_[0]->{'create'} ? "checked" : "";
  17 printf "<input type=radio name=create value=0 %s> $text{'no'}</td> </tr>\n",
  18         $_[0]->{'create'} ? "" : "checked";
  19
  20 print "<tr> <td><b>$text{'acl_rename'}</b></td> <td>\n";
  21 printf "<input type=radio name=rename value=1 %s> $text{'yes'}\n",
  22         $_[0]->{'rename'} ? "checked" : "";
  23 printf "<input type=radio name=rename value=0 %s> $text{'no'}</td>\n",
  24         $_[0]->{'rename'} ? "" : "checked";
  25
  26 print "<td><b>$text{'acl_delete'}</b></td> <td>\n";
  27 printf "<input type=radio name=delete value=1 %s> $text{'yes'}\n",
  28         $_[0]->{'delete'} ? "checked" : "";
  29 printf "<input type=radio name=delete value=0 %s> $text{'no'}</td> </tr>\n",
  30         $_[0]->{'delete'} ? "" : "checked";
  31
  32 print "<tr> <td><b>$text{'acl_enable'}</b></td> <td>\n";
  33 printf "<input type=radio name=enable value=1 %s> $text{'yes'}\n",
  34         $_[0]->{'enable'} ? "checked" : "";
  35 printf "<input type=radio name=enable value=0 %s> $text{'no'}</td>\n",
  36         $_[0]->{'enable'} ? "" : "checked";
  37
  38 print "<td><b>$text{'acl_sync'}</b></td> <td>\n";
  39 printf "<input type=radio name=sync value=1 %s> $text{'yes'}\n",
  40         $_[0]->{'sync'} ? "checked" : "";
  41 printf "<input type=radio name=sync value=0 %s> $text{'no'}</td> </tr>\n",
  42         $_[0]->{'sync'} ? "" : "checked";
  43
  44 print "<tr> <td><b>$text{'acl_single'}</b></td> <td>\n";
  45 printf "<input type=radio name=single value=1 %s> $text{'yes'}\n",
  46         $_[0]->{'single'} ? "checked" : "";
  47 printf "<input type=radio name=single value=0 %s> $text{'no'}</td>\n",
  48         $_[0]->{'single'} ? "" : "checked";
  49
  50 print "</tr>\n";
  51 }
  52
  53 # acl_security_save(&options)
  54 # Parse the form for security options for the bind8 module
  55 sub acl_security_save
  56 {
  57 $_[0]->{'repeat'} = $in{'repeat'};
  58 $_[0]->{'create'} = $in{'create'};
  59 $_[0]->{'rename'} = $in{'rename'};
  60 $_[0]->{'delete'} = $in{'delete'};
  61 $_[0]->{'enable'} = $in{'enable'};
  62 $_[0]->{'sync'} = $in{'sync'};
  63 $_[0]->{'single'} = $in{'single'};
  64 }
  65