equal
deleted
inserted
replaced
129 |
129 |
130 |
130 |
131 handleCmd_lobby ["FOLLOW", asknick] = do |
131 handleCmd_lobby ["FOLLOW", asknick] = do |
132 (_, rnc) <- ask |
132 (_, rnc) <- ask |
133 ci <- clientByNick asknick |
133 ci <- clientByNick asknick |
134 cl <- thisClient |
|
135 let ri = clientRoom rnc $ fromJust ci |
134 let ri = clientRoom rnc $ fromJust ci |
136 let clRoom = room rnc ri |
135 let clRoom = room rnc ri |
137 if isNothing ci || ri == lobbyId then |
136 if isNothing ci || ri == lobbyId then |
138 return [] |
137 return [] |
139 else |
138 else |
154 cl <- thisClient |
153 cl <- thisClient |
155 banId <- clientByNick banNick |
154 banId <- clientByNick banNick |
156 return [BanClient 60 reason (fromJust banId) | isAdministrator cl && isJust banId && fromJust banId /= ci] |
155 return [BanClient 60 reason (fromJust banId) | isAdministrator cl && isJust banId && fromJust banId /= ci] |
157 |
156 |
158 handleCmd_lobby ["BANIP", ip, reason, duration] = do |
157 handleCmd_lobby ["BANIP", ip, reason, duration] = do |
159 (ci, _) <- ask |
|
160 cl <- thisClient |
158 cl <- thisClient |
161 return [BanIP ip (readInt_ duration) reason | isAdministrator cl] |
159 return [BanIP ip (readInt_ duration) reason | isAdministrator cl] |
162 |
160 |
163 handleCmd_lobby ["BANLIST"] = do |
161 handleCmd_lobby ["BANLIST"] = do |
164 (ci, _) <- ask |
|
165 cl <- thisClient |
162 cl <- thisClient |
166 return [BanList | isAdministrator cl] |
163 return [BanList | isAdministrator cl] |
167 |
164 |
168 |
165 |
169 handleCmd_lobby ["UNBAN", entry] = do |
166 handleCmd_lobby ["UNBAN", entry] = do |
170 (ci, _) <- ask |
|
171 cl <- thisClient |
167 cl <- thisClient |
172 return [Unban entry | isAdministrator cl] |
168 return [Unban entry | isAdministrator cl] |
173 |
169 |
174 |
170 |
175 handleCmd_lobby ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = do |
171 handleCmd_lobby ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = do |