From a3c8e0ede396a2d3b815f4d212d01597fb859753 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Fri, 12 May 2023 10:51:39 +0200
Subject: [PATCH] try to download selenium

---
 .gitignore  |  2 ++
 bin/main.ml | 30 +++++++++++++++++++++++++++++-
 2 files changed, 31 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 69fa449..854d271 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,3 @@
 _build/
+
+/selenium-*.jar
diff --git a/bin/main.ml b/bin/main.ml
index 7bf6048..319c10b 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1 +1,29 @@
-let () = print_endline "Hello, World!"
+open Lwt.Syntax
+open Cohttp_lwt
+open Cohttp_lwt_unix
+
+let fmt = Printf.sprintf
+
+let download uri dest =
+  let* response, body = Client.get uri in
+  let status = Response.status response in
+  if Cohttp.Code.code_of_status status = 302
+  then (
+    print_endline (fmt "\nDownloading %s ..." (Uri.to_string uri));
+    let stream = Body.to_stream body in
+    Lwt_io.with_file ~mode:Lwt_io.output dest (fun chan ->
+        Lwt_stream.iter_s (Lwt_io.write chan) stream))
+  else
+    Lwt.fail_with
+      ("Failed to download file. HTTP status: " ^ Cohttp.Code.string_of_status status)
+;;
+
+let download_selenium version =
+  let url =
+    format_of_string
+      "https://github.com/SeleniumHQ/selenium/releases/download/selenium-%s/selenium-server-%s.jar"
+  in
+  download (Uri.of_string (fmt url version version)) (fmt "./selenium-%s.jar" version)
+;;
+
+let () = Lwt_main.run (download_selenium "4.9.0")