diff options
Diffstat (limited to 'lib/AdminPanel/Module/Proxy.pm')
| -rw-r--r-- | lib/AdminPanel/Module/Proxy.pm | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lib/AdminPanel/Module/Proxy.pm b/lib/AdminPanel/Module/Proxy.pm index 4e6b96e..98d3105 100644 --- a/lib/AdminPanel/Module/Proxy.pm +++ b/lib/AdminPanel/Module/Proxy.pm @@ -158,7 +158,6 @@ sub validate { sub _manageProxyDialog { my $self = shift; - my $httpsProxyEqualToHttpProxy = 0; ## TODO fix for adminpanel my $appTitle = yui::YUI::app()->applicationTitle(); my $appIcon = yui::YUI::app()->applicationIcon(); @@ -173,18 +172,19 @@ sub _manageProxyDialog { my $inputfield_width = 45; # getVarsFromSh returns an empty hash if no vars are defined 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 "")); # # @layout # - # +--------------------------------+ - # | HEADER | - # |--------------------------------+ - # | CONTENT | - # |--------------------------------+ - # | OTHER OPTIONS | - # | | - # +--------------------------------+ + # +------------------------------+ + # | +------------+-------------+ | + # | |LABELS | VALUES | | + # | | | | | + # | | | | | + # | | | | | + # | +------------+-------------+ | + # +------------------------------+ $self->dialog($factory->createMainDialog()); my $layout = $factory->createVBox($self->dialog); @@ -214,7 +214,8 @@ sub _manageProxyDialog { $http_proxy->setWeight($yui::YD_HORIZ, 30); # flag to setup the https proxy with the same value of the http proxy - $factory->createCheckBox($vbox_labels_flags, "Use HTTP proxy for HTTPS connections",$httpsProxyEqualToHttpProxy); + my $ckbHttpEqHttps = $factory->createCheckBox($vbox_labels_flags, "Use HTTP proxy for HTTPS connections",$httpsProxyEqualToHttpProxy); + $ckbHttpEqHttps->setNotify(1); # add a spacing as we have $factory->createLabel($factory->createHBox($vbox_inputfields)," "); @@ -288,6 +289,8 @@ sub _manageProxyDialog { } # validation failed next; + }elsif ($widget == $ckbHttpEqHttps){ + $https_proxy->setEnabled(!$ckbHttpEqHttps->isChecked()); } } } |