[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyOptions
|
From: |
mldonkey-commits |
|
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyOptions.ml |
|
Date: |
Sun, 18 Sep 2005 15:01:08 -0400 |
Index: mldonkey/src/networks/donkey/donkeyOptions.ml
diff -u mldonkey/src/networks/donkey/donkeyOptions.ml:1.30
mldonkey/src/networks/donkey/donkeyOptions.ml:1.31
--- mldonkey/src/networks/donkey/donkeyOptions.ml:1.30 Wed Sep 14 20:28:26 2005
+++ mldonkey/src/networks/donkey/donkeyOptions.ml Sun Sep 18 19:00:52 2005
@@ -164,6 +164,9 @@
let client_md4 = define_option donkey_section ["client_md4"]
"The MD4 of this client" Md4.option (mldonkey_md4 (Md4.random ()))
+let client_private_key = define_option donkey_section ["client_private_key"]
+ "The RSA private key of this client" string_option (Unix32.create_key ())
+
let _ =
option_hook client_md4 (fun _ ->
let m = mldonkey_md4 !!client_md4 in