/[mldonkey]/mldonkey/src/networks/donkey/donkeyMain.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyMain.ml

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

revision 1.36 by spiralvoice, Thu Oct 6 10:21:09 2005 UTC revision 1.37 by spiralvoice, Thu Oct 6 14:03:05 2005 UTC
# Line 123  let disable enabler () = Line 123  let disable enabler () =
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);
# Line 150  let reset_tags () = Line 157  let reset_tags () =
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            
# Line 283  be useful when users want to share files Line 290  be useful when users want to share files
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

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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