diff --git a/lib/services/est.ex b/lib/services/est.ex index f49c760..4fa35ed 100644 --- a/lib/services/est.ex +++ b/lib/services/est.ex @@ -20,7 +20,17 @@ defmodule CA.EST do # See Page 36 of RFC 7030 - # > :"EST".decode(:CsrAttrs, y) + def csrattributes() do + {:ok, bin} = :"EST".encode(:CsrAttrs, [ + oid: {1, 2, 840, 113549, 1, 9, 7}, + attribute: {:Attribute, {1, 2, 840, 10045, 2, 1}, [{1, 3, 132, 0, 34}]}, + attribute: {:Attribute, {1, 2, 840, 113549, 1, 9, 14}, [{1, 3, 6, 1, 1, 1, 1, 22}]}, + oid: {1, 2, 840, 10045, 4, 3, 3} + ]) + bin + end + + # > :EST.decode :CsrAttrs, CA.EST.csrattributes # {:ok, # [ # oid: {1, 2, 840, 113549, 1, 9, 7}, @@ -28,8 +38,6 @@ defmodule CA.EST do # attribute: {:Attribute, {1, 2, 840, 113549, 1, 9, 14}, [{1, 3, 6, 1, 1, 1, 1, 22}]}, # oid: {1, 2, 840, 10045, 4, 3, 3} # ]} - # > x - # "MEEGCSqGSIb3DQEJBzASBgcqhkjOPQIBMQcGBSuBBAAiMBYGCSqGSIb3DQEJDjEJBgcrBgEBAQEWBggqhkjOPQQDAw==" match _ do send_resp(conn, 404, "Please refer to https://authority.erp.uno for more information.\n") end def encode(x) do diff --git a/lib/services/http/get.ex b/lib/services/http/get.ex index c068daa..f925e33 100644 --- a/lib/services/http/get.ex +++ b/lib/services/http/get.ex @@ -1,7 +1,17 @@ defmodule CA.EST.Get do import Plug.Conn - def get(conn,_,type,id,spec) do -# :io.format 'GET/4:#{type}/#{id}/#{spec}', [] + def get(conn, [], "Authority" = type, [] = id, "ABAC" = spec) do + :io.format 'CSRATTRS: GET/4:#{type}/#{id}/#{spec}', [] + bin = CA.EST.csrattributes() + base64 = :base64.encode bin <> "\r\n\r\n" + conn |> put_resp_content_type("application/csrattrs") + |> put_resp_header("Content-Transfer-Encoding", "base64") + |> put_resp_header("Content-Length", :erlang.integer_to_binary(:erlang.size(base64))) + |> resp(200, base64) + |> send_resp() + end + def get(conn, _, type, id, spec) do + :io.format 'GET/4:#{type}/#{id}/#{spec}', [] send_resp(conn, 200, CA.EST.encode([%{"type" => type, "id" => id, "spec" => spec}])) end end \ No newline at end of file