diff options
Diffstat (limited to 'lib/AdminPanel/Module/Proxy.pm')
| -rw-r--r-- | lib/AdminPanel/Module/Proxy.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/AdminPanel/Module/Proxy.pm b/lib/AdminPanel/Module/Proxy.pm index c8011065..afe77361 100644 --- a/lib/AdminPanel/Module/Proxy.pm +++ b/lib/AdminPanel/Module/Proxy.pm @@ -186,8 +186,15 @@ sub _manageProxyDialog { my $label_width = 25; my $inputfield_width = 45; # getVarsFromSh returns an empty hash if no vars are defined + # possible alternatives: + # . Config::Auto::parse my $proxy_curr_settings = { getVarsFromSh('/etc/profile.d/proxy.sh') }; - my $httpsProxyEqualToHttpProxy = 1 if(($proxy_curr_settings->{http_proxy} eq $proxy_curr_settings->{https_proxy})&&($proxy_curr_settings->{http_proxy} ne "")); + my $httpsProxyEqualToHttpProxy = 0; + if((defined($proxy_curr_settings->{http_proxy}) && defined($proxy_curr_settings->{https_proxy}))&& + (($proxy_curr_settings->{http_proxy} eq $proxy_curr_settings->{https_proxy}) && + ($proxy_curr_settings->{http_proxy} ne ""))){ + $httpsProxyEqualToHttpProxy = 1; + } # # @layout |