(* $Id: test.ml,v 1.2 2005/12/14 15:03:00 rich Exp $ *)

open Printf

let (//) = Filename.concat

let () =
  let cache_file = Sys.getenv "HOME" // ".hostip.cache" in
  let conn = HostIP.connection ~cache_file () in

  let print what ip = function
    | None -> printf "%s of %s is not known\n" what ip
    | Some thing -> printf "%s of %s is %s\n" what ip thing
  in

  let ip = "12.215.42.19" in
  print "country code" ip (HostIP.get_country_code conn ip);
  print "country name" ip (HostIP.get_country_name conn ip);
  print "city" ip (HostIP.get_city conn ip);

  let ip = "80.68.82.22" in
  print "country code" ip (HostIP.get_country_code conn ip);
  print "country name" ip (HostIP.get_country_name conn ip);
  print "city" ip (HostIP.get_city conn ip);

  let ip = "192.168.2.249" in
  print "country code" ip (HostIP.get_country_code conn ip);
  print "country name" ip (HostIP.get_country_name conn ip);
  print "city" ip (HostIP.get_city conn ip)