From a67bc804fa9add29e1278eb83bc8edbd346f1094 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 15 Dec 2005 16:29:15 +0000
Subject: ask for license agreement before doing anything else

---
 perl-install/standalone/finish-install | 5 +++++
 1 file changed, 5 insertions(+)

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;
-- 
cgit v1.2.1