--- a/gameServer/CoreTypes.hs	Fri Mar 27 15:58:54 2009 +0000
+++ b/gameServer/CoreTypes.hs	Fri Mar 27 18:50:18 2009 +0000
@@ -8,6 +8,7 @@
 import qualified Data.IntMap as IntMap
 import qualified Data.IntSet as IntSet
 import Data.Sequence(Seq, empty)
+import Data.Time
 import Network
 
 
@@ -18,6 +19,7 @@
 		sendChan :: Chan [String],
 		clientHandle :: Handle,
 		host :: String,
+		connectTime :: UTCTime,
 		nick :: String,
 		webPassword :: String,
 		logonPassed :: Bool,
@@ -119,6 +121,7 @@
 		dbHost :: String,
 		dbLogin :: String,
 		dbPassword :: String,
+		lastLogins :: [(String, UTCTime)],
 		stats :: TMVar StatisticsInfo,
 		coreChan :: Chan CoreMessage,
 		dbQueries :: Chan DBQuery
@@ -137,6 +140,7 @@
 		""
 		""
 		""
+		[]
 	)
 
 data AccountInfo =