91 |
lprintf_nl "port: %d" t.port; |
lprintf_nl "port: %d" t.port; |
92 |
lprintf "tags: "; |
lprintf "tags: "; |
93 |
print_tags t.tags; |
print_tags t.tags; |
94 |
lprintf_nl "" |
lprint_newline () |
95 |
|
|
96 |
let bprint oc t = |
let bprint oc t = |
97 |
Printf.bprintf oc "CONNECT:\n"; |
Printf.bprintf oc "CONNECT:\n"; |
175 |
} |
} |
176 |
|
|
177 |
let print t = |
let print t = |
178 |
lprintf_nl "SET_ID:\n%s" (if t.zlib then "Zlib" else ""); |
lprintf "SET_ID: %s id: %s %s" |
179 |
lprintf_nl "id: %s" (Ip.to_string t.ip); |
(if t.zlib then "Zlib" else "") |
180 |
match t.port with |
(Ip.to_string t.ip) |
181 |
None -> () |
(match t.port with |
182 |
|
None -> Printf.sprintf "" |
183 |
| Some port -> |
| Some port -> |
184 |
lprintf_nl "Real Port: %d" port |
Printf.sprintf "Real Port: %d" port) |
185 |
|
|
186 |
let bprint oc t = |
let bprint oc t = |
187 |
Printf.bprintf oc "SET_ID: %s\n" (if t.zlib then "Zlib" else ""); |
Printf.bprintf oc "SET_ID: %s\n" (if t.zlib then "Zlib" else ""); |
266 |
lprintf_nl " port: %d" t.f_port; |
lprintf_nl " port: %d" t.f_port; |
267 |
lprintf " tags: "; |
lprintf " tags: "; |
268 |
print_tags t.f_tags; |
print_tags t.f_tags; |
269 |
lprintf_nl "";) t |
lprint_newline ();) t |
270 |
|
|
271 |
let bprint oc t = |
let bprint oc t = |
272 |
Printf.bprintf oc "SHARED:\n"; |
Printf.bprintf oc "SHARED:\n"; |
465 |
lprintf_nl " port: %d" t.f_port; |
lprintf_nl " port: %d" t.f_port; |
466 |
lprintf " tags: "; |
lprintf " tags: "; |
467 |
print_tags t.f_tags; |
print_tags t.f_tags; |
468 |
lprintf_nl "") t |
lprint_newline ()) t |
469 |
|
|
470 |
let bprint oc t = |
let bprint oc t = |
471 |
Printf.bprintf oc "FOUND:\n"; |
Printf.bprintf oc "FOUND:\n"; |
624 |
lprintf "print_query: QNone in query\n"; |
lprintf "print_query: QNone in query\n"; |
625 |
() |
() |
626 |
|
|
627 |
let print t = |
let print t = |
628 |
lprintf "QUERY"; |
lprintf "QUERY"; |
629 |
print_query t |
print_query t |
630 |
|
|
795 |
lprintf_nl "port: %d" t.port; |
lprintf_nl "port: %d" t.port; |
796 |
lprintf "tags: "; |
lprintf "tags: "; |
797 |
print_tags t.tags; |
print_tags t.tags; |
798 |
lprintf_nl "";) t |
lprint_newline ();) t |
799 |
|
|
800 |
let bprint oc t = |
let bprint oc t = |
801 |
Printf.bprintf oc "QUERY USERS REPLY:\n"; |
Printf.bprintf oc "QUERY USERS REPLY:\n"; |
1163 |
File.from_string tmp_file s; |
File.from_string tmp_file s; |
1164 |
lprintf_nl "Saved unknown packet %s" tmp_file; |
lprintf_nl "Saved unknown packet %s" tmp_file; |
1165 |
dump s; |
dump s; |
1166 |
lprintf_nl ""; |
lprint_newline (); |
1167 |
end; |
end; |
1168 |
UnknownReq s |
UnknownReq s |
1169 |
|
|
1227 |
done; |
done; |
1228 |
lprintf_nl "]"; |
lprintf_nl "]"; |
1229 |
end; |
end; |
1230 |
lprintf_nl "" |
lprint_newline () |
1231 |
|
|
1232 |
|
|
1233 |
let bprint oc t = |
let bprint oc t = |