fsdump/acl_security.pl

   1
   2 do 'fsdump-lib.pl';
   3
   4 # acl_security_form(&options)
   5 # Output HTML for editing security options for the acl module
   6 sub acl_security_form
   7 {
   8 print &ui_table_row($text{'acl_edit'},
   9                       &ui_yesno_radio('edit', $_[0]->{'edit'}));
  10
  11 print &ui_table_row($text{'acl_restore'},
  12                       &ui_yesno_radio('restore', $_[0]->{'restore'}));
  13
  14 print &ui_table_row($text{'acl_cmds'},
  15                       &ui_yesno_radio('cmds', $_[0]->{'cmds'}));
  16
  17 print &ui_table_row($text{'acl_extra'},
  18                       &ui_yesno_radio('extra', $_[0]->{'extra'}));
  19
  20 print &ui_table_row($text{'acl_dirs'},
  21                       &ui_radio("dirs_def", $_[0]->{'dirs'} eq "*" ? 1 : 0,
  22                                 [ [ 1, $text{'acl_all'} ],
  23                                   [ 0, $text{'acl_list'} ] ])."<br>\n".
  24                       &ui_textarea("dirs", $_[0]->{'dirs'} eq "*" ? "" :
  25                                       join("\n", split(/\t/, $_[0]->{'dirs'})),
  26                                    5, 50), 3);
  27 }
  28
  29 # acl_security_save(&options)
  30 # Parse the form for security options for the acl module
  31 sub acl_security_save
  32 {
  33 $_[0]->{'edit'} = $in{'edit'};
  34 $_[0]->{'restore'} = $in{'restore'};
  35 $_[0]->{'cmds'} = $in{'cmds'};
  36 $_[0]->{'extra'} = $in{'extra'};
  37 $in{'dirs'} =~ s/\r//g;
  38 $_[0]->{'dirs'} = $in{'dirs_def'} ? "*" :
  39                         join("\t", split(/\n/, $in{'dirs'}));
  40 }
  41