mirror of
https://github.com/webmin/webmin.git
synced 2026-02-06 15:32:20 +00:00
17 lines
303 B
Perl
Executable File
17 lines
303 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Do a backup on schedule
|
|
|
|
$no_acl_check++;
|
|
require './itsecur-lib.pl';
|
|
|
|
$file = $config{'backup_dest'};
|
|
if (-d $file) {
|
|
$file .= "/firewall.zip";
|
|
}
|
|
@what = split(/\s+/, $config{'backup_what'});
|
|
$pass = $config{'backup_pass'};
|
|
|
|
if ($file) {
|
|
&backup_firewall(\@what, $file, $pass);
|
|
}
|