iitalics
/
talircd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix 001 reply formatting

This commit is contained in:
tali 2024-01-11 00:22:23 -05:00
parent f383706931
commit 4d95927bfa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/server/connection.ml
View File

@ -55,8 +55,9 @@ let reply t (num, params) =
(Irc.Msg.make ~prefix num (target :: params)) (Irc.Msg.make ~prefix num (target :: params))
let welcome t me = let welcome t me =
let who = Irc.Msg.prefix_string (User.prefix me) in
begin begin
reply t ("001", ["Welcome to the tali IRC network %s" ^ Irc.Msg.prefix_string (User.prefix me)]); reply t ("001", [Fmt.str "Welcome to the tali IRC network %s" who]);
reply t ("002", [Fmt.str "Your host is %s, running version %s" srv_host srv_ver]); reply t ("002", [Fmt.str "Your host is %s, running version %s" srv_host srv_ver]);
reply t ("003", [Fmt.str "This server was created %s" srv_created]); reply t ("003", [Fmt.str "This server was created %s" srv_created]);
reply t ("004", [srv_host; srv_ver; "iow"; "imnst"; "bklov"]); reply t ("004", [srv_host; srv_ver; "iow"; "imnst"; "bklov"]);