162 |
t.port |
t.port |
163 |
(Md4.to_string t.md4); |
(Md4.to_string t.md4); |
164 |
(match t.server_info with |
(match t.server_info with |
165 |
None -> lprintf_nl "" |
None -> lprint_newline () |
166 |
| Some (ip, port) -> |
| Some (ip, port) -> |
167 |
lprintf_nl " on server: %s:%d" (Ip.to_string ip) port); |
lprintf_nl " on server: %s:%d" (Ip.to_string ip) port); |
168 |
lprintf "tags: "; |
lprintf "tags: "; |
239 |
t.port |
t.port |
240 |
(Md4.to_string t.md4); |
(Md4.to_string t.md4); |
241 |
(match t.server_info with |
(match t.server_info with |
242 |
None -> lprintf_nl "" |
None -> lprint_newline () |
243 |
| Some (ip, port) -> |
| Some (ip, port) -> |
244 |
lprintf_nl " on server: %s:%d" (Ip.to_string ip) port); |
lprintf_nl " on server: %s:%d" (Ip.to_string ip) port); |
245 |
lprintf "tags: "; |
lprintf "tags: "; |
303 |
lprintf "JOIN QUEUE"; |
lprintf "JOIN QUEUE"; |
304 |
(match t with None -> () | Some md4 -> |
(match t with None -> () | Some md4 -> |
305 |
lprintf " OF %s" (Md4.to_string md4)); |
lprintf " OF %s" (Md4.to_string md4)); |
306 |
lprintf_nl "" |
lprint_newline () |
307 |
|
|
308 |
let write emule buf t = |
let write emule buf t = |
309 |
if extendedrequest emule > 0 then |
if extendedrequest emule > 0 then |
396 |
None -> () |
None -> () |
397 |
| Some (bitmap, ncompletesources) -> |
| Some (bitmap, ncompletesources) -> |
398 |
print_bitmap bitmap; |
print_bitmap bitmap; |
399 |
lprintf_nl ""; |
lprint_newline (); |
400 |
if ncompletesources >= 0 then |
if ncompletesources >= 0 then |
401 |
lprintf_nl "Complete sources: %d" ncompletesources |
lprintf_nl "Complete sources: %d" ncompletesources |
402 |
|
|
441 |
lprint_string " "; |
lprint_string " "; |
442 |
Array.iter (fun b -> |
Array.iter (fun b -> |
443 |
if b then lprintf "1" else lprintf "0") t.chunks; |
if b then lprintf "1" else lprintf "0") t.chunks; |
444 |
lprintf_nl "" |
lprint_newline () |
445 |
|
|
446 |
let write buf t = |
let write buf t = |
447 |
buf_md4 buf t.md4; |
buf_md4 buf t.md4; |
484 |
Array.iter (fun b -> |
Array.iter (fun b -> |
485 |
lprintf " %s" (Md4.to_string b)) |
lprintf " %s" (Md4.to_string b)) |
486 |
t.chunks; |
t.chunks; |
487 |
lprintf_nl "" |
lprint_newline () |
488 |
|
|
489 |
let write buf t = |
let write buf t = |
490 |
buf_md4 buf t.md4; |
buf_md4 buf t.md4; |
661 |
lprintf_nl " port: %d" t.f_port; |
lprintf_nl " port: %d" t.f_port; |
662 |
lprintf " tags: "; |
lprintf " tags: "; |
663 |
print_tags t.f_tags; |
print_tags t.f_tags; |
664 |
lprintf_nl "";) t |
lprint_newline ();) t |
665 |
|
|
666 |
let rec write_files buf files = |
let rec write_files buf files = |
667 |
match files with |
match files with |
834 |
lprintf_nl " protversion: %d" t.version; |
lprintf_nl " protversion: %d" t.version; |
835 |
lprintf " tags: "; |
lprintf " tags: "; |
836 |
print_tags t.tags; |
print_tags t.tags; |
837 |
lprintf_nl "" |
lprint_newline () |
838 |
|
|
839 |
let write buf t = |
let write buf t = |
840 |
buf_int8 buf t.version; |
buf_int8 buf t.version; |
1302 |
File.from_string tmp_file s; |
File.from_string tmp_file s; |
1303 |
lprintf_nl "Saved unknown packet %s" tmp_file; |
lprintf_nl "Saved unknown packet %s" tmp_file; |
1304 |
dump s; |
dump s; |
1305 |
lprintf_nl ""; |
lprint_newline (); |
1306 |
end; |
end; |
1307 |
UnknownReq (magic,s) |
UnknownReq (magic,s) |
1308 |
|
|
1330 |
lprintf_nl "Saved unknown packet %s" tmp_file; |
lprintf_nl "Saved unknown packet %s" tmp_file; |
1331 |
|
|
1332 |
dump s; |
dump s; |
1333 |
lprintf_nl ""; |
lprint_newline (); |
1334 |
end; |
end; |
1335 |
UnknownReq (magic,s) |
UnknownReq (magic,s) |
1336 |
|
|