77 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
77 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
78 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
78 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
79 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
79 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
80 h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] |
80 h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] |
81 h "INFO" n | not $ B.null n = handleCmd ["INFO", n] |
81 h "INFO" n | not $ B.null n = handleCmd ["INFO", n] |
|
82 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
82 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]] |
83 h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]] |
83 |
84 |
84 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
85 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
85 |
86 |
86 |
87 |