[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyClient.ml
diff -u mldonkey/src/networks/donkey/donkeyClient.ml:1.57 
mldonkey/src/networks/donkey/donkeyClient.ml:1.58
--- mldonkey/src/networks/donkey/donkeyClient.ml:1.57   Mon Aug  8 16:47:30 2005
+++ mldonkey/src/networks/donkey/donkeyClient.ml        Tue Aug  9 10:54:53 2005
@@ -682,6 +682,8 @@
                let brand = 
                  identify_client_compat_brand num c.client_brand
                in c.client_brand <- brand;
+               if brand = Brand_unknown then
+                 lprintf_nl () "Brand_unknown %s" (full_client_identifier c);
               c.client_emule_proto.emule_release <- (identify_emule_release i 
c.client_brand))
       | Field_UNKNOWN "mod_version" ->
           let s = to_lowercase (string_of_tag_value tag.tag_value) in 
@@ -706,6 +708,8 @@
            let brand =
              identify_client_compat_brand i c.client_brand
            in c.client_brand <- brand;
+           if brand = Brand_unknown then
+             lprintf_nl () "Brand_unknown %s" (full_client_identifier c);
            c.client_emule_proto.emule_release <- (identify_emule_release i 
c.client_brand))
       | Field_UNKNOWN "compression" ->
           for_int_tag tag (fun i ->