/[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.20 by spiralvoice, Fri Sep 2 23:48:54 2005 UTC revision 1.21 by spiralvoice, Thu Sep 8 12:26:01 2005 UTC
# Line 107  let referers = define_option bittorrent_ Line 107  let referers = define_option bittorrent_
107      "Referer sent with http request to get .torrent file"      "Referer sent with http request to get .torrent file"
108      (list_option (tuple2_option (string_option, string_option))) [(".*suprnova.*", "http://www.suprnova.org/")]      (list_option (tuple2_option (string_option, string_option))) [(".*suprnova.*", "http://www.suprnova.org/")]
109    
110    let user_agent = define_option bittorrent_section ["user_agent"]
111        "User agent string (default = \"default\")"
112        string_option "default"
113    
114  let old_files =  let old_files =
115    define_option bittorrent_section ["old_files"]    define_option bittorrent_section ["old_files"]
116      "" (list_option (tuple2_option (string_option, int64_option))) []      "" (list_option (tuple2_option (string_option, int64_option))) []
117    
118    let get_user_agent () =
119      if !!user_agent = "default" then
120         Printf.sprintf "MLDonkey/%s" Autoconf.current_version
121      else !!user_agent

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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