change-user/acl_security.pl

   1
   2 use strict;
   3 use warnings;
   4 do 'change-user-lib.pl';
   5 our (%text, %in);
   6
   7 # acl_security_form(&options)
   8 # Output HTML for editing security options for the acl module
   9 sub acl_security_form
  10 {
  11 print "<tr> <td><b>$text{'acl_lang'}</b></td> <td nowrap>\n";
  12 printf "<input type=radio name=lang value=1 %s> $text{'yes'}\n",
  13         $_[0]->{'lang'} ? 'checked' : '';
  14 printf "<input type=radio name=lang value=0 %s> $text{'no'}</td>\n",
  15         $_[0]->{'lang'} ? '' : 'checked';
  16
  17 print "<td><b>$text{'acl_theme'}</b></td> <td nowrap>\n";
  18 printf "<input type=radio name=theme value=1 %s> $text{'yes'}\n",
  19         $_[0]->{'theme'} ? 'checked' : '';
  20 printf "<input type=radio name=theme value=0 %s> $text{'no'}</td> </tr>\n",
  21         $_[0]->{'theme'} ? '' : 'checked';
  22
  23 print "<tr> <td><b>$text{'acl_pass'}</b></td> <td nowrap>\n";
  24 printf "<input type=radio name=pass value=1 %s> $text{'yes'}\n",
  25         $_[0]->{'pass'} ? 'checked' : '';
  26 printf "<input type=radio name=pass value=0 %s> $text{'no'}</td> </tr>\n",
  27         $_[0]->{'pass'} ? '' : 'checked';
  28 }
  29
  30 # acl_security_save(&options)
  31 # Parse the form for security options for the acl module
  32 sub acl_security_save
  33 {
  34 $_[0]->{'lang'} = $in{'lang'};
  35 $_[0]->{'theme'} = $in{'theme'};
  36 $_[0]->{'pass'} = $in{'pass'};
  37 }
  38