X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_tarCreate;h=9af293175fd75e3145aa4d60c1c186354b1606c5;hp=bb9f696d93c9d1cac27100300f82430a6355538f;hb=d1bfa4d92bec24954f2e7877f6531644bb84e8f3;hpb=f9796d809e6a7d4ed2c356f0f32f1a3d628d3d1f

diff --git a/bin/BackupPC_tarCreate b/bin/BackupPC_tarCreate
index bb9f696..9af2931 100755
--- a/bin/BackupPC_tarCreate
+++ b/bin/BackupPC_tarCreate
@@ -76,7 +76,7 @@ die("BackupPC::Lib->new failed\n") if ( !(my $bpc = BackupPC::Lib->new) );
 
 my %opts;
 
-if ( !getopts("Llte:h:n:p:r:s:b:w:", \%opts) || @ARGV < 1 ) {
+if ( !getopts("Llte:h:n:p:r:s:b:w:i", \%opts) || @ARGV < 1 ) {
     print STDERR <<EOF;
 usage: $0 [options] files/directories...
   Required options:
@@ -96,6 +96,7 @@ usage: $0 [options] files/directories...
                      \$Conf{ClientCharset} when backup was done)
      -l              just print a file listing; don't generate an archive
      -L              just print a detailed file listing; don't generate an archive
+     -i              create incremental tar dump with just new files
 EOF
     exit(1);
 }
@@ -140,8 +141,17 @@ if ( $opts{s} =~ m{(^|/)\.\.(/|$)} ) {
     exit(1);
 }
 
+# XXX ASA Search extension
+my $view_opts;
+
+my %Conf = $bpc->Conf;
+if ( $Conf{TarCreateIncremental} || $opts{i} ) {
+	warn "# incremental dump";
+	$view_opts = { only_increment => 1 };
+}
+
 our $ShareName = $opts{s};
-our $view = BackupPC::View->new($bpc, $Host, \@Backups);
+our $view = BackupPC::View->new($bpc, $Host, \@Backups, $view_opts);
 
 #
 # This constant and the line of code below that uses it are borrowed