fun checkIt cmd {node, uname} =
OS.Process.isSuccess (OS.Process.system
fun checkIt cmd {node, uname} =
OS.Process.isSuccess (OS.Process.system
^ cmd ^ " " ^ Init.nodeName node ^ " " ^ uname ^ " >/dev/null 2>/dev/null"))
val isTpe = checkIt "tpe"
val cronAllowed = checkIt "cron"
^ cmd ^ " " ^ Init.nodeName node ^ " " ^ uname ^ " >/dev/null 2>/dev/null"))
val isTpe = checkIt "tpe"
val cronAllowed = checkIt "cron"
fun findFirewallRules {node, uname} =
let
val proc = Unix.execute ("/bin/sh",
["-c",
fun findFirewallRules {node, uname} =
let
val proc = Unix.execute ("/bin/sh",
["-c",
"Client" :: ports :: hosts => validPorts ports andalso validHosts hosts
| "Server" :: ports :: hosts => validPorts ports andalso validHosts hosts
| ["LocalServer", ports] => validPorts ports
"Client" :: ports :: hosts => validPorts ports andalso validHosts hosts
| "Server" :: ports :: hosts => validPorts ports andalso validHosts hosts
| ["LocalServer", ports] => validPorts ports