diff options
| author | Raimo Niskanen <[email protected]> | 2018-04-24 09:34:51 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2018-04-24 09:34:51 +0200 |
| commit | b5ec77bf908877d7471997527959e3d98d45bd96 (patch) | |
| tree | b9f626e0ecfcd0b05c7d0975f4e45090753fb3d5 /lib/ssl/test/ssl_dist_bench_SUITE.erl | |
| parent | 4c4d861792d79ac7773548c089b7a93bc2c72a51 (diff) | |
| download | otp-b5ec77bf908877d7471997527959e3d98d45bd96.tar.gz otp-b5ec77bf908877d7471997527959e3d98d45bd96.tar.bz2 otp-b5ec77bf908877d7471997527959e3d98d45bd96.zip | |
Parse cert primarily for host names
Diffstat (limited to 'lib/ssl/test/ssl_dist_bench_SUITE.erl')
| -rw-r--r-- | lib/ssl/test/ssl_dist_bench_SUITE.erl | 29 |
1 files changed, 18 insertions, 11 deletions
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]), |