diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-04-03 06:40:59 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-04-03 06:40:59 +0000 |
commit | 17e5420e2253dd4f00bd46919babcaafc004f524 (patch) | |
tree | acd6d547e9ff20c15ae2f6238615eb5b6077a76e /perl-install/install | |
parent | 4af15017a550c2b365b1194430c98295030e9ca6 (diff) | |
download | drakx-backup-do-not-use-17e5420e2253dd4f00bd46919babcaafc004f524.tar drakx-backup-do-not-use-17e5420e2253dd4f00bd46919babcaafc004f524.tar.gz drakx-backup-do-not-use-17e5420e2253dd4f00bd46919babcaafc004f524.tar.bz2 drakx-backup-do-not-use-17e5420e2253dd4f00bd46919babcaafc004f524.tar.xz drakx-backup-do-not-use-17e5420e2253dd4f00bd46919babcaafc004f524.zip |
enable to restore the system through rsnapshot if giving "restore" on cmdline
Diffstat (limited to 'perl-install/install')
-rw-r--r-- | perl-install/install/NEWS | 2 | ||||
-rw-r--r-- | perl-install/install/install2.pm | 1 | ||||
-rw-r--r-- | perl-install/install/steps_interactive.pm | 5 |
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; + } } #------------------------------------------------------------------------------ |