summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-12-15 16:29:15 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-12-15 16:29:15 +0000
commita67bc804fa9add29e1278eb83bc8edbd346f1094 (patch)
tree08e6985ea9a9918fdd2e08d339cd829876485fc5 /perl-install/standalone
parent7e6b66430f9f9bb8d97f163ac5f396246c2ac41d (diff)
downloaddrakx-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-xperl-install/standalone/finish-install5
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;