Adding logger outputting when starting HTTP server

Cédric RICARD
1 parent 408c14ba
Showing 1 changed file with 6 additions and 4 deletions Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -45,6 +45,7 @@
 read tools/basis.anubis   
+read system/logger.anubis
 read CXM_common.anubis   
 read CXM_multihost_http_server.anubis   
 read CXM_mime.anubis   
@@ -2291,7 +2292,8 @@ public define One
        Int32                        https_port,    // usually: 443
        String                       ssl_certificate_common_name, 
        List(Web_Site)               web_sites,     // web sites to be started
-       Var(Bool)                    shutdown_required
+       Var(Bool)                    shutdown_required,
+       Logger												log
      ) =
    if (Start_Web_Sites_Result)start_web_sites(ip_address,
                                               http_port,
@@ -2300,9 +2302,9 @@ public define One
                                               web_sites,
                                               shutdown_required) is 
      {
-       cannot_bind_to_port(n)     then print("Cannot bind to port: "+n+"\n"),
-       cannot_bind_to_port(n,m)   then print("Cannot bind to ports: "+n+", "+m+"\n"),
-       ok(s1,s2)                  then print("Servers started.\n")
+       cannot_bind_to_port(n)     then logError(log, "Cannot bind to port: "+n),
+       cannot_bind_to_port(n,m)   then logError(log, "Cannot bind to ports: "+n+", "+m),
+       ok(s1,s2)                  then logInfo(log, "Servers started.")
      }.