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

View File

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