itsecur-firewall/backup.pl

   1 #!/usr/bin/perl
   2 # Do a backup on schedule
   3
   4 $no_acl_check++;
   5 require './itsecur-lib.pl';
   6
   7 $file = $config{'backup_dest'};
   8 if (-d $file) {
   9         $file .= "/firewall.zip";
  10         }
  11 @what = split(/\s+/, $config{'backup_what'});
  12 $pass = $config{'backup_pass'};
  13
  14 if ($file) {
  15         &backup_firewall(\@what, $file, $pass);
  16         }