lilo/save_global.cgi

   1 #!/usr/local/bin/perl
   2 # save_global.cgi
   3 # Save global options
   4
   5 require './lilo-lib.pl';
   6 &ReadParse();
   7 &lock_file($config{'lilo_conf'});
   8 $conf = &get_lilo_conf();
   9 &error_setup($text{'global_err'});
  10
  11 &save_directive($conf, "boot",
  12                 $in{'bootmode'} ? { 'name' => 'boot', 'value' => $in{'boot'} }
  13                                 : undef);
  14 &save_directive($conf, "default",
  15                 $in{'defaultmode'} ? { 'name' => 'default',
  16                                        'value' => $in{'default'} } : undef);
  17 &save_directive($conf, "prompt",
  18                 $in{'prompt'} ? { 'name' => 'prompt' } : undef);
  19 &save_directive($conf, "timeout",
  20                 $in{'timeout_def'} ? undef :
  21                 { 'name' => 'timeout', 'value' => $in{'timeout'}*10 });
  22 &save_directive($conf, "lock",
  23                 $in{'lock'} ? { 'name' => 'lock' } : undef);
  24 &save_directive($conf, "delay",
  25                 $in{'delay_def'} ? undef :
  26                 { 'name' => 'delay', 'value' => $in{'delay'}*10 });
  27 &save_directive($conf, "compact",
  28                 $in{'compact'} ? { 'name' => 'compact' } : undef);
  29 &save_directive($conf, "optional",
  30                 $in{'optional'} ? { 'name' => 'optional' } : undef);
  31 &save_directive($conf, "password",
  32                 $in{'passmode'} ? { 'name' => 'password',
  33                                     'value' => $in{'password'} } : undef);
  34 &save_directive($conf, "restricted",
  35                 $in{'restricted'} ? { 'name' => 'restricted' } : undef);
  36 if ($lilo_version >= 21.3) {
  37         &save_directive($conf, "lba32",
  38                         $in{'lba'} ? { 'name' => 'lba32' } : undef);
  39         }
  40 &flush_file_lines();
  41 &unlock_file($config{'lilo_conf'});
  42 &webmin_log("global", undef, undef, \%in);
  43 &redirect("");
  44