webmin/change_ui.cgi

   1 #!/usr/local/bin/perl
   2 # change_ui.cgi
   3 # Change colour scheme
   4
   5 require './webmin-lib.pl';
   6 &error_setup($text{'ui_err'});
   7 &ReadParse();
   8
   9 &lock_file("$config_directory/config");
  10 for($i=0; $i<@cs_names; $i++) {
  11         $cd = $cs_codes[$i];
  12         if ($in{"${cd}_def"}) { delete($gconfig{$cd}); }
  13         elsif ($in{$cd} !~ /^[0-9a-fA-F]{6}$/) {
  14                 &error(&text('ui_ergb', $cs_names[$i]));
  15                 }
  16         else { $gconfig{$cd} = $in{$cd}; }
  17         }
  18
  19 $gconfig{'texttitles'} = $in{'texttitles'};
  20 $gconfig{'sysinfo'} = $in{'sysinfo'};
  21 $gconfig{'showlogin'} = $in{'showlogin'};
  22 $gconfig{'showhost'} = $in{'showhost'};
  23 $gconfig{'hostnamemode'} = $in{'hostnamemode'};
  24 $gconfig{'hostnamedisplay'} = $in{'hostnamedisplay'};
  25 $gconfig{'feedback_to'} = $in{'feedback_def'} ? undef : $in{'feedback'};
  26 $gconfig{'nofeedbackcc'} = $in{'nofeedbackcc'};
  27 $gconfig{'dateformat'} = $in{'dateformat'};
  28
  29 $in{'width_def'} || $in{'width'} =~ /^\d+$/ || &error($text{'ui_ewidth'});
  30 $gconfig{'help_width'} = $in{'width'};
  31 $in{'height_def'} || $in{'height'} =~ /^\d+$/ || &error($text{'ui_eheight'});
  32 $gconfig{'help_height'} = $in{'height'};
  33
  34 # Save dialog box sizes
  35 foreach $db ("file", "user", "users", "date", "module", "modules") {
  36         if ($in{"size".$db."_def"}) {
  37                 delete($gconfig{"db_size".$db});
  38                 }
  39         else {
  40                 $in{"size".$db."_w"} =~ /^\d+$/ ||
  41                         &error($text{'ui_edbwidth'});
  42                 $in{"size".$db."_h"} =~ /^\d+$/ ||
  43                         &error($text{'ui_edbheight'});
  44                 $gconfig{"db_size".$db} = $in{"size".$db."_w"}."x".
  45                                           $in{"size".$db."_h"};
  46                 }
  47         }
  48
  49 &write_file("$config_directory/config", \%gconfig);
  50 &unlock_file("$config_directory/config");
  51 &webmin_log('ui', undef, undef, \%in);
  52 &redirect("");
  53