diff options
Diffstat (limited to 'src/compat.erl')
-rw-r--r-- | src/compat.erl | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/compat.erl b/src/compat.erl deleted file mode 100644 index bbb58a1..0000000 --- a/src/compat.erl +++ /dev/null @@ -1,27 +0,0 @@ --module(compat). --export([unpack_issuer/1, unpack_signature/1]). --include_lib("public_key/include/public_key.hrl"). - -unpack_issuer(Issuer) -> - unpack_issuer(erlang:system_info(otp_release), Issuer). -unpack_signature(Signature) -> - unpack_signature(erlang:system_info(otp_release), Signature). - -%% @doc Dig out alg, params and key from issuer. -unpack_issuer("17", Issuer) -> - #'SubjectPublicKeyInfo'{ - algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, - subjectPublicKey = {0, Key}} = Issuer, - {Alg, Params, Key}; -unpack_issuer("18", Issuer) -> - #'SubjectPublicKeyInfo'{ - algorithm = #'AlgorithmIdentifier'{algorithm = Alg, parameters = Params}, - subjectPublicKey = Key} = Issuer, - {Alg, Params, Key}. - -%% @doc Unpack a #'Certificate'.signature, return the signature. -unpack_signature("17", Signature) -> - {_, Sig} = Signature, - Sig; -unpack_signature("18", Signature) -> - Signature. |