diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-12-15 16:29:15 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-12-15 16:29:15 +0000 |
commit | a67bc804fa9add29e1278eb83bc8edbd346f1094 (patch) | |
tree | 08e6985ea9a9918fdd2e08d339cd829876485fc5 /perl-install/standalone | |
parent | 7e6b66430f9f9bb8d97f163ac5f396246c2ac41d (diff) | |
download | drakx-backup-do-not-use-a67bc804fa9add29e1278eb83bc8edbd346f1094.tar drakx-backup-do-not-use-a67bc804fa9add29e1278eb83bc8edbd346f1094.tar.gz drakx-backup-do-not-use-a67bc804fa9add29e1278eb83bc8edbd346f1094.tar.bz2 drakx-backup-do-not-use-a67bc804fa9add29e1278eb83bc8edbd346f1094.tar.xz drakx-backup-do-not-use-a67bc804fa9add29e1278eb83bc8edbd346f1094.zip |
ask for license agreement before doing anything else
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/finish-install | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index e938416b7..d319782d7 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -19,6 +19,10 @@ network::network::read_net_conf($net); $::isWizard = 1; my $in = 'interactive'->vnew; +sub ask_license() { + any::acceptLicense($in); +} + sub ask_language() { require lang; my $locale = lang::read(); @@ -65,6 +69,7 @@ sub call { log::l("$f_name failed: $@") if $@; } +call('ask_license'); call('ask_language'); call('ask_network'); $::WizardWindow->destroy; undef $::WizardWindow; |