Packages

ca

5.10.2
7.6.2 7.4.14 7.1.4 7.1.3 7.1.2 7.1.1 6.1.1 5.11.22 5.11.15 5.11.13 5.11.5 5.11.1 5.10.4 5.10.3 5.10.2 5.10.1 4.8.2 4.7.26 4.7.14 4.7.13 4.7.12 4.7.2 4.7.1 4.6.1 4.6.0 2.7.14 1.11.0 1.10.0 1.2.1 1.2.0 1.1.1 1.1.0 0.10.0 0.9.0 0.8.2 0.8.1 0.8.0 0.1.0

CA CXC 138 21 Certificate Authority

HexDocs

Current section

Files

Jump to
Readme
38 Versions
1 Dependency
Dependants
Files
Activity
ca src ca_up.erl
Raw

src/ca_up.erl 

-module(ca_up).

-include_lib("public_key/include/public_key.hrl").

-export([init/2, reply/4, bind/2, echo/2, service/2, maybe_service/3]).



init(Req,Opts) ->

    Method  = cowboy_req:method(Req),

    HasBody = cowboy_req:has_body(Req),

    Request = maybe_service(Method, HasBody, Req),

    {ok, Request, Opts}.



reply(X,Y,Z,R)  -> cowboy_req:reply(X,Y,Z,R).

bind(X,Y)       -> binary_to_list(cowboy_req:binding(X,Y)).

echo(<<>>, Req) -> reply(400,#{},<<"General CA Sync Error">>,Req);

echo(Echo, Req) -> reply(200,#{<<"content-type">> => <<"text/plain;charset=utf-8">>},Echo,Req).



maybe_service(<<"POST">>, _, R) -> service(bind('crypto',R),R);

maybe_service(<<"GET">>, _, R)  -> service(bind('crypto',R),R);

maybe_service(_, _, R)          -> reply(405, #{}, <<"Unknown.">>, R).



service(Crypto,Req) ->

    {ok,PEM} = file:read_file("cert/"++Crypto++"/caroot.pem"),

    {_,{_,D,_}} = lists:keysearch('Certificate',1,public_key:pem_decode(PEM)),

    OTPCert = public_key:pkix_decode_cert(D,otp),

    PKIInfo = OTPCert#'OTPCertificate'.tbsCertificate#'OTPTBSCertificate'.subjectPublicKeyInfo,

    io:format("CA PUBLIC KEY [~s] ~p~n",[Crypto,PKIInfo]),

    echo(PEM,Req).