gistfile1.txt

%% give pem_file_to_cert ca_cert.pem, we'll print out all the foo

pem_file_to_cert(Filename) ->
    {ok, CertPemBin} = file:read_file(Filename),
    io:format("~p Pem = ~p\n", [Filename, CertPemBin]),

    pem_str_to_cert(CertPemBin).

pem_str_to_cert(CertPem) ->
    {ok, [{cert, CertDer, not_encrypted}]} = public_key:pem_to_der(CertPem),
    io:format("Der is ~p\n", [CertDer]),

    {ok, Cert} = public_key:pkix_decode_cert(CertDer, plain),
    io:format("Cert = ~p\n", [Cert]),
    
    Cert.