shell/acl_security.pl

   1
   2 do 'shell-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the shell module
   6 sub acl_security_form
   7 {
   8 print "<tr> <td><b>$text{'acl_user'}</b></td> <td colspan=3>\n";
   9 printf "<input type=radio name=user_def value=1 %s> %s\n",
  10         $_[0]->{'user'} ? '' : 'checked', $text{'acl_user_def'};
  11 printf "<input type=radio name=user_def value=0 %s>\n",
  12         $_[0]->{'user'} ? 'checked' : '';
  13 print "<input name=user size=8 value='$_[0]->{'user'}'> ",
  14       &user_chooser_button("user"),"</td> </tr>\n";
  15 }
  16
  17 # acl_security_save(&options)
  18 # Parse the form for security options for the shell module
  19 sub acl_security_save
  20 {
  21 $_[0]->{'user'} = $in{'user_def'} ? undef : $in{'user'};
  22 }
  23