[Mldonkey-commits] Changes to mldonkey/src/utils/net/http_server.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/http_server.ml
diff -u mldonkey/src/utils/net/http_server.ml:1.21 
mldonkey/src/utils/net/http_server.ml:1.22
--- mldonkey/src/utils/net/http_server.ml:1.21  Mon Aug  1 20:26:06 2005
+++ mldonkey/src/utils/net/http_server.ml       Mon Aug 15 20:27:56 2005
@@ -822,8 +822,11 @@
         TcpBufferedSocket.set_handler sock TcpBufferedSocket.BUFFER_OVERFLOW
           (fun _ -> TcpBufferedSocket.close sock Closed_for_overflow;
               lprintf_nl () "BUFFER OVERFLOW" );  ()
-      else
+      else begin
+         lprintf_nl () "HTTP connection from %s rejected (see allowed_ips 
setting)"
+          (Ip.to_string from_ip);
         Unix.close s
+      end
   | _ -> ()
 
 let create config =