3 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 4102804fe..efe2f8a7f 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,6 @@
 - 2008.1 logo (the good one)
+- enable to restore the system through rsnapshot if giving "restore"
+  on cmdline
 - fix broken help because of s/pt_BR/pt_br/ change in file names (#36774)
 
 Version 10.26 - 2 April 2008
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index ab09f0874..dc59f62f5 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -372,6 +372,7 @@ sub main {
 	    updatemodules => sub { $o->{updatemodules} = 1 },
 	    suppl => sub { $o->{supplmedia} = 1 },
 	    askmedia => sub { $o->{askmedia} = 1 },
+	    restore => sub { $::isRestore = 1 },
 	}}{lc $n}; &$f if $f;
     } %cmdline;
 
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 84984e32c..9b167551a 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -109,6 +109,11 @@ sub selectKeyboard {
     }
     keyboard::group_toggle_choose($o, $o->{keyboard}) or goto &selectKeyboard;
     install::steps::selectKeyboard($o);
+    if ($::isRestore) {
+        require MDV::Snapshot::Restore;
+        MDV::Snapshot::Restore::main($o);
+        $o->exit;
+    }
 }
 
 #------------------------------------------------------------------------------