123 |
let reset_tags () = |
let reset_tags () = |
124 |
let module D = DonkeyProtoClient in |
let module D = DonkeyProtoClient in |
125 |
let m = D.mldonkey_emule_proto in |
let m = D.mldonkey_emule_proto in |
126 |
|
|
127 |
|
let secident = if !!enable_sui then 3 else 0 in |
128 |
|
m.emule_secident <- secident; |
129 |
|
m.emule_features <- secident; |
130 |
|
|
131 |
let emule_miscoptions1 = D.emule_miscoptions1 m in |
let emule_miscoptions1 = D.emule_miscoptions1 m in |
132 |
client_to_client_tags := |
client_to_client_tags := |
133 |
[ |
[ |
134 |
string_tag (Field_UNKNOWN "name") (local_login ()); |
string_tag (Field_UNKNOWN "name") (local_login ()); |
135 |
|
int_tag (Field_UNKNOWN "port") !!donkey_port; |
136 |
int_tag (Field_UNKNOWN "version") protocol_version; |
int_tag (Field_UNKNOWN "version") protocol_version; |
137 |
int_tag (Field_UNKNOWN "emule_udpports") (!!donkey_port+4); |
int_tag (Field_UNKNOWN "emule_udpports") (!!donkey_port+4); |
138 |
int_tag (Field_UNKNOWN "emule_version") m.emule_version; |
int_tag (Field_UNKNOWN "emule_version") m.emule_version; |
139 |
int64_tag (Field_UNKNOWN "emule_miscoptions1") emule_miscoptions1; |
int64_tag (Field_UNKNOWN "emule_miscoptions1") emule_miscoptions1; |
|
int_tag (Field_UNKNOWN "port") !!donkey_port; |
|
140 |
]; |
]; |
141 |
|
|
142 |
|
let extended = ref 0x04 in (* support of auxport *) |
143 |
|
extended := !extended lor 0x01; (* support of compression *) |
144 |
|
|
145 |
client_to_server_tags := |
client_to_server_tags := |
146 |
[ |
[ |
147 |
string_tag (Field_UNKNOWN "name") (local_login ()); |
string_tag (Field_UNKNOWN "name") (local_login ()); |
148 |
int_tag (Field_UNKNOWN "version") protocol_version; |
int_tag (Field_UNKNOWN "version") protocol_version; |
149 |
int_tag (Field_UNKNOWN "port") !!donkey_port; |
int_tag (Field_UNKNOWN "port") !!donkey_port; |
150 |
|
int_tag (Field_UNKNOWN "extended") !extended; |
151 |
]; |
]; |
152 |
let extended = ref 0x04 in (* support of auxport *) |
|
|
extended := !extended lor 0x01; (* support of compression *) |
|
|
client_to_server_tags := (int_tag |
|
|
(Field_UNKNOWN "extended") !extended)::!client_to_server_tags; |
|
153 |
emule_info.DonkeyProtoClient.EmuleClientInfo.tags <- [ |
emule_info.DonkeyProtoClient.EmuleClientInfo.tags <- [ |
154 |
int_tag (Field_UNKNOWN "compression") |
int_tag (Field_UNKNOWN "compression") |
155 |
(if !!emule_compression then m.emule_compression else 0); |
(if !!emule_compression then m.emule_compression else 0); |
157 |
int_tag (Field_UNKNOWN "udpport") (!!donkey_port+4); |
int_tag (Field_UNKNOWN "udpport") (!!donkey_port+4); |
158 |
int_tag (Field_UNKNOWN "sourceexchange") m.emule_sourceexchange; |
int_tag (Field_UNKNOWN "sourceexchange") m.emule_sourceexchange; |
159 |
int_tag (Field_UNKNOWN "comments") m.emule_comments; |
int_tag (Field_UNKNOWN "comments") m.emule_comments; |
160 |
int_tag (Field_UNKNOWN "compatibleclient") 10; |
int_tag (Field_UNKNOWN "compatibleclient") !DonkeyProtoClient.compatibleclient; |
161 |
int_tag (Field_UNKNOWN "extendedrequest") m.emule_extendedrequest; |
int_tag (Field_UNKNOWN "extendedrequest") m.emule_extendedrequest; |
162 |
int_tag (Field_UNKNOWN "features") m.emule_features; |
int_tag (Field_UNKNOWN "features") m.emule_features; |
163 |
|
|
290 |
|
|
291 |
Options.option_hook global_login reset_tags; |
Options.option_hook global_login reset_tags; |
292 |
Options.option_hook login reset_tags; |
Options.option_hook login reset_tags; |
293 |
|
Options.option_hook enable_sui reset_tags; |
294 |
|
|
295 |
(**** START TIMERS ****) |
(**** START TIMERS ****) |
296 |
add_session_option_timer enabler check_client_connections_delay |
add_session_option_timer enabler check_client_connections_delay |