add command todolist

lib/server/connection.ml

@@ -739,6 +739,25 @@ let dispatch t = function
   | "MODE", tgt :: args when tgt <> "" -> on_msg_mode t tgt args
   | ("USER" | "JOIN" | "NAMES" | "PART" | "KICK" | "MODE") as 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, _ ->
     Error (unknowncommand cmd)