← Back to branch summary

~ubuntu-branches/ubuntu/wily/backuppc/wily

« back to all changes in this revision

Viewing changes to lib/BackupPC/Xfer/Rsync.pm

  • Committer: Dave Walker (Daviey)
  • Author(s): Allison Randal
  • Date: 2011-09-19 12:04:17 UTC
  • mfrom: (33.1.1 bug-852484)
  • Revision ID: davewalker@ubuntu.com-20110919120417-2z1it0nm3rxgdowd
Tags: 3.2.1-1ubuntu1
http://bugs.debian.org/641450
http://bugs.debian.org/630777
https://launchpad.net/bugs/852484
* Merge from debian unstable. (LP: #852484) Remaining changes:
  - debian/backup.init, debian/rules, debian/postinst: Do not call init
    script on shutdown and reboot (TearDown) (Debian #488660)
  - debian/control: Add dependency for libsocket6-perl.
  - debian/control: Drop build dependency to 'par2', it's in universe.
  - configure.pl: Do not test for par2 being available at build time
  - debian/control: depend on default-mta | mail-transport-agent, instead of
    enumerating a long list of alternative MTAs.
  - debian/rules: installing setuid wrapper with setuid bit set, and no
    permissions granted to other (mode 4750)
* New upstream release. Closes: #641450
* urgency set to high because of a security fix
* Non-maintainer upload.
* Use inetutils-ping as an alternative to iputils-ping. Closes: #630777

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/BackupPC/Xfer/Rsync.pm
29
29
#
30
30
#========================================================================
31
31
#
32
 
# Version 3.2.0, released 31 Jul 2010.
 
32
# Version 3.2.1, released 24 Apr 2011.
33
33
#
34
34
# See http://backuppc.sourceforge.net.
35
35
#
126
126
 
127
127
        if ( defined($conf->{BackupFilesOnly}{$t->{shareName}}) ) {
128
128
            my(@inc, @exc, %incDone, %excDone);
129
 
            foreach my $file ( @{$conf->{BackupFilesOnly}{$t->{shareName}}} ) {
 
129
            foreach my $file2 ( @{$conf->{BackupFilesOnly}{$t->{shareName}}} ) {
130
130
                #
131
131
                # If the user wants to just include /home/craig, then
132
132
                # we need to do create include/exclude pairs at
144
144
                # To make this easier we do all the includes first and all
145
145
                # of the excludes at the end (hopefully they commute).
146
146
                #
 
147
                my $file = $file2;
147
148
                $file =~ s{/$}{};
148
149
                $file = "/$file";
149
150
                $file =~ s{//+}{/}g;
185
186
            }
186
187
        }
187
188
        if ( defined($conf->{BackupFilesExclude}{$t->{shareName}}) ) {
188
 
            foreach my $file ( @{$conf->{BackupFilesExclude}{$t->{shareName}}} )
189
 
            {
 
189
            foreach my $file2 ( @{$conf->{BackupFilesExclude}{$t->{shareName}}} ) {
190
190
                #
191
191
                # just append additional exclude lists onto the end
192
192
                #
 
193
                my $file = $file2;
193
194
                $file = encode($conf->{ClientCharset}, $file)
194
195
                            if ( $conf->{ClientCharset} ne "" );
195
196
                push(@fileList, "--exclude=$file");