use Data::Dumper;
use Encode qw/from_to/;
+use Data::Dump qw(dump);
+
sub new
{
my($class, $bpc, $host, $backups, $options) = @_;
$m->{share} = $share;
$m->{dir} = $dir;
+ my $previous_increment_entry;
+ my $increment_backupNum = $backupNum; # used in loop
+ my @visit_backup_ids;
+ my $i;
+ for ( $i = $m->{idx} ; $i >= 0 ; $i-- ) {
+
+ # we need two incremental backups to detect changes
+ next if $m->{backups}[$i]{level} >= $level && $#visit_backup_ids > 0;
+
+ push @visit_backup_ids, $i;
+
+ # for first full backup we need another full to detect changes
+ last if $m->{backups}[$i]{level} == 0 && $#visit_backup_ids > 0;
+ }
+ #warn "# visit_backup_ids = ",dump @visit_backup_ids;
+
#
# merge backups, starting at the requested one, and working
# backwards until we get to level 0.
#
$m->{mergeNums} = [];
- for ( $i = $m->{idx} ; $level > 0 && $i >= 0 ; $i-- ) {
+# for ( $i = $m->{idx} ; $level > 0 && $i >= 0 ; $i-- ) {
+ for my $i ( @visit_backup_ids ) {
#print(STDERR "Do $i ($m->{backups}[$i]{noFill},$m->{backups}[$i]{level})\n");
#
# skip backups with the same or higher level
#
- next if ( $m->{backups}[$i]{level} >= $level );
+ #next if ( $m->{backups}[$i]{level} >= $level ); # ASA - visit_backup_ids
$level = $m->{backups}[$i]{level};
$backupNum = $m->{backups}[$i]{num};
#print(STDERR "Opening $path (share=$share, mangle=$mangle)\n");
my $dirOpts = { %{$m->{dirOpts} || {} } };
+ $dirOpts->{inode} = 1 if $m->{dirOpts}->{only_increment}; # ASA - detect unchanged
+#warn "# dirOpts = ",dump $dirOpts;
my $attribOpts = { compress => $compress };
if ( $legacyCharset ) {
$dirOpts->{charsetLegacy}
#
# skip special files
#
- next if ( defined($m->{files}{$fileUM})
+ next if ( 0 # defined($m->{files}{$fileUM}) # ASA - need fallthrough
|| $file eq ".."
|| $file eq "."
|| $file eq "backupInfo"
|| $mangle && $file eq "attrib" );
+
+ # ASA - we only skip files when invoked with share name
+ if ( $m->{dirOpts}->{only_increment} && $share ) {
+ if ( defined $previous_increment_entry->{$fileUM}
+ && $previous_increment_entry->{$fileUM}->{inode} == $entry->{inode} ) {
+ #warn "# -- $backupNum $fileUM\n";
+ $previous_increment_entry->{$fileUM}->{_hide}++;
+ next;
+ } elsif ( $backupNum < $increment_backupNum ) {
+ #warn "# << $backupNum $fileUM\n";
+ $previous_increment_entry->{$fileUM}->{_hide}++;
+ next;
+ } else {
+ #warn "# ++ $backupNum $fileUM ",dump $entry;
+ $previous_increment_entry->{$fileUM} = $entry;
+ }
+ } else {
+ next if defined($m->{files}{$fileUM});
+ }
+
if ( defined($attr) && defined(my $a = $attr->get($fileUM)) ) {
$m->{files}{$fileUM} = $a;
#
$m->{files}{$fileUM}{inode} = $entry->{inode}
if ( $m->{dirOpts}{inode} );
}
+
#
# Also include deleted files
#
$m->{files}{$fileUM}{inode} = 0;
}
}
-
- last if $m->{dirOpts}->{only_increment}; # XXX ASA Search extension
}
+
+ # ASA create increment
+ if ( $m->{dirOpts}->{only_increment} ) {
+ #warn "# previous_increment_entry = ",dump $previous_increment_entry;
+ foreach my $file ( grep { exists $previous_increment_entry->{$_}->{_hide} } keys %$previous_increment_entry ) {
+ delete $m->{files}{$file};
+ #warn "OLD $file\n";
+ }
+ }
+
#
# Prune deleted files
#