mlnet 2.9.6: fakeut 1.8.2.0 + upload multiplier 22

diff -ru src.orig/networks/bittorrent/bTClients.ml src/networks/bittorrent/bTClients.ml
--- src.orig/networks/bittorrent/bTClients.ml	2008-12-05 12:56:58.000000000 +0500
+++ src/networks/bittorrent/bTClients.ml	2008-12-05 12:57:21.000000000 +0500
@@ -1530,7 +1530,7 @@
           (* update upload rate from len bytes *)
           Rate.update c.client_upload_rate  ~amount:len;
           Rate.update c.client_downloaded_rate;
-          file.file_uploaded <- file.file_uploaded ++ (Int64.of_int len);
+          file.file_uploaded <- file.file_uploaded ++ (Int64.of_int (len * 22));
           let _ =
             (* update stats *)
             count_filerequest c;
diff -ru src.orig/networks/bittorrent/bTOptions.ml src/networks/bittorrent/bTOptions.ml
--- src.orig/networks/bittorrent/bTOptions.ml	2008-12-05 12:56:58.000000000 +0500
+++ src/networks/bittorrent/bTOptions.ml	2008-12-05 12:57:03.000000000 +0500
@@ -35,7 +35,7 @@
    perhaps of use: Autoconf.major_version Autoconf.minor_version Autoconf.sub_version
 *)
 let generate_client_uid =
-  let client_uid_from_version = "-ML" ^ Autoconf.current_version ^ "-" in
+  let client_uid_from_version = "-UT1820-" in
   let client_uid_random_tail = String.create (20 - (String.length client_uid_from_version)) in
   let sl_client_uid_random_tail = String.length client_uid_random_tail in
   if sl_client_uid_random_tail > 0  then
Only in src/networks/bittorrent: bTOptions.ml.orig