diff options
| -rw-r--r-- | portal/tcp/dune | 3 | ||||
| -rw-r--r-- | portal/tcp/portal_tcp.ml | 5 |
2 files changed, 8 insertions, 0 deletions
diff --git a/portal/tcp/dune b/portal/tcp/dune new file mode 100644 index 0000000..43366c0 --- /dev/null +++ b/portal/tcp/dune @@ -0,0 +1,3 @@ +(library + (name portal_tcp) + (libraries lwt markup markup-lwt)) diff --git a/portal/tcp/portal_tcp.ml b/portal/tcp/portal_tcp.ml new file mode 100644 index 0000000..3bf34a7 --- /dev/null +++ b/portal/tcp/portal_tcp.ml @@ -0,0 +1,5 @@ +let tcp_endpoint (_domain : string) : int = 5222 + (** [tcp_endpoint domain] is the port where [domain]'s XMPP server is hosted. + + Currently, it falls back to 5222 (always), but should use SRV records in the near + future. *) |