sock options ignored on ssl

cmullaparthi · May 5, 2016 · 216f84c · 216f84c
1 parent 07e47c6
commit 216f84c
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/src/ibrowse_http_client.erl b/src/ibrowse_http_client.erl
@@ -565,7 +565,21 @@ do_connect(Host, Port, Options, #state{is_ssl      = true,
                                        use_proxy   = false,
                                        ssl_options = SSLOptions},
            Timeout) ->
-    ssl:connect(Host, Port, get_sock_options(Host, Options, SSLOptions), Timeout);
+    Socks5Host = get_value(socks5_host, Options, undefined),
+    Sock_options = get_sock_options(Host, Options, []),
+    Conn = case Socks5Host of
+      undefined ->
+        gen_tcp:connect(Host, Port, Sock_options, Timeout);
+      _ ->
+        catch ibrowse_socks5:connect(Host, Port, Options, Sock_options, Timeout)
+    end,
+    case Conn of
+      {ok, Sock} ->
+        ssl:connect(Sock, SSLOptions);
+      _ ->
+        error
+    end;
+
 do_connect(Host, Port, Options, _State, Timeout) ->
     Socks5Host = get_value(socks5_host, Options, undefined),
     Sock_options = get_sock_options(Host, Options, []),