Add log when conn_limit_tcp is reached for easy diagnose

From Semaphore document:
try_acquire s immediately returns false if the value of
semaphore s is zero. Otherwise, the value of s is
atomically decremented and try_acquire s returns true.

Signed-off-by: Changlei Li <changlei.li@citrix.com>
(cherry picked from commit 658778f)

Author: changlei-li

ocaml/libs/http-lib/server_io.ml

@@ -49,7 +49,10 @@ let establish_server ?(signal_fds = []) forker handler sock =
       @@ Polly.wait epoll 2 (-1) (fun _ fd _ ->
           (* If any of the signal_fd is active then bail out *)
           if List.mem fd signal_fds then raise PleaseClose ;
-          Semaphore.Counting.acquire handler.lock ;
+          if not (Semaphore.Counting.try_acquire handler.lock) then (
+            warn "Block %s on accept because the server is busy" handler.name ;
+            Semaphore.Counting.acquire handler.lock
+          ) ;
           let s, caller = Unix.accept ~cloexec:true sock in
           try ignore (forker handler s caller)
           with exc ->