fabs/cheesebot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Remove IRC greetings.

Browse source
This commit is contained in:
Fabien Freling 2014-12-12 23:20:24 +01:00
parent 6d2791b3fe
commit ff6b555372
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ocaml/irc.ml
View file

@ -4,10 +4,9 @@ module C = Irc_client_lwt.Client
let host = "irc.freenode.net" let host = "irc.freenode.net"
let port = 6667 let port = 6667
let realname = "CheeseBot" let realname = "CheeseBot"
let nick = "cheesebot2" let nick = "cheesebot"
let username = nick let username = nick
let channel = "#cheeseburger" let channel = "#cheeseburger"
let message = "Hello, world! This is a test from chesebot"
let string_opt_to_string = function let string_opt_to_string = function
| None -> "None" | None -> "None"
@ -50,7 +49,6 @@ let lwt_main =
~port ~username ~mode:0 ~realname ~nick ~password:"cheese" () ~port ~username ~mode:0 ~realname ~nick ~password:"cheese" ()
>>= fun connection -> Lwt_io.printl "Connected" >>= fun connection -> Lwt_io.printl "Connected"
>>= fun () -> C.send_join ~connection ~channel >>= fun () -> C.send_join ~connection ~channel
>>= fun () -> C.send_privmsg ~connection ~target:channel ~message
>>= fun () -> C.listen ~connection ~callback >>= fun () -> C.listen ~connection ~callback
>>= fun () -> C.send_quit ~connection >>= fun () -> C.send_quit ~connection