at/backup_config.pl

   1
   2 do 'at-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;
   9 opendir(DIR, $config{'at_dir'});
  10 while($f = readdir(DIR)) {
  11         next if ($f eq "." || $f eq ".." || $f eq ".SEQ");
  12         if (!-d "$config{'at_dir'}/$f") {
  13                 push(@rv, "$config{'at_dir'}/$f");
  14                 }
  15         }
  16 return @rv;
  17 }
  18
  19 # pre_backup(&files)
  20 # Called before the files are actually read
  21 sub pre_backup
  22 {
  23 return undef;
  24 }
  25
  26 # post_backup(&files)
  27 # Called after the files are actually read
  28 sub post_backup
  29 {
  30 return undef;
  31 }
  32
  33 # pre_restore(&files)
  34 # Called before the files are restored from a backup
  35 sub pre_restore
  36 {
  37 return undef;
  38 }
  39
  40 # post_restore(&files)
  41 # Called after the files are restored from a backup
  42 sub post_restore
  43 {
  44 return undef;
  45 }
  46
  47 1;
  48