equal
deleted
inserted
replaced
376 |
376 |
377 handleCmd_inRoom ["UNFIX"] = do |
377 handleCmd_inRoom ["UNFIX"] = do |
378 cl <- thisClient |
378 cl <- thisClient |
379 return [ModifyRoom (\r -> r{isSpecial = False}) | isAdministrator cl] |
379 return [ModifyRoom (\r -> r{isSpecial = False}) | isAdministrator cl] |
380 |
380 |
|
381 handleCmd_inRoom ["GREETING", msg] = do |
|
382 cl <- thisClient |
|
383 rm <- thisRoom |
|
384 return [ModifyRoom (\r -> r{greeting = msg}) | isAdministrator cl || (isMaster cl && (not $ isSpecial rm))] |
381 |
385 |
382 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17) |
386 handleCmd_inRoom ["LIST"] = return [] -- for old clients (<= 0.9.17) |
383 |
387 |
384 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"] |
388 handleCmd_inRoom (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in room)"] |
385 |
389 |