simba/backup

17 lines
292 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({
dbi_file => $ENV{SIMBA_DB_CONN} || "$ENV{HOME}/.dbi/simba",
fh_log => $log,
});
$ca->run();