tcl daemons: log host and port number we bind to, at startup

If the socket setup fails, this makes it easier to see what the
program was trying to do.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>

diff --git a/tcl/daemonlib.tcl b/tcl/daemonlib.tcl
index 972b5e2627426aa6add144c066a533ec4ebb602f..b76ff12c8cca0d3278ee48b3d28fc39ea0b7d569 100644 (file)
--- a/tcl/daemonlib.tcl
+++ b/tcl/daemonlib.tcl
@@ -210,7 +210,7 @@ proc main-daemon {which setup} {
     fconfigure stdout -buffering line
     fconfigure stderr -buffering none
 
-    log "starting"
+    log "starting $host:$port"
 
     uplevel 1 $setup