Add send_user

Signed-off-by: John Else <john.else@citrix.com>
johnelse · Apr 2, 2013 · 23e4b95 · 23e4b95
1 parent f428a3d
commit 23e4b95
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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