From bc3f4cb875f303f70bd85da0e8bc02556c4e640c Mon Sep 17 00:00:00 2001
From: Jan Wielemaker <J.Wielemaker@vu.nl>
Date: Tue, 13 Oct 2020 15:08:08 +0200
Subject: [PATCH] Docs and new broadcast.

---
 server.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/server.pl b/server.pl
index c0949c338..4d53822c8 100644
--- a/server.pl
+++ b/server.pl
@@ -46,7 +46,7 @@
 from   the   shell   to   start   the   SWISH   server   accessible   on
 http://localhost:3050/
 
-    swipl run.pl
+    swipl run.pl [--public] [--port=Port]
 
 @see	run.pl and daemon.pl
 */
@@ -57,13 +57,16 @@
 %    Start the web-server on Port.  Port  may   be  unbound  to make the
 %    system  select  a  free  port.  Port  can   also  be  of  the  form
 %    `localhost:Port`  to  bind  the  server    only  to  the  localhost
-%    interface.
+%    interface.   The   broadcast   messages     are   compatible   with
+%    library(http/http_unix_daemon).
 
 server :-
 	server(localhost:3050).
 server(Port) :-
 	broadcast(http(pre_server_start)),
+	broadcast(http(pre_server_start(Port))),
 	http_server(http_dispatch,
 		    [ port(Port)
 		    ]),
+	broadcast(http(post_server_start(Port))),
 	broadcast(http(post_server_start)).