550 |
if proto > 30 then |
if proto > 30 then |
551 |
buf_list buf buf_uid f.file_uids |
buf_list buf buf_uid f.file_uids |
552 |
|
|
553 |
let buf_addr buf addr = |
let buf_addr proto buf addr = |
554 |
match addr with |
(match addr with |
555 |
Ip.AddrIp ip -> |
Ip.AddrIp ip -> |
556 |
buf_int8 buf 0; |
buf_int8 buf 0; |
557 |
buf_ip buf ip |
buf_ip buf ip |
558 |
| Ip.AddrName s -> |
| Ip.AddrName s -> |
559 |
buf_int8 buf 1; |
buf_int8 buf 1; |
560 |
buf_string buf s |
buf_string buf s); |
561 |
|
if proto > 33 then |
562 |
|
buf_bool buf (Ip_set.ip_blocked (Ip.ip_of_addr addr)) |
563 |
|
|
564 |
let buf_server proto buf s = |
let buf_server proto buf s = |
565 |
buf_int buf s.server_num; |
buf_int buf s.server_num; |
567 |
if proto < 2 then |
if proto < 2 then |
568 |
buf_ip buf (Ip.ip_of_addr s.server_addr) |
buf_ip buf (Ip.ip_of_addr s.server_addr) |
569 |
else |
else |
570 |
buf_addr buf s.server_addr; |
buf_addr proto buf s.server_addr; |
571 |
buf_int16 buf s.server_port; |
buf_int16 buf s.server_port; |
572 |
buf_int buf s.server_score; |
buf_int buf s.server_score; |
573 |
buf_list buf buf_tag s.server_tags; |
buf_list buf buf_tag s.server_tags; |