1 files changed, 61 insertions, 0 deletions
diff --git a/aoc2023/build/packages/adglent/src/priv@aoc_client.erl b/aoc2023/build/packages/adglent/src/priv@aoc_client.erl
new file mode 100644
index 0000000..1acb9b5
--- /dev/null
+++ b/aoc2023/build/packages/adglent/src/priv@aoc_client.erl
@@ -0,0 +1,61 @@
+-module(priv@aoc_client).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
+
+-export([get_input/3]).
+
+-spec get_input(binary(), binary(), binary()) -> {ok, binary()} |
+    {error, binary()}.
+get_input(Year, Day, Session) ->
+    Url = <<<<<<<<"https://adventofcode.com/"/utf8, Year/binary>>/binary,
+                "/day/"/utf8>>/binary,
+            Day/binary>>/binary,
+        "/input"/utf8>>,
+    gleam@result:'try'(
+        begin
+            _pipe = gleam@http@request:to(Url),
+            gleam@result:map_error(
+                _pipe,
+                fun(Error) ->
+                    <<<<<<"Could not create request for \""/utf8, Url/binary>>/binary,
+                            "\": "/utf8>>/binary,
+                        (gleam@string:inspect(Error))/binary>>
+                end
+            )
+        end,
+        fun(Request) ->
+            gleam@result:'try'(
+                begin
+                    _pipe@1 = Request,
+                    _pipe@2 = gleam@http@request:prepend_header(
+                        _pipe@1,
+                        <<"Accept"/utf8>>,
+                        <<"application/json"/utf8>>
+                    ),
+                    _pipe@3 = gleam@http@request:prepend_header(
+                        _pipe@2,
+                        <<"Cookie"/utf8>>,
+                        <<<<"session="/utf8, Session/binary>>/binary, ";"/utf8>>
+                    ),
+                    _pipe@4 = gleam@httpc:send(_pipe@3),
+                    gleam@result:map_error(
+                        _pipe@4,
+                        fun(Error@1) ->
+                            <<<<<<"Error when requesting \""/utf8, Url/binary>>/binary,
+                                    "\": "/utf8>>/binary,
+                                (gleam@string:inspect(Error@1))/binary>>
+                        end
+                    )
+                end,
+                fun(Response) -> case erlang:element(2, Response) of
+                        Status when (Status >= 200) andalso (Status < 300) ->
+                            {ok, erlang:element(4, Response)};
+
+                        Status@1 ->
+                            {error,
+                                <<<<(gleam@int:to_string(Status@1))/binary,
+                                        " - "/utf8>>/binary,
+                                    (erlang:element(4, Response))/binary>>}
+                    end end
+            )
+        end
+    ).