diff -r 071902835770 -r 7589978c9912 gameServer/ServerCore.hs
--- a/gameServer/ServerCore.hs	Sun Jan 12 11:07:49 2014 +0400
+++ b/gameServer/ServerCore.hs	Sun Jan 12 15:15:59 2014 +0400
@@ -62,7 +62,9 @@
 
         TimerAction tick ->
                 mapM_ processAction $
-                    PingAll : [StatsAction | even tick]
+                    PingAll 
+                    : [StatsAction | even tick] 
+                    ++ [Cleanup | tick `mod` 100 == 0]
 
 
 startServer :: ServerInfo -> IO ()
@@ -79,5 +81,6 @@
     startDBConnection si
 
     rnc <- newRoomsAndClients newRoom
+    jm <- newJoinMonitor
 
-    evalStateT mainLoop (ServerState Nothing si Set.empty rnc)
+    evalStateT mainLoop (ServerState Nothing si Set.empty rnc jm)