diff -r 8af42b3f93d2 -r 89e24edb6020 netserver/HWProto.hs --- a/netserver/HWProto.hs Fri Nov 07 17:02:22 2008 +0000 +++ b/netserver/HWProto.hs Fri Nov 07 22:03:43 2008 +0000 @@ -25,6 +25,7 @@ answerBadCmd = [(clientOnly, ["ERROR", "Bad command, state or incorrect parameter"])] answerNotMaster = [(clientOnly, ["ERROR", "You cannot configure room parameters"])] answerBadParam = [(clientOnly, ["ERROR", "Bad parameter"])] +answerErrorMsg msg = [(clientOnly, ["ERROR", msg])] answerQuit msg = [(clientOnly, ["BYE", msg])] answerAbandoned = [(othersInRoom, ["BYE", "Room abandoned"])] answerQuitInform nick = [(othersInRoom, ["LEFT", nick])] @@ -93,6 +94,9 @@ handleCmd _ _ _ ["PONG"] = (noChangeClients, noChangeRooms, []) +handleCmd _ _ _ ["ERROR", msg] = + (noChangeClients, noChangeRooms, answerErrorMsg msg) + -- check state and call state-dependent commmand handlers handleCmd client clients rooms cmd = if null (nick client) || protocol client == 0 then