--- trunk/lib/BackupPC/SearchLib.pm	2005/10/07 08:58:45	142
+++ trunk/lib/BackupPC/SearchLib.pm	2005/10/07 09:36:10	143
@@ -293,6 +293,34 @@
 	
 }
 
+sub getGzipSize($$)
+{
+	my ($hostID, $backupNum) = @_;
+	my $ret;
+	my $sql;
+	my $dbh = get_dbh();
+	
+	$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
+					  hosts.id=? AND
+					  backups.num=?;
+			};
+	my $sth = $dbh->prepare($sql);
+	$sth->execute($hostID, $backupNUM);
+	my $row = $res->fetchrow_hashref();
+	
+	my (undef,undef,undef,undef,undef,undef,undef,$ret,undef,undef,undef,undef,undef) = 
+	        	stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.
+	        		getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}));
+	
+	return $ret;	
+}
+
 sub getBackupsNotBurned() {
 
 	my $dbh = get_dbh();