[Mldonkey-users] [PATCH 1/2] BT: stop asking users to submit unknown client ids

[ygrek]

---
 src/networks/bittorrent/bTGlobals.ml |   21 +++++++++++----------
 1 files changed, 11 insertions(+), 10 deletions(-)

diff --git src/networks/bittorrent/bTGlobals.ml 
src/networks/bittorrent/bTGlobals.ml
index ab24ae0..f6c9b99 100644
--- src/networks/bittorrent/bTGlobals.ml
+++ src/networks/bittorrent/bTGlobals.ml
@@ -784,16 +784,17 @@ let decoder_list = [
 
 let parse_software s =
   let default = (Brand_unknown, "") in
-  let rec iter l =
-    match l with
-      [] -> lprintf_nl "Unknown BT client software version, report the next 
line to http://mldonkey.sourceforge.net/UnknownBtClients%s\nBTUC:\"%s\""; 
Autoconf.current_version (String.escaped s);
-            default
-      | d :: t -> match (d s) with 
-                  | None    -> iter t
-                  | Some bv -> let (brand, version) = bv in
-                               if !verbose_msg_clienttags then
-                                 lprintf_nl "BTKC:\"%s\"; ID: \"%s\"; 
version:\"%s\"" (String.escaped s) (brand_to_string brand) version;
-                               bv
+  let rec iter = function
+  | [] ->
+    if !verbose_msg_clienttags then lprintf_nl "BTUC: %S" s;
+    default
+  | d :: t ->
+    match (d s) with
+    | None -> iter t
+    | Some (brand, version as bv) ->
+      if !verbose_msg_clienttags then
+        lprintf_nl "BTKC: %S; ID: %S; version: %S" s (brand_to_string brand) 
version;
+      bv
   in
   if Sha1.direct_of_string s = Sha1.null then
     default
-- 
1.7.2.3