diff options
| author | Ingela Anderton Andin <[email protected]> | 2017-01-27 10:28:48 +0100 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2017-01-27 10:28:48 +0100 |
| commit | f66f3b49915e2481b8f5a016afee919bd0f9d144 (patch) | |
| tree | 702a5b13c9156f29d5cb3263dc0b51453b034f4d /lib/ssl/src/ssl_certificate.erl | |
| parent | 07960ad67be6be5afbb4e757d453b5982c3ceb66 (diff) | |
| parent | 2735f415510cf260258e092c0f3e4070a00fc06d (diff) | |
| download | otp-f66f3b49915e2481b8f5a016afee919bd0f9d144.tar.gz otp-f66f3b49915e2481b8f5a016afee919bd0f9d144.tar.bz2 otp-f66f3b49915e2481b8f5a016afee919bd0f9d144.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/ssl/src/ssl_certificate.erl')
| -rw-r--r-- | lib/ssl/src/ssl_certificate.erl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/ssl/src/ssl_certificate.erl b/lib/ssl/src/ssl_certificate.erl index f359655d85..8aa2aa4081 100644 --- a/lib/ssl/src/ssl_certificate.erl +++ b/lib/ssl/src/ssl_certificate.erl @@ -125,21 +125,21 @@ file_to_crls(File, DbHandle) -> %% Description: Validates ssl/tls specific extensions %%-------------------------------------------------------------------- validate(_,{extension, #'Extension'{extnID = ?'id-ce-extKeyUsage', - extnValue = KeyUse}}, {Role, _,_, _, _}) -> + extnValue = KeyUse}}, UserState = {Role, _,_, _, _}) -> case is_valid_extkey_usage(KeyUse, Role) of true -> - {valid, Role}; + {valid, UserState}; false -> {fail, {bad_cert, invalid_ext_key_usage}} end; -validate(_, {extension, _}, Role) -> - {unknown, Role}; +validate(_, {extension, _}, UserState) -> + {unknown, UserState}; validate(_, {bad_cert, _} = Reason, _) -> {fail, Reason}; -validate(_, valid, Role) -> - {valid, Role}; -validate(_, valid_peer, Role) -> - {valid, Role}. +validate(_, valid, UserState) -> + {valid, UserState}; +validate(_, valid_peer, UserState) -> + {valid, UserState}. %%-------------------------------------------------------------------- -spec is_valid_key_usage(list(), term()) -> boolean(). |