this allows bin/BackupPC_updatedb to interate over just
new files for increment
#!/usr/bin/perl
use strict;
-#use lib "/data/backuppc/lib";
-use lib "/usr/share/backuppc/lib";
+use lib "/usr/local/BackupPC/lib";
use DBI;
use BackupPC::Lib;
);
print $share_header unless ($opt{q});
- my $files = BackupPC::View->new($bpc, $hostname, \@backups, 1);
+ my $files = BackupPC::View->new($bpc, $hostname, \@backups, { only_first => 1 });
+
foreach my $share ($files->shareList($backupNum)) {
my $t = time();
#
next if ( $m->{backups}[$i]{level} >= $level );
+ last if exists $m->{dirOpts}->{only_first} && $i != $m->{idx};
+ # used by bin/BackupPC_updatedb to extract just first increment
+
$level = $m->{backups}[$i]{level};
$backupNum = $m->{backups}[$i]{num};
push(@{$m->{mergeNums}}, $backupNum);