my $dbh = DBI->connect($Conf{SearchDSN}, $Conf{SearchUser}, "", { RaiseError => 1, AutoCommit => 0 });
my $sth = $dbh->prepare(qq{
select
+ hosts.name as host, -- FIXME for debug
backups.num as num,
inc_size,
size,
$all_backup_numbers->{ $row->{num} } =
$row->{inc_deleted} ? 0 :
$row->{size} == 0 ? 0 :
- $row->{inc_size} < 0 ? 1 :
+ $row->{inc_size} > 0 ? 0 :
$row->{size} > 0 ? 1 :
0;
}
-warn dump($all_backup_numbers);
+warn "# host $host all_backup_numbers = ",dump($all_backup_numbers);
my @backup_nums =
sort
grep { $all_backup_numbers->{$_} }
$compname = $Conf{CatPath};
$compext = '.raw';
}
- my $fullsplitsize = $In{splitsize} . '000000';
+ my $fullsplitsize = $In{splitsize} . '000000'; # mb -> bytes
my %ArchiveReq = (
# parameters for the archive
archiveloc => $In{archive_device},