/[mldonkey]/mldonkey/src/networks/bittorrent/bTOptions.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTOptions.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by spiralvoice, Sat Nov 5 16:23:40 2005 UTC revision 1.24 by spiralvoice, Mon Nov 7 20:11:42 2005 UTC
# Line 30  let client_port = define_option bittorre Line 30  let client_port = define_option bittorre
30      int_option 6882      int_option 6882
31    
32  (* Generate client_uid *)  (* Generate client_uid *)
33    (* current_version could be "2.6.6.CVS" (why send the dots?)
34       perhaps of use: Autoconf.major_version Autoconf.minor_version Autoconf.sub_version
35    *)
36  let generate_client_uid =  let generate_client_uid =
37    let client_uid_from_version = "-ML" ^ Autoconf.current_version ^ "-" in    let client_uid_from_version = "-ML" ^ Autoconf.current_version ^ "-" in
38    let client_uid_random_tail = String.create (20 - (String.length client_uid_from_version)) in    let client_uid_random_tail = String.create (20 - (String.length client_uid_from_version)) in

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26