#!/usr/local/bin/perl # edit_ui.cgi # Edit user interface options require './usermin-lib.pl'; $access{'ui'} || &error($text{'acl_ecannot'}); &ui_print_header(undef, $text{'ui_title'}, ""); &get_usermin_config(\%uconfig); print $text{'ui_desc'},"

\n"; print "

\n"; print "\n"; print "\n"; print "
$text{'ui_header'}
\n"; for($i=0; $i<@webmin::cs_names; $i++) { $cd = $webmin::cs_codes[$i]; print "\n"; printf "\n"; } print "\n"; printf "\n", $uconfig{'texttitles'} ? '' : 'checked', $text{'no'}; print "\n"; print "\n"; print "\n", $uconfig{'nohostname'} ? 'checked' : '', $text{'no'}; print "\n"; print "\n"; print "\n", $uconfig{'showlogin'} ? '' : 'checked', $text{'no'}; print "\n", $uconfig{'gotoone'} ? '' : 'checked', $text{'no'}; print "\n"; print "\n"; print "\n"; printf "\n", $uconfig{'feedback'}; print "\n"; printf "\n", $uconfig{'feedbackmail'}; print "\n"; printf "\n", $uconfig{'feedbackhost'}; print "\n", $uconfig{'notabs'} ? 'checked' : '', $text{'no'}; print "\n"; print "
$webmin::cs_names[$i] %s\n", defined($uconfig{$cd}) ? "" : "checked", $webmin::text{'ui_default'}; printf "   %s\n", defined($gconfig{$cd}) ? "checked" : "", $webmin::text{'ui_rgb'}; print "\n"; print "
$text{'ui_texttitles'} %s\n", $uconfig{'texttitles'} ? 'checked' : '', $text{'yes'}; printf " %s
$text{'ui_sysinfo'}
$text{'ui_nohost'} \n"; printf " %s\n", $uconfig{'nohostname'} ? '' : 'checked', $text{'yes'}; printf " %s
$text{'ui_hostnamemode'}\n"; printf "\n", $uconfig{'hostnamedisplay'}; print "
$webmin::text{'ui_showlogin'} \n"; printf " %s\n", $uconfig{'showlogin'} ? 'checked' : '', $text{'yes'}; printf " %s
$webmin::text{'startpage_gotoone'} \n"; printf " %s\n", $uconfig{'gotoone'} ? 'checked' : '', $text{'yes'}; printf " %s
$webmin::text{'startpage_gotomodule'}
$text{'ui_feedbackmode'} %s\n", $uconfig{'feedback'} ? "" : "checked", $text{'no'}; printf " %s\n", $uconfig{'feedback'} ? "checked" : "", $text{'ui_feedbackyes'}; printf "
$text{'ui_feedbackmail'} %s\n", $uconfig{'feedbackmail'} ? "" : "checked", $text{'ui_feedbackmail1'}; printf " %s\n", $uconfig{'feedbackmail'} ? "checked" : "", $text{'ui_feedbackmail0'}; printf "
$text{'ui_feedbackhost'} %s\n", $uconfig{'feedbackhost'} ? "" : "checked", $text{'ui_feedbackthis'}; printf "\n", $uconfig{'feedbackhost'} ? "checked" : ""; printf "
$text{'ui_tabs'} \n"; printf " %s\n", $uconfig{'notabs'} ? '' : 'checked', $text{'yes'}; printf " %s
$webmin::text{'ui_dateformat'} \n"; print &ui_select("dateformat", $uconfig{'dateformat'} || "dd/mon/yyyy", [ map { [ $_, $webmin::text{'ui_dateformat_'.$_} ] } @webmin::webmin_date_formats ]); print "
\n"; print "
\n"; &ui_print_footer("", $text{'index_return'});