76 h "SAVEROOM" n | not $ B.null n = handleCmd ["SAVEROOM", n] |
76 h "SAVEROOM" n | not $ B.null n = handleCmd ["SAVEROOM", n] |
77 h "LOADROOM" n | not $ B.null n = handleCmd ["LOADROOM", n] |
77 h "LOADROOM" n | not $ B.null n = handleCmd ["LOADROOM", n] |
78 h "SAVE" n | not $ B.null n = let (sn, ln) = B.break (== ' ') n in if B.null ln then return [] else handleCmd ["SAVE", sn, B.tail ln] |
78 h "SAVE" n | not $ B.null n = let (sn, ln) = B.break (== ' ') n in if B.null ln then return [] else handleCmd ["SAVE", sn, B.tail ln] |
79 h "DELETE" n | not $ B.null n = handleCmd ["DELETE", n] |
79 h "DELETE" n | not $ B.null n = handleCmd ["DELETE", n] |
80 h "STATS" _ = handleCmd ["STATS"] |
80 h "STATS" _ = handleCmd ["STATS"] |
81 h "PART" m | not $ B.null m = handleCmd ["PART", m] |
|
82 | otherwise = handleCmd ["PART"] |
|
83 h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m] |
81 h "QUIT" m | not $ B.null m = handleCmd ["QUIT", m] |
84 | otherwise = handleCmd ["QUIT"] |
82 | otherwise = handleCmd ["QUIT"] |
85 h "RND" p = handleCmd ("RND" : B.words p) |
83 h "RND" p = handleCmd ("RND" : B.words p) |
86 h "GLOBAL" p = serverAdminOnly $ do |
84 h "GLOBAL" p = serverAdminOnly $ do |
87 rnc <- liftM snd ask |
85 rnc <- liftM snd ask |