54 lines
743 B
OCaml
54 lines
743 B
OCaml
open Utils
|
|
|
|
let empty = "{}"
|
|
|
|
let connection_payload headless =
|
|
fmt
|
|
{|
|
|
{
|
|
"capabilities": {
|
|
"alwaysMatch": {
|
|
"moz:firefoxOptions": {
|
|
"args": [%s]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|}
|
|
(if headless then "\"-headless\"" else "")
|
|
;;
|
|
|
|
let navigate_payload url = fmt {|
|
|
{
|
|
"url": "%s"
|
|
}
|
|
|} url
|
|
|
|
let execute_payload src = fmt {|
|
|
{
|
|
"script": "%s",
|
|
"args": []
|
|
}
|
|
|} src
|
|
|
|
let find_payload strategy value =
|
|
fmt {|
|
|
{
|
|
"using": "%s",
|
|
"value": "%s"
|
|
}
|
|
|} strategy value
|
|
;;
|
|
|
|
let send_keys_payload text =
|
|
fmt
|
|
{|
|
|
{
|
|
"text": "%s",
|
|
"value": %s
|
|
}
|
|
|}
|
|
text
|
|
(Yojson.Safe.to_string
|
|
(`List (List.map (fun str -> `String str) (keys_to_typing text))))
|
|
;;
|