OCaml HTTP cookie handling library with support for Eio-based storage jars
anil.recoil.org
1(*---------------------------------------------------------------------------
2 Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>. All rights reserved.
3 SPDX-License-Identifier: ISC
4 ---------------------------------------------------------------------------*)
5
6let () =
7 Eio_main.run @@ fun env ->
8 let args = Sys.argv in
9 if Array.length args < 2 then (
10 Printf.eprintf "Usage: %s <cookies.txt>\n" args.(0);
11 exit 1
12 );
13 let file_path = args.(1) in
14 let fs = Eio.Stdenv.fs env in
15 let clock = Eio.Stdenv.clock env in
16 let path = Eio.Path.(fs / file_path) in
17 let jar = Cookeio_jar.load ~clock path in
18 Format.printf "%a@." Cookeio_jar.pp jar