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

Remove IRC greetings.

master
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 port = 6667
let realname = "CheeseBot"
let nick = "cheesebot2"
let nick = "cheesebot"
let username = nick
let channel = "#cheeseburger"
let message = "Hello, world! This is a test from chesebot"
let string_opt_to_string = function
| None -> "None"
@ -50,7 +49,6 @@ let lwt_main =
~port ~username ~mode:0 ~realname ~nick ~password:"cheese" ()
>>= fun connection -> Lwt_io.printl "Connected"
>>= fun () -> C.send_join ~connection ~channel
>>= fun () -> C.send_privmsg ~connection ~target:channel ~message
>>= fun () -> C.listen ~connection ~callback
>>= fun () -> C.send_quit ~connection