X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FBurnMedia.pm;h=e6beac20c069427f684d0f58c4fe8f3edea53250;hp=0bd4bffdd0f7edced371f11a6594cdac28b5386e;hb=bdc68d33907e567b2cb7ed30366d32a77cf08875;hpb=bc4ccaeb2aa4b32cc135e9cf69f75f502ad50a06 diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm index 0bd4bff..e6beac2 100644 --- a/lib/BackupPC/CGI/BurnMedia.pm +++ b/lib/BackupPC/CGI/BurnMedia.pm @@ -41,19 +41,22 @@ EOF my $selected = 0; my $parts = 1; - foreach my $key(keys(%In)) { + print LOG "doing $key..."; if ($key =~ m/^fcb([0-9]+)_([0-9]+)_([0-9]+)$/gi) { + my ($host_id, $backup_num, $backup_id) = ($1,$2,$3); push @selected_backup_ids, $backup_id; - $total_size += BackupPC::SearchLib::getGzipSize($host_id, $backup_num); + my $currSize = BackupPC::SearchLib::getGzipSize($host_id, $backup_num); + if ($currSize > 0) { + $total_size += currSize; + } $selected++; my ($this_part) = $dbh->selectrow_array("select parts from backups where id = ?", undef, $backup_id); $this_part--; $parts += $this_part; - } - } + } } if ($total_size > ($Conf{MaxArchiveSize} * $parts)) { $cont .= eval( q{ ${h2(Error)}});