usermin/change_ui.cgi

   1 #!/usr/local/bin/perl
   2 # change_ui.cgi
   3 # Change colour scheme
   4
   5 require './usermin-lib.pl';
   6 $access{'ui'} || &error($text{'acl_ecannot'});
   7 &error_setup($text{'ui_err'});
   8 &ReadParse();
   9 $in{'feedback_def'} || $in{'feedback'} =~ /\S/ || &error($text{'ui_efeedback'});
  10 $in{'feedbackmail_def'} || &to_ipaddress($in{'feedbackmail'}) ||
  11     &to_ip6address($in{'feedbackmail'}) || &error($text{'ui_efeedbackmail'});
  12 $in{'feedbackhost_def'} || $in{'feedbackhost'} =~ /^\S+$/ ||
  13         &error($text{'ui_efeedbackhost'});
  14
  15 &lock_file($usermin_config);
  16 &get_usermin_config(\%uconfig);
  17 for($i=0; $i<@webmin::cs_names; $i++) {
  18         $cd = $webmin::cs_codes[$i];
  19         if ($in{"${cd}_def"}) { delete($uconfig{$cd}); }
  20         elsif ($in{"${cd}"} !~ /^[0-9a-fA-F]{6}$/) {
  21                 &error(&text('ui_ergb', $webmin::cs_names[$i] . $in{"${cd}_rgb"}));
  22                 }
  23         else { $uconfig{$cd} = $in{"${cd}"}; }
  24         }
  25 $uconfig{'texttitles'} = $in{'texttitles'};
  26 $uconfig{'sysinfo'} = $in{'sysinfo'};
  27 $uconfig{'feedback'} = $in{'feedback_def'} ? undef : $in{'feedback'};
  28 $uconfig{'feedbackmail'} = $in{'feedbackmail_def'} ? undef :$in{'feedbackmail'};
  29 $uconfig{'feedbackhost'} = $in{'feedbackhost_def'} ? undef :$in{'feedbackhost'};
  30 $uconfig{'gotoone'} = $in{'gotoone'};
  31 $uconfig{'gotomodule'} = $in{'gotomodule'};
  32 $uconfig{'nohostname'} = $in{'nohostname'};
  33 $uconfig{'showlogin'} = $in{'showlogin'};
  34 $uconfig{'hostnamemode'} = $in{'hostnamemode'};
  35 $uconfig{'hostnamedisplay'} = $in{'hostnamedisplay'};
  36 $uconfig{'notabs'} = $in{'notabs'};
  37 $uconfig{'dateformat'} = $in{'dateformat'};
  38 &write_file($usermin_config, \%uconfig);
  39 &unlock_file($usermin_config);
  40 &webmin_log('ui', undef, undef, \%in);
  41 &redirect("");
  42