EST server /ca /cacerts /csrattrs HTTP endpoints

synrc · Oct 28, 2024 · 2874790 · 2874790
1 parent 2657364
commit 2874790
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 24 deletions.
diff --git a/lib/services/est.ex b/lib/services/est.ex
@@ -23,6 +23,7 @@ defmodule CA.EST do
   get  "/.well-known/est/ca"             do CA.EST.Get.get(conn,   [], "Authority", [], "CA") end
   get  "/.well-known/est/cacerts"        do CA.EST.Get.get(conn,   [], "Authority", [], "CMS") end
   get  "/.well-known/est/csrattrs"       do CA.EST.Get.get(conn,   [], "Authority", [], "ABAC") end
+
   post "/.well-known/est/simpleenroll"   do CA.EST.Post.post(conn, [], "Authority", [], "ENROLL") end
   post "/.well-known/est/simplereenroll" do CA.EST.Post.post(conn, [], "Authority", [], "RE-ENROLL") end
   post "/.well-known/est/serverkeygen"   do CA.EST.Post.post(conn, [], "Authority", [], "KEYGEN") end

diff --git a/lib/services/http/delete.ex b/lib/services/http/delete.ex
diff --git a/lib/services/http/get.ex b/lib/services/http/get.ex
@@ -5,7 +5,7 @@ defmodule CA.EST.Get do
       body = :base64.encode(CA.CSR.read_ca_public())
       conn |> put_resp_content_type("application/pkix-cert")
            |> put_resp_header("Content-Transfer-Encoding", "base64")
-           |> put_resp_header("Content-Length", :erlang.integer_to_binary(:erlang.size(body)))
+           |> put_resp_header("Content-Length", Integer.to_string(byte_size(body)))
            |> resp(200, body)
            |> send_resp()
   end
@@ -21,7 +21,7 @@ defmodule CA.EST.Get do
       body = :base64.encode cms
       conn |> put_resp_content_type("application/pkcs7-mime")
            |> put_resp_header("Content-Transfer-Encoding", "base64")
-           |> put_resp_header("Content-Length", :erlang.integer_to_binary(:erlang.size(body)))
+           |> put_resp_header("Content-Length", Integer.to_string(byte_size(body)))
            |> resp(200, body)
            |> send_resp()
   end
@@ -30,7 +30,7 @@ defmodule CA.EST.Get do
       body = :base64.encode(CA.EST.csrattributes())
       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(body)))
+           |> put_resp_header("Content-Length", Integer.to_string(byte_size(body)))
            |> resp(200, body)
            |> send_resp()
   end

diff --git a/lib/services/http/patch.ex b/lib/services/http/patch.ex
diff --git a/lib/services/http/put.ex b/lib/services/http/put.ex