usermin/edit_ui.cgi

   1 #!/usr/local/bin/perl
   2 # edit_ui.cgi
   3 # Edit user interface options
   4
   5 require './usermin-lib.pl';
   6 $access{'ui'} || &error($text{'acl_ecannot'});
   7 &ui_print_header(undef, $text{'ui_title'}, "");
   8
   9 &get_usermin_config(\%uconfig);
  10 print $text{'ui_desc'},"<p>\n";
  11
  12 print &ui_form_start("change_ui.cgi", "post");
  13 print &ui_table_start($text{'ui_header'}, undef, 2, [ "width=30%" ]);
  14
  15
  16 for($i=0; $i<@webmin::cs_names; $i++) {
  17         $cd = $webmin::cs_codes[$i];
  18         print &ui_table_row($webmin::cs_names[$i],
  19                 &ui_opt_textbox($cd, $uconfig{$cd}, 8, $text{'ui_default'},
  20                   $text{'ui_rgb'}));
  21         }
  22
  23 print &ui_table_row($text{'ui_texttitles'},
  24       &ui_yesno_radio("texttitles", int($uconfig{'texttitles'})));
  25
  26 print &ui_table_row($text{'ui_sysinfo'},
  27       &ui_select("sysinfo", int($uconfig{'sysinfo'}),
  28       [ map { [ $_, $text{'ui_sysinfo'.$_} ] } (0, 1, 4, 2, 3) ]));
  29
  30 print &ui_table_row($text{'ui_hostnamemode'},
  31       &ui_select("hostnamemode", int($uconfig{'hostnamemode'}),
  32       [ map { [ $_, $text{'ui_hnm'.$_} ] } (0 .. 3) ]).
  33       " ".&ui_textbox("hostnamedisplay", $uconfig{'hostnamedisplay'}, 20));
  34
  35 print &ui_table_row($text{'ui_showlogin'},
  36       &ui_yesno_radio("showlogin", $uconfig{'showlogin'}));
  37
  38 print &ui_table_row($text{'startpage_nohost'},
  39       &ui_radio("nohostname", $uconfig{'nohostname'} ? 1 : 0,
  40                   [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
  41
  42 print &ui_table_row($text{'startpage_gotoone'},
  43       &ui_yesno_radio("gotoone", int($uconfig{'gotoone'})));
  44
  45 @modules = &list_modules();
  46 print &ui_table_row($text{'startpage_gotomodule'},
  47       &ui_select("gotomodule", $uconfig{'gotomodule'},
  48       [ [ "", $text{'startpage_gotonone'} ],
  49       map { [ $_->{'dir'}, $_->{'desc'} ] }
  50           sort { $a->{'desc'} cmp $b->{'desc'} } @modules ]));
  51
  52 print &ui_table_row($text{'ui_feedbackmode'},
  53       &ui_radio('feedback_def',
  54         $uconfig{'feedback'} ? 0 : 1,
  55         [ [ 0, $text{'ui_feedbackyes'} . ' '
  56             . &ui_textbox('feedback', $uconfig{'feedback'}) ]
  57         , [ 1, $text{'no'} ] ]));
  58
  59 print &ui_table_row($text{'ui_feedbackmail'},
  60       &ui_radio('feedbackmail_def',
  61         $uconfig{'feedbackmail'} ? 0 : 1,
  62         [ [ 1, $text{'ui_feedbackmail1'} ]
  63         , [ 0, $text{'ui_feedbackmail0'} . ' '
  64             . &ui_textbox('feedbackmail', $uconfig{'feedbackmail'}) ] ]));
  65
  66 print &ui_table_row($text{'ui_feedbackhost'},
  67         &ui_opt_textbox("feedbackhost", $uconfig{'feedbackhost'}, 30,
  68           $text{'ui_feedbackthis'}));
  69
  70 print &ui_table_row($text{'ui_tabs'},
  71         &ui_radio("notabs", $uconfig{'notabs'} ? 1 : 0,
  72           [ [ 0, $text{'yes'} ], [ 1, $text{'no'} ] ]));
  73
  74 print &ui_table_row($text{'ui_dateformat'},
  75         &ui_select("dateformat", $uconfig{'dateformat'} || "dd/mon/yyyy",
  76           [ map { [ $_, $text{'ui_dateformat_'.$_} ] }
  77             @webmin::webmin_date_formats ]));
  78
  79 print &ui_table_end();
  80 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  81
  82 &ui_print_footer("", $text{'index_return'});
  83