323 |
if !verbose_overnet then begin |
if !verbose_overnet then begin |
324 |
lprintf_nl "Received code %d message.\nDump:" opcode; |
lprintf_nl "Received code %d message.\nDump:" opcode; |
325 |
dump s; |
dump s; |
326 |
lprintf_nl ""; |
lprint_newline (); |
327 |
end; |
end; |
328 |
|
|
329 |
let peer, _ = get_peer s 0 in |
let peer, _ = get_peer s 0 in |
373 |
begin |
begin |
374 |
lprintf_nl "UNKNOWN: opcode %d" opcode; |
lprintf_nl "UNKNOWN: opcode %d" opcode; |
375 |
dump s; |
dump s; |
376 |
lprintf_nl ""; |
lprint_newline (); |
377 |
end; |
end; |
378 |
OvernetUnknown (opcode, s) |
OvernetUnknown (opcode, s) |
379 |
with e -> |
with e -> |
381 |
begin |
begin |
382 |
lprintf_nl "Error %s while parsing opcode %d" (Printexc2.to_string e) opcode; |
lprintf_nl "Error %s while parsing opcode %d" (Printexc2.to_string e) opcode; |
383 |
dump s; |
dump s; |
384 |
lprintf_nl ""; |
lprint_newline (); |
385 |
end; |
end; |
386 |
OvernetUnknown (opcode, s) |
OvernetUnknown (opcode, s) |
387 |
|
|
417 |
lprintf_nl "Error %s in udp_handler, dump of packet:" |
lprintf_nl "Error %s in udp_handler, dump of packet:" |
418 |
(Printexc2.to_string e); |
(Printexc2.to_string e); |
419 |
dump p.UdpSocket.udp_content; |
dump p.UdpSocket.udp_content; |
420 |
lprintf_nl "" |
lprint_newline () |
421 |
end |
end |
422 |
); |
); |
423 |
| _ -> () |
| _ -> () |