[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.25 
mldonkey/src/utils/net/http_server.ml:1.26
--- mldonkey/src/utils/net/http_server.ml:1.25  Sun Oct 16 20:42:55 2005
+++ mldonkey/src/utils/net/http_server.ml       Mon Dec  5 18:37:34 2005
@@ -419,7 +419,7 @@
 
 let parse_post_args f len req b =
 (* parse post args *)
-  lprintf_http_nl () "CALL HANDLER";
+  if !verbose then lprintf_http_nl () "CALL HANDLER";
   let s = String.sub b.rbuf b.rpos len in
   Select.buf_used b len;
   let args = Url.cut_args s in
@@ -428,12 +428,12 @@
   f b req
 
 let check_len f len b pos2 =
-  lprintf_http_nl () "check_len: len %d rlen %d" len b.rlen;
+  if !verbose then lprintf_http_nl () "check_len: len %d rlen %d" len b.rlen;
   if b.rlen >= len then f b
 
 let complete_post_request ( f : handler ) buf request =
   let len = request.options.content_length in
-  lprintf_http_nl () "check_len: len %d rlen %d" len buf.rlen;
+  if !verbose then lprintf_http_nl () "check_len: len %d rlen %d" len buf.rlen;
   if buf.rlen >= len then
     parse_post_args f len request buf
   else
@@ -789,7 +789,7 @@
   try
     iter new_pos
   with e ->
-      lprintf_http_nl () "Exception %s in request_handler"
+      if !verbose then lprintf_http_nl () "Exception %s in request_handler"
         (Printexc2.to_string e);
       close sock (Closed_for_exception e)
 
@@ -896,7 +896,7 @@
 
 (*  Range: bytes=31371876- *)
 let request_range r =
-  List.iter (fun (h, v1) ->
+  if !verbose then List.iter (fun (h, v1) ->
       lprintf_http_nl () "HEADER [%s] = [%s]" h v1
   ) r.headers;
   let range = List.assoc "Range" r.headers in