r155@klaxLaptop: klax | 2005-10-07 11:36:01 +0200

 added sub getGzipSize() in SearchLib.pm

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@143 8392b6e1-25fa-0310-8288-cc32f8e212ea

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index 10115ab..9b0224c 100644 (file)
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -3,6 +3,7 @@ package BackupPC::CGI::BurnMedia;
 use strict;
 use BackupPC::CGI::Lib qw(:all);
 use BackupPC::SearchLib;
+use BackupPC::Workflow::Create;
 use Data::Dumper;
 use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
 

diff --git a/lib/BackupPC/SearchLib.pm b/lib/BackupPC/SearchLib.pm
index c01ed64..07273d3 100644 (file)
--- a/lib/BackupPC/SearchLib.pm
+++ b/lib/BackupPC/SearchLib.pm
@@ -293,6 +293,34 @@ sub getGzipName($$$)
        
 }
 
+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();