204 |
peer_ip := Ip.of_string ip; |
peer_ip := Ip.of_string ip; |
205 |
peer_tcpport := int_of_string port; |
peer_tcpport := int_of_string port; |
206 |
| _ -> |
| _ -> |
207 |
lprintf "Ill formed bcp: [%s]\n" bcp; |
if !verbose_overnet then |
208 |
|
lprintf "Ill formed bcp: [%s]\n" bcp; |
209 |
else |
else |
210 |
lprintf "Ill formed bcp: [%s]\n" bcp; |
if !verbose_overnet then |
211 |
|
lprintf "Ill formed bcp: [%s]\n" bcp; |
212 |
) |
) |
213 |
| _ -> |
| _ -> |
214 |
if !verbose_hidden_errors then |
if !verbose_overnet then |
215 |
lprintf "Unused source tag [%s]\n" |
lprintf "Unused source tag [%s]\n" |
216 |
(escaped_string_of_field tag) |
(escaped_string_of_field tag) |
217 |
) r_tags; |
) r_tags; |
393 |
if len < 2 || |
if len < 2 || |
394 |
int_of_char pbuf.[0] <> 227 then |
int_of_char pbuf.[0] <> 227 then |
395 |
begin |
begin |
396 |
if !CommonOptions.verbose_unknown_messages then begin |
if !verbose_unknown_messages then begin |
397 |
lprintf "Received unknown UDP packet\n"; |
lprintf "Received unknown UDP packet\n"; |
398 |
dump pbuf; |
dump pbuf; |
399 |
end |
end |