change_os.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# change_os.cgi
# Change OS settings

require './webmin-lib.pl';
&ReadParse();

@os = split(/,/, $in{'os'});
$gconfig{'real_os_type'} = $os[0];
$gconfig{'real_os_version'} = $os[1];
$gconfig{'os_type'} = $os[2];
$gconfig{'os_version'} = $os[3];
&write_file("$config_directory/config", \%gconfig);
&redirect("");