e-smith-backup/sme9/e-smith-backup-2.4.0-workstation-selectiveRestore.patch

diff -ruN e-smith-backup-2.2.0.old/root/etc/e-smith/web/functions/backup e-smith-backup-2.2.0/root/etc/e-smith/web/functions/backup
--- e-smith-backup-2.2.0.old/root/etc/e-smith/web/functions/backup      2013-12-11 20:44:17.000000000 -0800
+++ e-smith-backup-2.2.0/root/etc/e-smith/web/functions/backup  2013-12-11 21:27:35.000000000 -0800
@@ -2776,6 +2776,7 @@
        my $regex = qr/\[.*\] */;
        while (<RD>)
        {
+        chomp;
            $_ =~ s/$regex//;
            if ($filterexp) {next unless m/$rgfilter/};
            push @flabels, $_;
@@ -2886,10 +2887,9 @@
        return;
     }
 
-    my $restorefiles = $q->param ('restorefiles');
-    $restorefiles =~ s/\r//;
+    my @restorefiles = $q->param ('restorefiles');
     my $f;
-    foreach $f ($restorefiles)
+    foreach $f (@restorefiles)
     {
         if ($f =~ /^(.*)$/)
        {
1	wellsi	1.1	diff -ruN e-smith-backup-2.2.0.old/root/etc/e-smith/web/functions/backup e-smith-backup-2.2.0/root/etc/e-smith/web/functions/backup
2			--- e-smith-backup-2.2.0.old/root/etc/e-smith/web/functions/backup 2013-12-11 20:44:17.000000000 -0800
3			+++ e-smith-backup-2.2.0/root/etc/e-smith/web/functions/backup 2013-12-11 21:27:35.000000000 -0800
4			@@ -2776,6 +2776,7 @@
5			my $regex = qr/\[.\] /;
6			while (<RD>)
7			{
8			+ chomp;
9			$_ =~ s/$regex//;
10			if ($filterexp) {next unless m/$rgfilter/};
11			push @flabels, $_;
12			@@ -2886,10 +2887,9 @@
13			return;
14			}
15
16			- my $restorefiles = $q->param ('restorefiles');
17			- $restorefiles =~ s/\r//;
18			+ my @restorefiles = $q->param ('restorefiles');
19			my $f;
20			- foreach $f ($restorefiles)
21			+ foreach $f (@restorefiles)
22			{
23			if ($f =~ /^(.*)$/)
24			{