Merge pull request #1901 from getong/fix_ssl_example

Modernized example

1 files changed, 6 insertions, 6 deletions

diff --git a/lib/ssl/examples/src/client_server.erl b/lib/ssl/examples/src/client_server.erl
index c150f43bff..7a266f544d 100644
--- a/lib/ssl/examples/src/client_server.erl
+++ b/lib/ssl/examples/src/client_server.erl
@@ -39,15 +39,15 @@ start() ->
 
     %% Accept
     {ok, ASock} = ssl:transport_accept(LSock),
-    ok = ssl:ssl_accept(ASock),
+    {ok, SslSocket} = ssl:handshake(ASock),
     io:fwrite("Accept: accepted.~n"),
-    {ok, Cert} = ssl:peercert(ASock),
+    {ok, Cert} = ssl:peercert(SslSocket),
     io:fwrite("Accept: peer cert:~n~p~n", [public_key:pkix_decode_cert(Cert, otp)]),
     io:fwrite("Accept: sending \"hello\".~n"),
-    ssl:send(ASock, "hello"),
-    {error, closed} = ssl:recv(ASock, 0),
+    ssl:send(SslSocket, "hello"),
+    {error, closed} = ssl:recv(SslSocket, 0),
     io:fwrite("Accept: detected closed.~n"),
-    ssl:close(ASock),
+    ssl:close(SslSocket),
     io:fwrite("Listen: closing and terminating.~n"),
     ssl:close(LSock),
 
@@ -75,7 +75,7 @@ mk_opts(Role) ->
     [{active, false}, 
      {verify, 2},
      {depth, 2},
+     {server_name_indication, disable},
      {cacertfile, filename:join([Dir, Role, "cacerts.pem"])}, 
      {certfile, filename:join([Dir, Role, "cert.pem"])}, 
      {keyfile, filename:join([Dir, Role, "key.pem"])}].
-