--- a/netserver/Miscutils.hs	Sun Jan 25 18:27:31 2009 +0000
+++ b/netserver/Miscutils.hs	Sun Jan 25 18:35:27 2009 +0000
@@ -87,6 +87,13 @@
 		Map.empty
 	)
 
+data StatisticsInfo =
+	StatisticsInfo
+	{
+		playersNumber :: Int,
+		roomsNumber :: Int
+	}
+
 data ServerInfo =
 	ServerInfo
 	{
@@ -94,7 +101,8 @@
 		serverMessage :: String,
 		listenPort :: PortNumber,
 		loginsNumber :: Int,
-		lastHourUsers :: [UTCTime]
+		lastHourUsers :: [UTCTime],
+		stats :: TMVar StatisticsInfo
 	}
 
 newServerInfo = (