From 7f4b90ee62ff4c05ff9289164eba9cf8df530d51 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 14 Jan 2004 16:09:07 +0000
Subject: split out proxy configuration out of network interfaces configuration

---
 perl-install/install_steps_interactive.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 356d2e1c1..986376528 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1018,6 +1018,18 @@ sub summary {
 	},
     };
 
+    $::o->{miscellaneous} ||= {};
+    push @l, {
+	group => N("Network & Internet"),
+	label => N("Proxies"),
+	val => sub { $::o->{miscellaneous}{http_proxy} || $::o->{miscellaneous}{ftp_proxy} ? N("configured") : N("not configured") },
+	clicked => sub { 
+	    require network::network;
+         network::network::miscellaneous_choose($o, $::o->{miscellaneous});
+         network::network::proxy_configure($::o->{miscellaneous}) if $::testing;
+	},
+    };
+
     push @l, {
 	group => N("Security"),
 	label => N("Security Level"),
@@ -1071,7 +1083,7 @@ sub summary {
     };
 
     my $check_complete = sub {
-	$o->{raw_X} || !pkgs::packageByName($o->{packages}, 'XFree86')->flag_installed ||
+	$o->{raw_X} || !$::testing && !pkgs::packageByName($o->{packages}, 'XFree86')->flag_installed ||
 	$o->ask_yesorno('', N("You have not configured X. Are you sure you really want this?"));
     };
 
-- 
cgit v1.2.1