From 7f4b90ee62ff4c05ff9289164eba9cf8df530d51 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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(-) 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