[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.ml |
Date: |
Tue, 09 Aug 2005 06:54:53 -0400 |
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 ->