gameServer/Actions.hs
changeset 14385 8ad85859dd3f
parent 14364 5e28098fb593
child 14689 bc267f6b29d7
--- a/gameServer/Actions.hs	Sat Dec 08 14:13:18 2018 +0100
+++ b/gameServer/Actions.hs	Sat Dec 08 14:19:11 2018 +0100
@@ -885,3 +885,13 @@
 
 processAction CheckVotes =
     checkVotes >>= mapM_ processAction
+
+processAction (ShowRegisteredOnlyState chans) = do
+    si <- gets serverInfo
+    processAction $ AnswerClients chans
+        ["CHAT", nickServer,
+        if isRegisteredUsersOnly si then
+            loc "This server no longer allows unregistered players to join."
+        else
+            loc "This server now allows unregistered players to join."
+        ]