From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 26 Jan 2011 16:15:29 +0000 (+0000)
Subject: added option -i to create incremental dumps
X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=commitdiff_plain;h=75ad623d0fe56e57a3a49bbf0790d8ae129dfa01;hp=6fa75ef8b610d0781b9a967d6a3557378f3a4003

added option -i to create incremental dumps
---

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