--- trunk/lib/BackupPC/SearchLib.pm 2007/05/10 06:16:16 381 +++ trunk/lib/BackupPC/SearchLib.pm 2007/05/14 08:06:52 382 @@ -401,6 +401,27 @@ return $size; } +sub getGzipSizeFromBackupID($) { + my ($backupID) = @_; + my $dbh = get_dbh(); + my $sql = q{ + SELECT hosts.name as host, + shares.name as share, + backups.num as backupnum + FROM hosts, backups, shares + WHERE shares.id=backups.shareid AND + hosts.id =backups.hostid AND + backups.id = ? + }; + my $sth = $dbh->prepare($sql); + $sth->execute($backupID); + my $row = $sth->fetchrow_hashref(); + + return get_tgz_size_by_name( + getGzipName($row->{'host'}, $row->{share}, $row->{backupnum}) + ); +} + sub getGzipSize($$) { my ($hostID, $backupNum) = @_; @@ -648,7 +669,7 @@