/[BackupPC]/trunk/bin/BackupPC_incPartsUpdate
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/bin/BackupPC_incPartsUpdate

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

revision 216 by dpavlin, Sun Oct 16 17:41:10 2005 UTC revision 218 by dpavlin, Sun Oct 16 17:48:05 2005 UTC
# Line 17  use Archive::Tar::Streamed; Line 17  use Archive::Tar::Streamed;
17  use Algorithm::Diff;  use Algorithm::Diff;
18  use Getopt::Std;  use Getopt::Std;
19    
20    # cludge: minimum .tar.gz size
21    my $MIN_TAR_SIZE = 80;
22    
23  my $path = abs_path($0);  my $path = abs_path($0);
24  $path =~ s#/[^/]+$#/#;  $path =~ s#/[^/]+$#/#;
25  my $tarIncCreate = $path .= 'BackupPC_tarIncCreate';  my $tarIncCreate = $path .= 'BackupPC_tarIncCreate';
# Line 207  while (my $row = $sth->fetchrow_hashref) Line 210  while (my $row = $sth->fetchrow_hashref)
210                  $size = (stat( "$tar_dir/$tar_file" ))[7];                  $size = (stat( "$tar_dir/$tar_file" ))[7];
211          }          }
212    
213          if ($size > 45) {          if ($size > $MIN_TAR_SIZE) {
214    
215                  my $max_size = $Conf{'MaxArchiveSize'} || die "problem with MaxArchieSize parametar";                  my $max_size = $Conf{'MaxArchiveSize'} || die "problem with MaxArchieSize parametar";
216                  $max_size *= 1024;      # convert to bytes                  $max_size *= 1024;      # convert to bytes
Legend:
Removed from v.216  
changed lines
  Added in v.218
  ViewVC Help
Powered by ViewVC 1.1.26