simba/da

#!/usr/bin/perl -T
use warnings;
use strict;
use Simba::DA;

open(my $log, '>>', '/var/log/simba/da.log');
$log->autoflush(1);
my $da = Simba::DA->new({fh_log => $log});

$da->run();
Snapshot 2006-10-02 12:56:36 +02:00			`#!/usr/bin/perl -T`
			`use warnings;`
			`use strict;`
			`use Simba::DA;`

Skeleton of rsync-like backup to disk is working. Relative paths are wrong, and permissions are missing. Database support is missing. 2006-11-20 00:00:08 +01:00			`open(my $log, '>>', '/var/log/simba/da.log');`
			`$log->autoflush(1);`
			`my $da = Simba::DA->new({fh_log => $log});`
Snapshot 2006-10-02 12:56:36 +02:00
			`$da->run();`