simba/backup

17 lines
310 B
Perl
Executable File

#!/usr/bin/perl -T
use warnings;
use strict;
use Simba::CA;
$ENV{PATH} = "/usr/bin";
open(my $log, '>>', '/var/log/simba/ca.log');
$log->autoflush(1);
my $ca = Simba::CA->new({fh_log => $log});
$ca->targets([
{ host => 'bernon.wsr.ac.at', dir => '/' }
]);
$ca->basedir('/backup/simba');
$ca->run();