equal
deleted
inserted
replaced
102 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
102 h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"] |
103 h "REGISTERED_ONLY" _ = serverAdminOnly $ do |
103 h "REGISTERED_ONLY" _ = serverAdminOnly $ do |
104 cl <- thisClient |
104 cl <- thisClient |
105 return |
105 return |
106 [ModifyServerInfo(\s -> s{isRegisteredUsersOnly = not $ isRegisteredUsersOnly s}) |
106 [ModifyServerInfo(\s -> s{isRegisteredUsersOnly = not $ isRegisteredUsersOnly s}) |
107 , AnswerClients [sendChan cl] ["CHAT", "[server]", "'Registered only' state toggled"] |
107 -- TODO: Say whether 'registered only' state is on or off |
|
108 , AnswerClients [sendChan cl] ["CHAT", "[server]", loc "'Registered only' state toggled."] |
108 ] |
109 ] |
109 h "SUPER_POWER" _ = serverAdminOnly $ return [ModifyClient (\c -> c{hasSuperPower = True})] |
110 h "SUPER_POWER" _ = serverAdminOnly $ do |
|
111 cl <- thisClient |
|
112 return |
|
113 [ModifyClient (\c -> c{hasSuperPower = True}) |
|
114 , AnswerClients [sendChan cl] ["CHAT", "[server]", loc "Super power activated."] |
|
115 ] |
110 h _ _ = return [Warning $ loc "Unknown command or invalid parameters. Say '/help' in chat for a list of commands." ] |
116 h _ _ = return [Warning $ loc "Unknown command or invalid parameters. Say '/help' in chat for a list of commands." ] |
111 |
117 |
112 |
118 |
113 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
119 extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b) |
114 |
120 |