e-smith-backup/sme10/e-smith-backup-2.6.0.Do_Tar_Exclusion_In_the_console.patch

diff -Nur e-smith-backup-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm e-smith-backup-2.6.0.new/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm
--- e-smith-backup-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm  2016-02-05 00:08:22.000000000 +0100
+++ e-smith-backup-2.6.0.new/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm  2016-07-26 11:05:45.178100028 +0200
@@ -42,6 +42,7 @@
     return sub {
         my $fh = shift;
         my @backup_list = esmith::Backup->restore_list;
+        my @backup_excludes = esmith::Backup->excludes;
 
         unless (open(DU, "-|"))
         {
@@ -100,8 +101,12 @@
             close GZIP;
             close $fh;
             chdir "/";
-            exec qw(tar cf -), grep { -e $_ } @backup_list;
-        }
+            #Create the archive
+            my @directories = grep { -e $_ } @backup_list;
+            my @exclude = map ("--exclude=$_",@backup_excludes);
+            exec ("/bin/tar cf - @directories @exclude");
+       }
+
         waitpid($tar, 0);
         warn "status from tar was $?\n" if $?;
         unless (close PV)
@@ -127,6 +132,7 @@
 {
     my ($self, $console, $db) = @_;
     my @backup_list = esmith::Backup->restore_list;
+    my @backup_excludes = esmith::Backup->excludes;
 
     $ENV{PATH} = "/bin:/usr/bin";
     $ENV{HOME} = "/root";
@@ -140,6 +146,19 @@
          gettext("Do you wish to create backup on removable media?"),
         );
     return unless $rc == 0;
+
+    if  (@backup_excludes) {
+        my $backupexclude = join ("\n/", sort @backup_excludes);
+        ($rc, $choice) = $console->yesno_page
+        (
+         title   => gettext("Some parts are excluded of your backup"),
+         left => gettext("Next"),
+         right => gettext("Cancel"),
+         text => '/' . $backupexclude,
+        );
+        return unless $rc == 0;
+    }
+
     INITIATE_BACKUP:
     ($rc, $choice) = $console->yesno_page
         (
1	diff -Nur e-smith-backup-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm e-smith-backup-2.6.0.new/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm
2	--- e-smith-backup-2.6.0.old/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm 2016-02-05 00:08:22.000000000 +0100
3	+++ e-smith-backup-2.6.0.new/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm 2016-07-26 11:05:45.178100028 +0200
4	@@ -42,6 +42,7 @@
5	return sub {
6	my $fh = shift;
7	my @backup_list = esmith::Backup->restore_list;
8	+ my @backup_excludes = esmith::Backup->excludes;
9
10	unless (open(DU, "-\|"))
11	{
12	@@ -100,8 +101,12 @@
13	close GZIP;
14	close $fh;
15	chdir "/";
16	- exec qw(tar cf -), grep { -e $_ } @backup_list;
17	- }
18	+ #Create the archive
19	+ my @directories = grep { -e $_ } @backup_list;
20	+ my @exclude = map ("--exclude=$_",@backup_excludes);
21	+ exec ("/bin/tar cf - @directories @exclude");
22	+ }
23	+
24	waitpid($tar, 0);
25	warn "status from tar was $?\n" if $?;
26	unless (close PV)
27	@@ -127,6 +132,7 @@
28	{
29	my ($self, $console, $db) = @_;
30	my @backup_list = esmith::Backup->restore_list;
31	+ my @backup_excludes = esmith::Backup->excludes;
32
33	$ENV{PATH} = "/bin:/usr/bin";
34	$ENV{HOME} = "/root";
35	@@ -140,6 +146,19 @@
36	gettext("Do you wish to create backup on removable media?"),
37	);
38	return unless $rc == 0;
39	+
40	+ if (@backup_excludes) {
41	+ my $backupexclude = join ("\n/", sort @backup_excludes);
42	+ ($rc, $choice) = $console->yesno_page
43	+ (
44	+ title => gettext("Some parts are excluded of your backup"),
45	+ left => gettext("Next"),
46	+ right => gettext("Cancel"),
47	+ text => '/' . $backupexclude,
48	+ );
49	+ return unless $rc == 0;
50	+ }
51	+
52	INITIATE_BACKUP:
53	($rc, $choice) = $console->yesno_page
54	(