--- a/gameServer/Actions.hs	Fri Jun 12 00:39:36 2009 +0000
+++ b/gameServer/Actions.hs	Fri Jun 12 08:47:05 2009 +0000
@@ -39,6 +39,7 @@
 	| ModifyServerInfo (ServerInfo -> ServerInfo)
 	| AddRoom String String
 	| CheckRegistered
+	| ClearAccountsCache
 	| ProcessAccountInfo AccountInfo
 	| Dump
 	| AddClient ClientInfo
@@ -295,6 +296,13 @@
 		client = clients ! clID
 
 
+processAction (clID, serverInfo, clients, rooms) (ClearAccountsCache) = do
+	writeChan (dbQueries serverInfo) $ ClearCache
+	return (clID, serverInfo, clients, rooms)
+	where
+		client = clients ! clID
+
+
 processAction (clID, serverInfo, clients, rooms) (Dump) = do
 	writeChan (sendChan $ clients ! clID) ["DUMP", show serverInfo, showTree clients, showTree rooms]
 	return (clID, serverInfo, clients, rooms)