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'; |
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 |