e-smith-backup/sme9/e-smith-backup-2.4.0-disableConsoleRestore.patch

diff -ruN e-smith-backup-2.4.0.p31/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm
--- e-smith-backup-2.4.0.p31/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm 2014-03-22 16:13:12.000000000 -0700
+++ e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm     2014-03-22 16:20:10.000000000 -0700
@@ -34,6 +34,11 @@
     {
         return if ($db->get_value('PasswordSet') eq 'yes'); # too late
     }
+    else
+    {
+        # For SME 9 disable the restore from console
+        return unless ($db->get_value('AllowConsoleRestore') eq 'enabled');
+    }
     return if ($db->get_prop('bootstrap-console', 'Restore') eq 'disabled');
     my ($rc, $choice) = $console->yesno_page
         (
1	diff -ruN e-smith-backup-2.4.0.p31/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm
2	--- e-smith-backup-2.4.0.p31/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm 2014-03-22 16:13:12.000000000 -0700
3	+++ e-smith-backup-2.4.0/root/usr/share/perl5/vendor_perl/esmith/console/perform_restore.pm 2014-03-22 16:20:10.000000000 -0700
4	@@ -34,6 +34,11 @@
5	{
6	return if ($db->get_value('PasswordSet') eq 'yes'); # too late
7	}
8	+ else
9	+ {
10	+ # For SME 9 disable the restore from console
11	+ return unless ($db->get_value('AllowConsoleRestore') eq 'enabled');
12	+ }
13	return if ($db->get_prop('bootstrap-console', 'Restore') eq 'disabled');
14	my ($rc, $choice) = $console->yesno_page
15	(