2023-05-13 15:57:03 +02:00
|
|
|
open Utils
|
|
|
|
|
2023-05-13 10:40:03 +02:00
|
|
|
let connection_payload =
|
|
|
|
{|
|
|
|
|
{
|
|
|
|
"capabilities": {
|
|
|
|
"alwaysMatch": {
|
|
|
|
"moz:firefoxOptions": {
|
|
|
|
"args": ["-headless"]
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|}
|
|
|
|
;;
|
2023-05-13 15:57:03 +02:00
|
|
|
|
|
|
|
let navigate_payload url = fmt {|
|
|
|
|
{
|
|
|
|
"url": "%s"
|
|
|
|
}
|
|
|
|
|} url
|
2023-05-13 17:10:19 +02:00
|
|
|
|
|
|
|
let execute_payload src = fmt {|
|
|
|
|
{
|
|
|
|
"script": "%s",
|
|
|
|
"args": []
|
|
|
|
}
|
|
|
|
|} src
|