pusk/bin/main.ml

open Pusk.Net
open Pusk.Drivers

let start driver =
  let name_driver = prepare driver in
  let data_driver = run_process name_driver [] in
  let session_id = get_session () in
  data_driver, session_id
;;

let stop (driver_process, session_id) =
  if not (close_session session_id) then print_endline "Can't close the session";
  stop_process driver_process
;;

let main session_id =
  ignore (navigate "https://twitter.com/i/flow/login" session_id);
  (* Extra wait to be sure the page is loaded *)
  Unix.sleep 5
;;

let () =
  let data = start (Gecko "0.33.0") in
  main (snd data);
  stop data
;;