92 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
92 if B.null p then handleCmd ["CALLVOTE", c] else handleCmd ["CALLVOTE", c, p] |
93 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
93 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
94 | otherwise = handleCmd ["VOTE", ""] |
94 | otherwise = handleCmd ["VOTE", ""] |
95 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
95 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
96 | otherwise = handleCmd ["VOTE", "", "FORCE"] |
96 | otherwise = handleCmd ["VOTE", "", "FORCE"] |
97 h "VOTE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg] |
|
98 h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"] |
|
99 h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] |
97 h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n] |
100 h "INFO" n | not $ B.null n = handleCmd ["INFO", n] |
98 h "INFO" n | not $ B.null n = handleCmd ["INFO", n] |
101 h "HELP" _ = handleCmd ["HELP"] |
99 h "HELP" _ = handleCmd ["HELP"] |
102 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
100 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
103 h "REGISTERED_ONLY" _ = serverAdminOnly $ do |
101 h "REGISTERED_ONLY" _ = serverAdminOnly $ do |