[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.20 
mldonkey/src/utils/net/http_server.ml:1.21
--- mldonkey/src/utils/net/http_server.ml:1.20  Tue Jul 26 21:52:03 2005
+++ mldonkey/src/utils/net/http_server.ml       Mon Aug  1 20:26:06 2005
@@ -798,12 +798,21 @@
 let request_closer sock msg =
   ()
 
+
+open Ip_set
+
 let handler config t event =
   match event with
     TcpServerSocket.CONNECTION (s, Unix.ADDR_INET(from_ip, from_port)) ->
-(* check here if ip is OK *)
+    (* check here if ip is OK *)
       let from_ip = Ip.of_inet_addr from_ip in
-      if Ip.matches from_ip config.addrs then
+      if Ip.matches from_ip config.addrs &&
+        (match Ip_set.match_ip !Ip_set.bl from_ip with
+           None -> true
+         | Some br ->
+             lprintf "[HTTPSRV]:  %s:%d blocked: %s\n"
+               (Ip.to_string from_ip) from_port br.blocking_description;
+             false) then
         let token = create_token unlimited_connection_manager in
         let sock = TcpBufferedSocket.create_simple
             token "http connection" s in