/[mldonkey]/mldonkey/src/utils/net/ip.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/ip.ml

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

revision 1.11 by spiralvoice, Sun Jul 10 23:19:16 2005 UTC revision 1.12 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC
# Line 154  let resolve_name name = Line 154  let resolve_name name =
154        with _ -> ip        with _ -> ip
155      else ip      else ip
156    with _ ->    with _ ->
157        lprintf "[NS]: Resolving [%s] ..." name;        lprintf_nl "[DNS]: Resolving [%s] ..." name;
158        let ip = gethostbyname name in        let ip = gethostbyname name in
       lprintf_nl "[NS]: done";  
159        Hashtbl.add ip_cache name (ip, current_time +. 3600.);        Hashtbl.add ip_cache name (ip, current_time +. 3600.);
160        ip        ip
161    
# Line 283  let _ = Line 282  let _ =
282                      Hashtbl.add ip_cache job.name (ip, current_time +. 3600.);                      Hashtbl.add ip_cache job.name (ip, current_time +. 3600.);
283                      job.handler ip                      job.handler ip
284                    end else begin                    end else begin
285                      lprintf "[NS]: lookup error: %s: address not found\n" job.name;                      lprintf "[DNS]: lookup error: %s: address not found\n" job.name;
286                      raise Not_found                      raise Not_found
287                    end                    end
288                end else raise Exit                end else raise Exit

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

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