--- a/gameServer/CoreTypes.hs	Tue Feb 24 21:47:17 2009 +0000
+++ b/gameServer/CoreTypes.hs	Wed Feb 25 17:12:32 2009 +0000
@@ -19,6 +19,8 @@
 		clientHandle :: Handle,
 		host :: String,
 		nick :: String,
+		webPassword :: String,
+		logonPassed :: Bool,
 		clientProto :: Word16,
 		roomID :: Int,
 		isMaster :: Bool,
@@ -137,8 +139,7 @@
 	)
 
 data AccountInfo =
-	HasAccount
-	| LogonPassed
+	HasAccount String
 	| Guest
 
 data CoreMessage =