Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix password checking
authorunc0rr
Sat, 05 Feb 2011 23:33:10 +0300
changeset 4922 89777ce0d273
parent 4921 2efad3acbb74
child 4923 c7829611c682
Fix password checking
gameServer/Actions.hs file | annotate | diff | comparison | revisions 
--- a/gameServer/Actions.hs	Sat Feb 05 23:15:22 2011 +0300
+++ b/gameServer/Actions.hs	Sat Feb 05 23:33:10 2011 +0300
@@ -325,7 +325,7 @@
     case info of
         HasAccount passwd isAdmin -> do
             chan <- client's sendChan
-            processAction $ AnswerClients [chan] ["ASKPASSWORD"]
+            mapM_ processAction [AnswerClients [chan] ["ASKPASSWORD"], ModifyClient (\c -> c{webPassword = passwd})]
         Guest -> do
             processAction JoinLobby
         Admin -> do
hedgewars