--- a/gameServer/OfficialServer/DBInteraction.hs	Fri Jun 12 00:39:36 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Fri Jun 12 08:47:05 2009 +0000
@@ -27,6 +27,7 @@
 		CheckAccount clUid _ clHost -> do
 			writeChan (coreChan serverInfo) $ ClientAccountInfo (clUid,
 				if clHost `elem` localAddressList then Admin else Guest)
+		ClearCache -> return ()
 
 	fakeDbConnection serverInfo
 
@@ -63,6 +64,8 @@
 				do
 					writeChan coreChan $ ClientAccountInfo (clUid, snd $ fromJust cacheEntry)
 					return accountsCache
+
+		ClearCache -> return Map.empty
 	
 	return updatedCache
 	where