e-smith-base/sme7/e-smith-base-4.18.0-backupcancel.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm   2007-01-29 20:11:25.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-01-29 20:10:52.000000000 -0700
@@ -54,12 +54,15 @@
         );
     return unless $rc == 0;
     INITIATE_BACKUP:
-    ($rc, $choice) = $console->message_page
+    ($rc, $choice) = $console->yesno_page
         (
          title   => gettext("Insert media to use for backup"),
+         left => gettext("Next"),
+         right => gettext("Cancel"),
          text =>
          gettext("Insert memory stick or USB disk, then hit the enter key."),
         );
+    return unless $rc == 0;
     sleep(3);
     my @dirs = map { m:^(/media/usbdisk*):; $1 } glob '/media/usbdisk*';
     unless ($dirs[0])
diff -Nur -x '*.orig' -x '*.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm
--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm  2007-01-26 18:56:31.000000000 -0700
+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm        2007-01-29 20:10:52.000000000 -0700
@@ -26,12 +26,15 @@
         );
     return unless $rc == 0;
     INITIATE_RESTORE:
-    ($rc, $choice) = $console->message_page
+    ($rc, $choice) = $console->yesno_page
         (
          title   => gettext("Insert media containing backup"),
+         left => gettext("Next"),
+         right => gettext("Cancel"),
          text =>
          gettext("Insert memory stick or CDROM containing your backup file, then hit the enter key."),
         );
+    return unless $rc == 0;
     sleep(1);
     my @dirs = glob '/media/*';
     unless ($dirs[0])
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm
2			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-01-29 20:11:25.000000000 -0700
3			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm 2007-01-29 20:10:52.000000000 -0700
4			@@ -54,12 +54,15 @@
5			);
6			return unless $rc == 0;
7			INITIATE_BACKUP:
8			- ($rc, $choice) = $console->message_page
9			+ ($rc, $choice) = $console->yesno_page
10			(
11			title => gettext("Insert media to use for backup"),
12			+ left => gettext("Next"),
13			+ right => gettext("Cancel"),
14			text =>
15			gettext("Insert memory stick or USB disk, then hit the enter key."),
16			);
17			+ return unless $rc == 0;
18			sleep(3);
19			my @dirs = map { m:^(/media/usbdisk):; $1 } glob '/media/usbdisk';
20			unless ($dirs[0])
21			diff -Nur -x '.orig' -x '.rej' e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm
22			--- e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm 2007-01-26 18:56:31.000000000 -0700
23			+++ mezzanine_patched_e-smith-base-4.18.0/root/usr/lib/perl5/site_perl/esmith/console/perform_restore.pm 2007-01-29 20:10:52.000000000 -0700
24			@@ -26,12 +26,15 @@
25			);
26			return unless $rc == 0;
27			INITIATE_RESTORE:
28			- ($rc, $choice) = $console->message_page
29			+ ($rc, $choice) = $console->yesno_page
30			(
31			title => gettext("Insert media containing backup"),
32			+ left => gettext("Next"),
33			+ right => gettext("Cancel"),
34			text =>
35			gettext("Insert memory stick or CDROM containing your backup file, then hit the enter key."),
36			);
37			+ return unless $rc == 0;
38			sleep(1);
39			my @dirs = glob '/media/*';
40			unless ($dirs[0])