From 23e4b954048b4fe7aee4b62abd3ddd0e4345783e Mon Sep 17 00:00:00 2001 From: John Else Date: Mon, 1 Apr 2013 14:32:32 +0100 Subject: [PATCH] Add send_user Signed-off-by: John Else --- lib/irc_client.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/irc_client.ml b/lib/irc_client.ml index 8ffcff3..46ddcdf 100644 --- a/lib/irc_client.ml +++ b/lib/irc_client.ml @@ -30,4 +30,7 @@ module Make(Io: Irc_transport.IO) = struct let send_quit connection = send_raw connection "QUIT" + + let send_user connection username mode realname = + send_raw connection (Printf.sprintf "USER %s %i * :%s" username mode realname) end