58 |
|
|
59 |
|
|
60 |
let load_url kind url = |
let load_url kind url = |
61 |
lprintf "QUERY URL %s\n" url; |
lprintf_nl "CommonWeb: QUERY URL %s" url; |
62 |
let f = |
let f = |
63 |
try |
try |
64 |
(List.assoc kind !file_kinds) url |
(List.assoc kind !file_kinds) url |
73 |
try |
try |
74 |
(List.assoc kind !file_kinds) file file |
(List.assoc kind !file_kinds) file file |
75 |
with e -> |
with e -> |
76 |
lprintf "Exception %s while loading kind %s\n" |
lprintf_nl "Exception %s while loading kind %s" |
77 |
(Printexc2.to_string e) |
(Printexc2.to_string e) |
78 |
kind |
kind |
79 |
|
|
185 |
UdpSocket.write propagation_socket false s (Ip.from_name name) port; |
UdpSocket.write propagation_socket false s (Ip.from_name name) port; |
186 |
|
|
187 |
with e -> |
with e -> |
188 |
lprintf "Exception %s in udp_sendonly\n" (Printexc2.to_string e); |
lprintf_nl "Exception %s in udp_sendonly" (Printexc2.to_string e); |
189 |
end |
end |
190 |
end |
end |
191 |
|
|