add command todolist
This commit is contained in:
parent
cdbb445319
commit
eecd915d27
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue