From df0269f48c6c9d5e8901e1b2e01f1383c9d7e2d6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 5 Dec 2005 19:27:59 +0000
Subject: https proxy support (#19666)

---
 perl-install/network/network.pm | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 9250a3b85..b3d63247c 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -407,14 +407,19 @@ sub netprofile_read {
 sub miscellaneous_choose {
     my ($in, $u) = @_;
 
+    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)"),
        [ { 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 } },
          { label => N("FTP proxy"),  val => \$u->{ftp_proxy} },
        ],
        complete => sub {
+           $use_http_for_https and $u->{https_proxy} = $u->{http_proxy};
 	   $u->{http_proxy} =~ m,^($|http://), or $in->ask_warn('', N("Proxy should be http://...")), return 1,0;
-	   $u->{ftp_proxy} =~ m,^($|ftp://|http://), or $in->ask_warn('', N("URL should begin with 'ftp:' or 'http:'")), return 1,1;
+	   $u->{https_proxy} =~ m,^($|http://), or $in->ask_warn('', N("Proxy should be https?://...")), return 1,2;
+	   $u->{ftp_proxy} =~ m,^($|ftp://|http://), or $in->ask_warn('', N("URL should begin with 'ftp:' or 'http:'")), return 1,3;
 	   0;
        }
     ) or return;
@@ -424,10 +429,10 @@ sub miscellaneous_choose {
 sub proxy_configure {
     my ($u) = @_;
     my $sh_file = "$::prefix/etc/profile.d/proxy.sh";
-    setExportedVarsInSh($sh_file,  $u, qw(http_proxy ftp_proxy));
+    setExportedVarsInSh($sh_file, $u, qw(http_proxy https_proxy ftp_proxy));
     chmod 0755, $sh_file;
     my $csh_file = "$::prefix/etc/profile.d/proxy.csh";
-    setExportedVarsInCsh($csh_file, $u, qw(http_proxy ftp_proxy));
+    setExportedVarsInCsh($csh_file, $u, qw(http_proxy https_proxy ftp_proxy));
     chmod 0755, $csh_file;
 
     #- KDE proxy settings
@@ -441,10 +446,10 @@ sub proxy_configure {
         update_gnomekderc($kde_config_file,
                           "Proxy Settings",
                           AuthMode => 0,
-                          ProxyType => $u->{http_proxy} || $u->{ftp_proxy} ? 4 : 0,
+                          ProxyType => $u->{http_proxy} || $u->{https_proxy} || $u->{ftp_proxy} ? 4 : 0,
                           ftpProxy => "ftp_proxy",
                           httpProxy => "http_proxy",
-                          httpsProxy => "http_proxy"
+                          httpsProxy => "https_proxy"
                   );
     }
 
@@ -475,13 +480,17 @@ xml:readonly:$defaults_dir
             $gconf_set->("/system/http_proxy/use_authentication", "bool", to_bool($user));
             $user and $gconf_set->("/system/http_proxy/authentication_user", "string", $user);
             $password and $gconf_set->("/system/http_proxy/authentication_password", "string", $password);
+        } else {
+            $gconf_set->("/system/http_proxy/use_http_proxy", "bool", 0);
+        }
 
-            #- https proxy (ssl)
+        #- https proxy
+        if (my ($host, $port) = $u->{https_proxy} =~ m,^https?://(?:[^:\@]+(?::[^:\@]+)?\@)?([^\:]+)(?::(\d+))?$,) {
+            $port ||= 443;
             $gconf_set->("/system/proxy/secure_host", "string", $host);
-            $gconf_set->("/system/proxy/secure_port", "int", $port);
+            $gconf_set->("/system/proxy/secure_port",  "int", $port);
             $use_alternate_proxy = 1;
         } else {
-            $gconf_set->("/system/http_proxy/use_http_proxy", "bool", 0);
             #- clear the ssl host so that it isn't used if the manual proxy is activated for ftp
             $gconf_set->("/system/proxy/secure_host", "string", "");
         }
@@ -489,7 +498,6 @@ xml:readonly:$defaults_dir
         #- ftp proxy
         if (my ($host, $port) = $u->{ftp_proxy} =~ m,^(?:http|ftp)://(?:[^:\@]+(?::[^:\@]+)?\@)?([^\:]+)(?::(\d+))?$,) {
             $port ||= 21;
-            $gconf_set->("/system/proxy/mode", "string", "manual");
             $gconf_set->("/system/proxy/ftp_host", "string", $host);
             $gconf_set->("/system/proxy/ftp_port",  "int", $port);
             $use_alternate_proxy = 1;
-- 
cgit v1.2.1