simba/backup

#!/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();