save_global.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_global.cgi
# Save global options

require './lilo-lib.pl';
&ReadParse();
$conf = &get_lilo_conf();
&error_setup($text{'global_err'});

&save_directive($conf, "boot",
		$in{'bootmode'} ? { 'name' => 'boot', 'value' => $in{'boot'} }
				: undef);
&save_directive($conf, "default",
		$in{'defaultmode'} ? { 'name' => 'default',
				       'value' => $in{'default'} } : undef);
&save_directive($conf, "prompt",
		$in{'prompt'} ? { 'name' => 'prompt' } : undef);
&save_directive($conf, "timeout",
		$in{'timeout_def'} ? undef :
		{ 'name' => 'timeout', 'value' => $in{'timeout'}*10 });
&save_directive($conf, "lock",
		$in{'lock'} ? { 'name' => 'lock' } : undef);
&save_directive($conf, "delay",
		$in{'delay_def'} ? undef :
		{ 'name' => 'delay', 'value' => $in{'delay'}*10 });
&save_directive($conf, "compact",
		$in{'compact'} ? { 'name' => 'compact' } : undef);
&save_directive($conf, "optional",
		$in{'optional'} ? { 'name' => 'optional' } : undef);
&save_directive($conf, "password",
		$in{'passmode'} ? { 'name' => 'password',
				    'value' => $in{'password'} } : undef);
&save_directive($conf, "restricted",
		$in{'restricted'} ? { 'name' => 'restricted' } : undef);
&flush_file_lines();
&redirect("");