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

add RPL_ISUPPORT to welcome text

This commit is contained in:
tali 2024-01-08 00:56:06 -05:00
parent d310d4ad6e
commit a4ab2f3650
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/server/connection.ml
View File

@ -51,6 +51,7 @@ let attempt_to_register t =
| _, _ -> `ok
let on_msg_nick t nick =
(* TODO: validate nick *)
if User.is_registered t.user then
match User.set_nick t.user nick with
| `nick_in_use -> `nicknameinuse nick
@ -98,6 +99,11 @@ let on_msg_quit t why =
let srv_host = "irc.tali.software"
let srv_ver = "0.0.0"
let srv_created = "Sun Jan 7 09:58:24 PM EST 2024"
let srv_isupport = [
"CASEMAPPING=ascii";
"CHANTYPES=#";
"PREFIX=(ov)@+";
]
let srv_motd_lines = [
"MEOW MEOW MEOW MEOW MEOW";
"meow meow meow meow meow";
@ -118,6 +124,7 @@ let rpl_welcome t =
rpl t "002" [Fmt.str "Your host is %s, running version %s" srv_host srv_ver];
rpl t "003" [Fmt.str "This server was created %s" srv_created];
rpl t "004" [srv_host; srv_ver; "aiwroOs"; "oinvm"];
rpl t "005" (srv_isupport @ ["are supported by this server"]);
end
let rpl_motd t =