[Mldonkey-commits] mldonkey distrib/ChangeLog src/networks/donkey/...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/01/15 21:32:56

Modified files:
        distrib        : ChangeLog 
        src/networks/donkey: donkeyClient.ml donkeyMftp.ml 
                             donkeyTypes.ml 

Log message:
        patch #5691

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1151&r2=1.1152
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/donkey/donkeyClient.ml?cvsroot=mldonkey&r1=1.120&r2=1.121
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/donkey/donkeyMftp.ml?cvsroot=mldonkey&r1=1.16&r2=1.17
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/donkey/donkeyTypes.ml?cvsroot=mldonkey&r1=1.58&r2=1.59

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1151
retrieving revision 1.1152
diff -u -b -r1.1151 -r1.1152
--- distrib/ChangeLog   15 Jan 2007 18:28:03 -0000      1.1151
+++ distrib/ChangeLog   15 Jan 2007 21:32:56 -0000      1.1152
@@ -15,6 +15,7 @@
 =========
 
 2007/01/15
+5691: EDK: Recognize compatibleclient 60: IMPmule (imp-project.net)
 5689: EDK: Log downloading file name when client disconnects
 5684: GUI: Fix build of mlprogress (Alt linux)
 5677: Options: New concept of option types, fix non-admin Sancho http preview

Index: src/networks/donkey/donkeyClient.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/donkey/donkeyClient.ml,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -b -r1.120 -r1.121
--- src/networks/donkey/donkeyClient.ml 15 Jan 2007 18:28:03 -0000      1.120
+++ src/networks/donkey/donkeyClient.ml 15 Jan 2007 21:32:56 -0000      1.121
@@ -115,7 +115,7 @@
   match cb with
     Brand_lmule | Brand_newemule | Brand_cdonkey |
     Brand_emuleplus | Brand_hydranode | Brand_mldonkey3 |
-    Brand_shareaza | Brand_amule | Brand_lphant | Brand_verycd -> true
+    Brand_shareaza | Brand_amule | Brand_lphant | Brand_verycd | Brand_imp -> 
true
   | _ -> false
 
 let ban_client c sock msg = 
@@ -636,6 +636,7 @@
     | 6 -> Brand_hydranode
     | 10 -> Brand_mldonkey3
     | 20 -> Brand_lphant
+    | 60 -> Brand_imp
     | 240 -> Brand_verycd
     | _ -> Brand_unknown
 

Index: src/networks/donkey/donkeyMftp.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/donkey/donkeyMftp.ml,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- src/networks/donkey/donkeyMftp.ml   6 Jan 2007 18:15:17 -0000       1.16
+++ src/networks/donkey/donkeyMftp.ml   15 Jan 2007 21:32:56 -0000      1.17
@@ -257,6 +257,7 @@
         "\092", "mod_secure_community";
         "\093", "mod_unknown0x5d";
         "\096", "mod_unknown0x60";
+        "\100", "mod_unknown0x64";
         "\102", "mod_fusion";
         "\103", "mod_fusion_version";
 
@@ -264,6 +265,7 @@
         "\105", "edonkeyclc serverip?";
         "\106", "edonkeyclc serverport?";
 
+        "\108", "mod_unknown0x6c";
         "\117", "mod_unknown0x75"; (* http://emule-project.net @ NewMule *)
         "\118", "mod_unknown0x76";
         "\119", "mod_tarod";

Index: src/networks/donkey/donkeyTypes.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/donkey/donkeyTypes.ml,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- src/networks/donkey/donkeyTypes.ml  8 Jan 2007 15:12:10 -0000       1.58
+++ src/networks/donkey/donkeyTypes.ml  15 Jan 2007 21:32:56 -0000      1.59
@@ -107,6 +107,7 @@
 | Brand_emuleplus
 | Brand_hydranode
 | Brand_verycd
+| Brand_imp
 
 let brand_list = [
    ( Brand_unknown   , "unknown"      , "unk" ) ;
@@ -125,6 +126,7 @@
    ( Brand_emuleplus , "ePlus"        , "eM+" ) ;
    ( Brand_hydranode , "Hydra"        , "Hyd" ) ;
    ( Brand_verycd    , "VeryCD"       , "VCD" ) ;
+   ( Brand_imp       , "IMPmule"      , "IMP" ) ;
   ]
 
 let brand_count = List.length brand_list