/[BackupPC]/trunk/lib/BackupPC/SearchLib.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/BackupPC/SearchLib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 379 by iklaric, Tue May 8 12:16:24 2007 UTC revision 380 by iklaric, Wed May 9 07:07:02 2007 UTC
# Line 20  my $db_user = $Conf{SearchUser} || ''; Line 20  my $db_user = $Conf{SearchUser} || '';
20  my $hest_node_url = $Conf{HyperEstraierIndex};  my $hest_node_url = $Conf{HyperEstraierIndex};
21    
22  my $dbh;  my $dbh;
23  my $Dir = $Conf{InstallDir}."/data/log";  
 open(LOG, ">>", "$Dir/LOG")  
 select(LOG);  
 $|=1;  
24    
25    
26  sub get_dbh {  sub get_dbh {
# Line 383  sub get_tgz_size_by_name($) { Line 380  sub get_tgz_size_by_name($) {
380          my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name;          my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name;
381          my $size = -1;          my $size = -1;
382    
383            my $Dir = $Conf{InstallDir}."/data/log";
384            $|=1;
385          if (-f "${tgz}.tar.gz") {          if (-f "${tgz}.tar.gz") {
                 print "stating ${tgz}.tar.gz...";  
386                  $size = (stat("${tgz}.tar.gz"))[7];                  $size = (stat("${tgz}.tar.gz"))[7];
                 print "size: $size\n";  
387          } elsif (-d $tgz) {          } elsif (-d $tgz) {
                 print "$tgz is dir, stating files in it...\n";  
388                  opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";                  opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";
389                  my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);                  my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);
390                  $size = 0;                  $size = 0;
391                  foreach my $part (@parts) {                  foreach my $part (@parts) {
392                          my $currSize =  (stat("$tgz/$part"))[7];                          my $currSize =  (stat("$tgz/$part"))[7];
393                          $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";                          $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";
                         print "\t$tgz/$part: $currSize\n";  
394                  }                  }
                 print "\ttotal $size\n";  
395    
396                  closedir $dir;                  closedir $dir;
397          } else {          } else {
Legend:
Removed from v.379  
changed lines
  Added in v.380
  ViewVC Help
Powered by ViewVC 1.1.26