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

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

(limited to 'perl-install')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index e3374ac7f..00a9f893f 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -22,6 +22,10 @@ network::network::read_net_conf($net);
 $::isWizard = 1;
 my $in = 'interactive'->vnew;
 
+sub ask_license() {
+    any::acceptLicense($in);
+}
+
 sub ask_language() {
     require lang;
     $locale = lang::read();
@@ -87,6 +91,7 @@ sub call {
     }
 }
 
+call('license');
 call('language');
 call('keyboard');
 call('network');
-- 
cgit v1.2.1