#!/usr/local/bin/perl
# change_ui.cgi
# Change colour scheme

require './usermin-lib.pl';
$access{'ui'} || &error($text{'acl_ecannot'});
&error_setup($text{'ui_err'});
&ReadParse();
$in{'feedback_def'} || $in{'feedback'} =~ /\S/ || &error($text{'ui_efeedback'});
$in{'feedbackmail_def'} || gethostbyname($in{'feedbackmail'}) ||
    &check_ipaddress($in{'feedbackmail'}) || &error($text{'ui_efeedbackmail'});

&lock_file($usermin_config);
&get_usermin_config(\%uconfig);
$uconfig{'texttitles'} = $in{'texttitles'};
$uconfig{'sysinfo'} = $in{'sysinfo'};
$uconfig{'feedback'} = $in{'feedback_def'} ? undef : $in{'feedback'};
$uconfig{'feedbackmail'} = $in{'feedbackmail_def'} ? undef :$in{'feedbackmail'};
$uconfig{'gotoone'} = $in{'gotoone'};
$uconfig{'gotomodule'} = $in{'gotomodule'};
$uconfig{'nohostname'} = $in{'nohostname'};
&write_file($usermin_config, \%uconfig);
&unlock_file($usermin_config);
&webmin_log('ui', undef, undef, \%in);
&redirect("");

