add command todolist

This commit is contained in:
tali 2024-01-31 00:42:30 -05:00
parent cdbb445319
commit eecd915d27
1 changed files with 19 additions and 0 deletions

View File

@ -739,6 +739,25 @@ let dispatch t = function
| "MODE", tgt :: args when tgt <> "" -> on_msg_mode t tgt args | "MODE", tgt :: args when tgt <> "" -> on_msg_mode t tgt args
| ("USER" | "JOIN" | "NAMES" | "PART" | "KICK" | "MODE") as cmd, _ -> | ("USER" | "JOIN" | "NAMES" | "PART" | "KICK" | "MODE") as cmd, _ ->
Error (needmoreparams cmd) Error (needmoreparams cmd)
(* TODO: "LIST" *)
(* TODO: "ADMIN" *)
(* TODO: "CONNECT" *)
(* TODO: "LUSERS" *)
(* TODO: "TIME" *)
(* TODO: "STATS" *)
(* TODO: "HELP" *)
(* TODO: "INFO" *)
(* TODO: "NOTICE" *)
(* TODO: "WHO" *)
(* TODO: "WHOIS" *)
(* TODO: "WHOWAS" *)
(* TODO: "KILL" *)
(* TODO: "REHASH" *)
(* TODO: "RESTART" *)
(* TODO: "SQUIT" *)
(* TODO: "LINKS" *)
(* TODO: "USERHOST" *)
(* TODO: "WALLOPS" *)
| cmd, _ -> | cmd, _ ->
Error (unknowncommand cmd) Error (unknowncommand cmd)