inetd/backup_config.pl

   1
   2 do 'inetd-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 = ( &list_inets_files(),
   9               $config{'services_file'},
  10               $config{'rpc_file'} );
  11 return @rv;
  12 }
  13
  14 # pre_backup(&files)
  15 # Called before the files are actually read
  16 sub pre_backup
  17 {
  18 return undef;
  19 }
  20
  21 # post_backup(&files)
  22 # Called after the files are actually read
  23 sub post_backup
  24 {
  25 return undef;
  26 }
  27
  28 # pre_restore(&files)
  29 # Called before the files are restored from a backup
  30 sub pre_restore
  31 {
  32 return undef;
  33 }
  34
  35 # post_restore(&files)
  36 # Called after the files are restored from a backup
  37 sub post_restore
  38 {
  39 local $out = &backquote_logged("$config{'restart_command'} 2>&1");
  40 return $? ? "<pre>$out</pre>" : undef;
  41 }
  42
  43 1;
  44