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 |