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

diff --git a/bin/BackupPC_tarCreate b/bin/BackupPC_tarCreate
index bb9f696..feec8b6 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);
 }
@@ -141,7 +142,7 @@ if ( $opts{s} =~ m{(^|/)\.\.(/|$)} ) {
 }
 
 our $ShareName = $opts{s};
-our $view = BackupPC::View->new($bpc, $Host, \@Backups);
+our $view = BackupPC::View->new($bpc, $Host, \@Backups, $opts{i} ? { only_first => 1 } : {});
 
 #
 # This constant and the line of code below that uses it are borrowed