From eaa1efda85f50259529c6038cc808df2e636da63 Mon Sep 17 00:00:00 2001 From: Eugeni Dodonov Date: Mon, 17 Aug 2009 14:35:32 +0000 Subject: Showing netprofile info in proxies configuration when required. --- lib/network/network.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/network/network.pm') diff --git a/lib/network/network.pm b/lib/network/network.pm index 8161cbe..6dc90ed 100644 --- a/lib/network/network.pm +++ b/lib/network/network.pm @@ -532,9 +532,12 @@ sub advanced_choose { sub miscellaneous_choose { my ($in, $u) = @_; + my $net = {}; + netprofile_read($net); + my $use_http_for_https = $u->{https_proxy} eq $u->{http_proxy}; $in->ask_from(N("Proxies configuration"), - N("Here you can set up your proxies configuration (eg: http://my_caching_server:8080)"), + N("Here you can set up your proxies configuration (eg: http://my_caching_server:8080)") . if_($net->{PROFILE} && netprofile_count() > 0, "\n".N("Those settings will be saved for the network profile %s", $net->{PROFILE})), [ { label => N("HTTP proxy"), val => \$u->{http_proxy} }, { text => N("Use HTTP proxy for HTTPS connections"), val => \$use_http_for_https, type => "bool" }, { label => N("HTTPS proxy"), val => \$u->{https_proxy}, disabled => sub { $use_http_for_https } }, -- cgit v1.2.1