#load "unix.cma";;

open Unix;;

let hostname = "irc.voila.fr" ;;

let h = Unix.gethostbyname hostname;;
let addr = h.h_addr_list.(0);;

let port = 6667;;

let open_con l =
  let h = Unix.gethostbyname hostname
  in
    let addr = h.h_addr_list.(0)
    in
      let s = socket PF_INET SOCK_STREAM 0
      in
        try
          Unix.connect s (ADDR_INET(addr,port));
          s
        with e -> close s; raise e
;;

let lance_bot lalala =
    let s = open_con 1 
    in
      let ic = in_channel_of_descr s in
        let oc = out_channel_of_descr s in
        try
          Printf.fprintf oc "USER plop plop plop :plop\n";
          flush oc;
          Printf.fprintf oc "NICK plop\n";
          flush oc;
          Printf.fprintf oc "JOIN #linux\n";
          flush oc;
          Printf.fprintf oc "PRIVMSG #linux :";
          Printf.fprintf oc lalala ;
          Printf.fprintf oc "\n";
          flush oc;
          Printf.fprintf oc "PART #linux :plop (le bot en caml) a encore frappé !\n";
          flush oc;
          Printf.fprintf oc "QUIT\n";
          flush oc;
          close s;
        with e -> close s; raise e