mike
/
chronoscope
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Parse gemini response

This commit is contained in:
Mike Cifelli 2024-05-05 09:34:40 -04:00
parent 6e9af773a8
commit 56fb4fe38c
Signed by: mike
GPG Key ID: 6B08C6BE47D08E4C
4 changed files with 33 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/chronoscope/gemini/connection_client.ex
View File

@ -64,7 +64,13 @@ defmodule Chronoscope.Gemini.ConnectionClient do
defp parse_response(response, peercert) do
response
|> Response.parse()
|> Map.put(:cert_expiration, Certificate.expiration_date(peercert))
|> then(&{:ok, &1})
case Response.parse(response) do
{:ok, result} ->
{:ok, Map.put(result, :cert_expiration, Certificate.expiration_date(peercert))}
{:error, error} ->
{:error, error}
end
end
end

24
lib/chronoscope/gemini/response.ex
View File

@ -1,6 +1,26 @@
defmodule Chronoscope.Gemini.Response do
@response_pattern ~r/^(?<status>[0-9]{2}) (?<mime_type>.+)\r\n(?<body>(?s:.)*)/
def parse(response) do
# TODO
%{status: 20, mime_type: "text/gemini", body: to_string(response)}
response
|> to_string()
|> parse_response()
end
defp parse_response(response) do
case Regex.named_captures(@response_pattern, response) do
nil ->
{:error, "bad response: #{response}"}
match ->
match
|> Map.update!("status", &String.to_integer/1)
|> to_atom_keys()
|> then(&{:ok, &1})
end
end
defp to_atom_keys(response) do
Map.new(response, fn {k, v} -> {String.to_atom(k), v} end)
end
end

2
lib/chronoscope_web/controllers/api/v1/gemini/connection_controller.ex
View File

@ -61,7 +61,7 @@ defmodule ChronoscopeWeb.API.V1.Gemini.ConnectionController do
end
defp format_response(response) do
Map.take(response, [:status, :mime_type, :body])
Map.take(response, [:status, :mime_type, :body, :cert_expiration])
end
defp bad_request_response(conn, message) do

3
test/chronoscope/gemini/client_test.exs
View File

@ -53,12 +53,13 @@ defmodule Chronoscope.Gemini.ClientTest do
end
test ":connect - not cached" do
response ="20 text/gemini\r\nHello!" |> to_charlist()
peercert = peercert()
peercert_expiration = Certificate.expiration_date(peercert)
SSLMock
|> expect(:connect, fn ~c"localhost", 4444, _, _ -> {:ok, :socket} end)
|> expect(:send, fn :socket, _ -> send_ssl_response([]) end)
|> expect(:send, fn :socket, _ -> send_ssl_response(response) end)
|> expect(:peercert, fn :socket -> {:ok, peercert} end)
|> expect(:close, fn :socket -> :ok end)