mirror of
https://github.com/webmin/webmin.git
synced 2026-02-12 01:54:28 +00:00
28 lines
779 B
Perl
Executable File
28 lines
779 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# change_startpage.cgi
|
|
# Change startpage settings
|
|
|
|
require './webmin-lib.pl';
|
|
&ReadParse();
|
|
&lock_file("$config_directory/config");
|
|
if ($in{'nocols_def'}) {
|
|
delete($gconfig{'nocols'});
|
|
}
|
|
else {
|
|
$in{'nocols'} =~ /^\d+$/ ||
|
|
&error(&text('startpage_ecols', $in{'nocols'}));
|
|
$gconfig{'nocols'} = $in{'nocols'};
|
|
}
|
|
$gconfig{'notabs'} = $in{'notabs'};
|
|
$gconfig{'gotoone'} = $in{'gotoone'};
|
|
$gconfig{'deftab'} = $in{'deftab'};
|
|
$gconfig{'nohostname'} = $in{'nohostname'};
|
|
$gconfig{'gotomodule'} = $in{'gotomodule'};
|
|
$gconfig{'nowebminup'} = !$in{'webminup'};
|
|
$gconfig{'nomoduleup'} = !$in{'moduleup'};
|
|
&write_file("$config_directory/config", \%gconfig);
|
|
&unlock_file("$config_directory/config");
|
|
&webmin_log("startpage", undef, undef, \%in);
|
|
&redirect("");
|
|
|