/[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 353 by dpavlin, Wed Apr 26 11:10:54 2006 UTC revision 377 by iklaric, Tue May 8 12:10:24 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    open(LOG, ">>", "$Dir/LOG")
24    select(LOG);
25    $|=1;
26    
27    
28  sub get_dbh {  sub get_dbh {
29          $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
# Line 376  sub get_tgz_size_by_name($) { Line 380  sub get_tgz_size_by_name($) {
380          my $name = shift;          my $name = shift;
381    
382          my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name;          my $tgz = $Conf{InstallDir}.'/'.$Conf{GzipTempDir}.'/'.$name;
   
383          my $size = -1;          my $size = -1;
384    
385          if (-f "${tgz}.tar.gz") {          if (-f "${tgz}.tar.gz") {
386                    print "stating ${tgz}.tar.gz...";
387                  $size = (stat("${tgz}.tar.gz"))[7];                  $size = (stat("${tgz}.tar.gz"))[7];
388                    print "size: $size\n";
389          } elsif (-d $tgz) {          } elsif (-d $tgz) {
390                    print "$tgz is dir, stating files in it...\n";
391                  opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";                  opendir(my $dir, $tgz) || die "can't opendir $tgz: $!";
392                  my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);                  my @parts = grep { !/^\./ && !/md5/ && -f "$tgz/$_" } readdir($dir);
393                  $size = 0;                  $size = 0;
394                  foreach my $part (@parts) {                  foreach my $part (@parts) {
395                            my $currSize =  (stat("$tgz/$part"))[7];
396                          $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";                          $size += (stat("$tgz/$part"))[7] || die "can't stat $tgz/$part: $!";
397                            print "\t$tgz/$part: $currSize\n";
398                  }                  }
399                    print "\ttotal $size\n";
400    
401                  closedir $dir;                  closedir $dir;
402          } else {          } else {
403                  return -1;                  return -1;
Legend:
Removed from v.353  
changed lines
  Added in v.377
  ViewVC Help
Powered by ViewVC 1.1.26