--- trunk/lib/BackupPC/SearchLib.pm	2005/08/30 22:43:01	102
+++ trunk/lib/BackupPC/SearchLib.pm	2005/09/01 18:30:51	109
@@ -241,6 +241,20 @@
 	return ($hits, \@res);
 }
 
+sub getGzipName($$$)
+{
+	my ($host, $share, $backupnum) = @_;
+	my $ret = $Conf{GzipSchema};
+	
+	$share =~ s/\//_/g;
+	$ret =~ s/\\h/$host/ge;
+	$ret =~ s/\\s/$share/ge;
+	$ret =~ s/\\n/$backupnum/ge;
+	
+	return $ret;
+	
+}
+
 sub getBackupsNotBurned() {
 
 	my $dbh = get_dbh();
@@ -268,6 +282,10 @@
 	while ( my $row = $sth->fetchrow_hashref() ) {
 		$row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
 		$row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
+		my (undef,undef,undef,undef,undef,undef,undef,$fs_size,undef,undef,undef,undef,undef) = 
+	        	stat( $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.
+	        		getGzipName($row->{'host'}, $row->{share}, $row->{'backupnum'}));
+		$row->{'fs_size'} = $fs_size;
 		push @ret, $row;
 	}
       
@@ -314,6 +332,7 @@
 		<td align="center">date</td>
 		<td align="center">age/days</td>
 		<td align="center">size/MB</td>
+		<td align="center">gzip size</td>
 		</tr>
 
 		<tr><td colspan=7 style="tableheader">
@@ -347,6 +366,7 @@
 			'<td align="center">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
 			'<td align="center">' . $backup->{'age'} . '</td>' .
 			'<td align="right">' . $backup->{'size'} . '</td>' .
+			'<td align="right">' . $backup->{'fs_size'} .'</td>' .
 			"</tr>\n";