/[mldonkey]/mldonkey/src/daemon/common/commonWeb.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonWeb.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by spiralvoice, Mon May 2 11:40:27 2005 UTC revision 1.13 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC
# Line 58  let mldonkey_wget url f = Line 58  let mldonkey_wget url f =
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
# Line 73  let load_file kind file = Line 73  let load_file kind file =
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    
# Line 185  let connect_redirector () = Line 185  let connect_redirector () =
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    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26