From b5ec77bf908877d7471997527959e3d98d45bd96 Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Tue, 24 Apr 2018 09:34:51 +0200
Subject: Parse cert primarily for host names

---
 lib/ssl/test/ssl_dist_bench_SUITE.erl | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

(limited to 'lib/ssl/test')

diff --git a/lib/ssl/test/ssl_dist_bench_SUITE.erl b/lib/ssl/test/ssl_dist_bench_SUITE.erl
index 8852b6f3c6..31de0936f9 100644
--- a/lib/ssl/test/ssl_dist_bench_SUITE.erl
+++ b/lib/ssl/test/ssl_dist_bench_SUITE.erl
@@ -181,6 +181,7 @@ end_per_testcase(_Func, _Conf) ->
 
 write_node_conf(
   ConfFile, Node, ServerConf, ClientConf, CertOptions, RootCert) ->
+    [_Name,Host] = string:split(atom_to_list(Node), "@"),
     Conf =
         public_key:pkix_test_data(
           #{root => RootCert,
@@ -188,17 +189,23 @@ write_node_conf(
                 [{extensions,
                   [#'Extension'{
                       extnID = ?'id-ce-subjectAltName',
-                      %% extnValue = [{dNSName, atom_to_list(Node)}],
-                      %% extnValue = [{rfc822Name, atom_to_list(Node)}],
-                      extnValue =
-                          [{directoryName,
-                            {rdnSequence,
-                             [[#'AttributeTypeAndValue'{
-                                 type = ?'id-at-commonName',
-                                  value =
-                                      {utf8String,
-                                       atom_to_binary(Node, utf8)}}]]}}],
-                      critical = true}]} | CertOptions]}),
+                      extnValue = [{dNSName, Host}],
+                      critical = true}%,
+                   %% #'Extension'{
+                   %%    extnID = ?'id-ce-subjectAltName',
+                   %%    extnValue =
+                   %%        [{directoryName,
+                   %%          {rdnSequence,
+                   %%           [[#'AttributeTypeAndValue'{
+                   %%                type = ?'id-at-commonName',
+                   %%                value =
+                   %%                    {utf8String,
+                   %%                     unicode:characters_to_binary(
+                   %%                       Name, utf8)
+                   %%                    }
+                   %%               }]]}}],
+                   %%    critical = true}
+                  ]} | CertOptions]}),
     NodeConf =
         [{server, ServerConf ++ Conf}, {client, ClientConf ++ Conf}],
     {ok, Fd} = file:open(ConfFile, [write]),
-- 
cgit v1.2.3