# HG changeset patch
# User unc0rr
# Date 1279564667 -14400
# Node ID c0d94fedbd86aa38669b5ea5437982fc3c3b1cce
# Parent  df76ccda06480d3e86c5272900af0e03b1ef7d97
Reimplement statistics

diff -r df76ccda0648 -r c0d94fedbd86 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sun Jul 18 03:58:06 2010 +0200
+++ b/gameServer/Actions.hs	Mon Jul 19 22:37:47 2010 +0400
@@ -434,9 +434,13 @@
                 else
                 return (clID, serverInfo, rnc)
 
+-}
 
-processAction (clID, serverInfo, rnc) (StatsAction) = do
-    writeChan (dbQueries serverInfo) $ SendStats (size clients) (size rooms - 1)
-    return (clID, serverInfo, rnc)
+processAction (StatsAction) = do
+    rnc <- gets roomsClients
+    si <- gets serverInfo
+    (roomsNum, clientsNum) <- liftIO $ withRoomsAndClients rnc stats
+    liftIO $ writeChan (dbQueries si) $ SendStats clientsNum (roomsNum - 1)
+    where
+          stats irnc = (length $ allRooms irnc, length $ allClients irnc)
 
--}