From 9b77010c4ff36db450f0218a6198ec5fe7dc2179 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 15 Dec 2005 16:25:42 +0000
Subject: (acceptLicense) move it from install_steps_interactive.pm into any.pm
 so that it is availlable from within finish-install

---
 perl-install/any.pm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2ed01df13..596c16516 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) = @_;
-- 
cgit v1.2.1