diff options
| -rw-r--r-- | src/catlfish_compat.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/catlfish_compat.erl b/src/catlfish_compat.erl index adf4a1a..a0ccdc2 100644 --- a/src/catlfish_compat.erl +++ b/src/catlfish_compat.erl @@ -27,6 +27,11 @@ unpack_issuer("18", Issuer) -> #'SubjectPublicKeyInfo'{ algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, subjectPublicKey = Key} = Issuer, + {Alg, Params, Key}; +unpack_issuer("19", Issuer) -> + #'SubjectPublicKeyInfo'{ + algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, + subjectPublicKey = Key} = Issuer, {Alg, Params, Key}. %% @doc Unpack a #'Certificate'.signature, return the signature. @@ -37,6 +42,8 @@ unpack_signature("17", Signature) -> {_, Sig} = Signature, Sig; unpack_signature("18", Signature) -> + Signature; +unpack_signature("19", Signature) -> Signature. %% Use a list for R17 and a binary for newer versions. @@ -45,4 +52,6 @@ poison_val("R16" ++ _, Val) -> poison_val("17", Val) -> Val; poison_val("18", Val) -> + list_to_binary(Val); +poison_val("19", Val) -> list_to_binary(Val). |