usermin/edit_advanced.cgi

   1 #!/usr/local/bin/perl
   2 # Display the advanced options form
   3
   4 require './usermin-lib.pl';
   5 &ui_print_header(undef, $text{'advanced_title'}, "");
   6 &get_usermin_miniserv_config(\%miniserv);
   7 &get_usermin_config(\%uconfig);
   8
   9 print &ui_form_start("change_advanced.cgi", "post");
  10 print &ui_table_start($text{'advanced_header'}, undef, 2);
  11
  12 # Global temp directory
  13 print &ui_table_row($text{'advanced_temp'},
  14                     &ui_opt_textbox("tempdir", $uconfig{'tempdir'},
  15                                     30, $text{'advanced_tempdef'}));
  16
  17 # Per-module temp directories
  18 @mods = sort { $a->{'desc'} cmp $b->{'desc'} } &list_modules();
  19 $ttable = &ui_columns_start([ $text{'advanced_tmod'},
  20                               $text{'advanced_tdir'} ]);
  21 $i = 0;
  22 foreach $d (&webmin::get_tempdirs(\%uconfig), [ ]) {
  23         $ttable .= &ui_columns_row([
  24                 &ui_select("tmod_$i", $d->[0],
  25                         [ [ "", "&nbsp;" ],
  26                           map { [ $_->{'dir'}, $_->{'desc'} ] } @mods ]),
  27                 &ui_textbox("tdir_$i", $d->[1], 30)
  28                 ]);
  29         $i++;
  30         }
  31 $ttable .= &ui_columns_end();
  32 print &ui_table_row($text{'advanced_tempmods'}, $ttable);
  33
  34 # Show call stack on error
  35 print &ui_table_row($text{'advanced_stack'},
  36                     &ui_yesno_radio("stack", int($uconfig{'error_stack'})));
  37
  38 # Pass passwords to CGI programs
  39 print &ui_table_row($text{'advanced_pass'},
  40                     &ui_yesno_radio("pass", int($miniserv{'pass_password'})));
  41
  42 # Umask for created files
  43 print &ui_table_row($text{'advanced_umask'},
  44             &ui_opt_textbox("umask", $uconfig{'umask'}, 5, $text{'default'}));
  45
  46 print &ui_table_end();
  47 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  48
  49 &ui_print_footer("", $text{'index_return'});
  50