lilo/backup_config.pl

   1
   2 do 'lilo-lib.pl';
   3
   4 # backup_config_files()
   5 # Returns files and directories that can be backed up
   6 sub backup_config_files
   7 {
   8 local @rv = ( $config{'lilo_conf'} );
   9 local $conf = &get_lilo_conf();
  10 local $msg = &find_value("message", $conf);
  11 push(@rv, $msg) if ($msg);
  12 return @rv;
  13 }
  14
  15 # pre_backup(&files)
  16 # Called before the files are actually read
  17 sub pre_backup
  18 {
  19 return undef;
  20 }
  21
  22 # post_backup(&files)
  23 # Called after the files are actually read
  24 sub post_backup
  25 {
  26 return undef;
  27 }
  28
  29 # pre_restore(&files)
  30 # Called before the files are restored from a backup
  31 sub pre_restore
  32 {
  33 return undef;
  34 }
  35
  36 # post_restore(&files)
  37 # Called after the files are restored from a backup
  38 sub post_restore
  39 {
  40 local $out = &backquote_logged("$config{'lilo_cmd'} -v 2>&1");
  41 if ($?) {
  42         return "<pre>$out</pre>";
  43         }
  44 return undef;
  45 }
  46
  47 1;
  48