diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-12-15 16:26:40 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-12-15 16:26:40 +0000 |
commit | a9c3fed566ae90435a2769b0d30c737c793a8d11 (patch) | |
tree | 1dd3ba56b678ffaa892caa2a00e8886f24b80355 /perl-install/any.pm | |
parent | b11d096f6ab9250d6b37c29eaad66a83fc8e03a1 (diff) | |
download | drakx-backup-do-not-use-a9c3fed566ae90435a2769b0d30c737c793a8d11.tar drakx-backup-do-not-use-a9c3fed566ae90435a2769b0d30c737c793a8d11.tar.gz drakx-backup-do-not-use-a9c3fed566ae90435a2769b0d30c737c793a8d11.tar.bz2 drakx-backup-do-not-use-a9c3fed566ae90435a2769b0d30c737c793a8d11.tar.xz drakx-backup-do-not-use-a9c3fed566ae90435a2769b0d30c737c793a8d11.zip |
(acceptLicense) move it from install_steps_interactive.pm into any.pm so that
it is availlable from within finish-install
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r-- | perl-install/any.pm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 476d70f54..34d2dfd34 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -712,6 +712,37 @@ sub autologin { } } +sub acceptLicense { + my ($o) = @_; + + $o->{release_notes} = join("\n\n", map { + my $f = install_any::getFile($_); + $f && cat__($f); + } 'release-notes.txt', 'release-notes.' . arch() . '.txt'); + + return if $o->{useless_thing_accepted}; + + my $r = $::testing ? 'Accept' : 'Refuse'; + + $o->ask_from_({ title => N("License agreement"), + icon => 'banner-license', + cancel => N("Quit"), + messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()), + interactive_help_id => 'acceptLicense', + if_(!$::globetrotter, more_buttons => [ [ N("Release Notes"), sub { $o->ask_warn(N("Release Notes"), $o->{release_notes}) }, 1 ] ]), + callbacks => { ok_disabled => sub { $r eq 'Refuse' } }, + }, + [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ]) + or do { + if ($::globetrotter) { + run_program::run('killall', 'Xorg'); + exec("/sbin/reboot"); + } + install_any::ejectCdrom(); + $o->exit; + }; +} + sub selectLanguage_install { my ($in, $locale) = @_; |