neale
/
irc-bot
mirror of https://github.com/nealey/irc-bot
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Back to calling socat ourselves

This commit is contained in:
Neale Pickett 2010-12-10 17:07:16 -07:00
parent 1a06efd5fc
commit 90d91a8979
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
bot.ml
View File

@ -6,7 +6,7 @@ let debug = prerr_endline
let file_descr_of_int (i:int) = let file_descr_of_int (i:int) =
let blob = Marshal.to_string i [] in let blob = Marshal.to_string i [] in
(Marshal.from_string blob 0 : Unix.file_descr) (Marshal.from_string blob 0 : Unix.file_descr)
let write iobuf command args text = let write iobuf command args text =
let cmd = Command.create None command args text in let cmd = Command.create None command args text in
@ -89,11 +89,16 @@ let main () =
let bot = {store = Infobot.create "info.cdb"} in let bot = {store = Infobot.create "info.cdb"} in
let dispatcher = Dispatch.create () in let dispatcher = Dispatch.create () in
let iobuf_out = Iobuf.create dispatcher Unix.stdout "collab_out" let conn_out, conn_in =
Process.spawn "socat" [|"socat";
"STDIO";
"OPENSSL:woozle.org:697,verify=0"|]
in
let iobuf_out = Iobuf.create dispatcher conn_out "collab_out"
discard_command discard_command
handle_error handle_error
in in
let _ = Iobuf.create dispatcher Unix.stdin "collab_in" let _ = Iobuf.create dispatcher conn_in "collab_in"
(handle_command bot iobuf_out) (handle_command bot iobuf_out)
handle_error handle_error
in in