spam/backup_config.pl

   1
   2 do 'spam-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 $conf = &get_config();
   9 local @rv = map { $_->{'file'} } @$conf;
  10 if (&foreign_check("procmail")) {
  11         &foreign_require("procmail", "procmail-lib.pl");
  12         local @pmrc = &procmail::get_procmailrc();
  13         push(@rv, map { $_->{'file'} } @pmrc);
  14         }
  15 return &unique(@rv);
  16 }
  17
  18 # pre_backup(&files)
  19 # Called before the files are actually read
  20 sub pre_backup
  21 {
  22 return undef;
  23 }
  24
  25 # post_backup(&files)
  26 # Called after the files are actually read
  27 sub post_backup
  28 {
  29 return undef;
  30 }
  31
  32 # pre_restore(&files)
  33 # Called before the files are restored from a backup
  34 sub pre_restore
  35 {
  36 return undef;
  37 }
  38
  39 # post_restore(&files)
  40 # Called after the files are restored from a backup
  41 sub post_restore
  42 {
  43 local @pids = &get_process_pids();
  44 if (@pids) {
  45         return &restart_spamd();
  46         }
  47 return undef;
  48 }
  49
  50 1;
  51