X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FArchive.pm;h=24ebaac828ac4c4846cafe7909668069370487ec;hp=c6f2d40b62b224cd39b98dc9bc8b47288c12f3c0;hb=730841807f5da0e0626be75a4d2e828b7584057f;hpb=74baa820fab5e1a03551526f0e9e671d9f74de03

diff --git a/lib/BackupPC/CGI/Archive.pm b/lib/BackupPC/CGI/Archive.pm
index c6f2d40..24ebaac 100644
--- a/lib/BackupPC/CGI/Archive.pm
+++ b/lib/BackupPC/CGI/Archive.pm
@@ -84,6 +84,7 @@ use Data::Dump qw(dump);
 		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,
@@ -99,12 +100,12 @@ warn "# row ",dump $row;
 			$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->{$_} }
@@ -266,7 +267,7 @@ EOF
                 $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},