1 |
stephdl |
1.1 |
diff -Nur e-smith-backup-2.6.0.bz9563.old/root/etc/e-smith/events/actions/workstation-backup-dar e-smith-backup-2.6.0.bz9563.new/root/etc/e-smith/events/actions/workstation-backup-dar |
2 |
|
|
--- e-smith-backup-2.6.0.bz9563.old/root/etc/e-smith/events/actions/workstation-backup-dar 2016-08-10 12:39:30.018483338 +0200 |
3 |
|
|
+++ e-smith-backup-2.6.0.bz9563.new/root/etc/e-smith/events/actions/workstation-backup-dar 2016-08-10 17:02:47.795622041 +0200 |
4 |
|
|
@@ -448,7 +448,7 @@ |
5 |
|
|
|
6 |
|
|
# find available backups for the server |
7 |
|
|
my $setbackuplist = sub {if($_ =~ /([\w|-]+)-(\d+)\..*\.dar/){$backupfiles{$2} = $File::Find::dir."/$1-$2";}}; |
8 |
|
|
- find { wanted => \&$setbackuplist, untaint => 1 }, $mntbkdir ; |
9 |
|
|
+ find { wanted => \&$setbackuplist, untaint => 1, follow => 1 }, $mntbkdir ; |
10 |
|
|
my @deletions; |
11 |
|
|
|
12 |
|
|
my $pid = open (DAR_LIST, "-|", "/usr/bin/dar_manager", "-Q", "-B", "$catalog", "-l") or ldie ("Cannot start : $!"); |