test/native/native_hello.ml


1
2
3
4
5
6
7
8

open! Portal_tcp

let () =
  let jid = Sys.getenv "FLESH_JID"
  and _password = Sys.getenv "FLESH_PASSWORD"
  in let domain = (List.nth (String.split_on_char '@' jid) 1)
     in let port = xmpp_port domain
        in print_endline (string_of_int port)