# HG changeset patch
# User unc0rr
# Date 1236029007 0
# Node ID b835395659e20d84fd40fcde2384e373fe4475b4
# Parent  e71dbf958c8776281921393dc97ad73046a53a09
Fake database connection with routine which marks all users as guests, when no database host was specified

diff -r e71dbf958c87 -r b835395659e2 gameServer/OfficialServer/DBInteraction.hs
--- a/gameServer/OfficialServer/DBInteraction.hs	Mon Mar 02 21:20:45 2009 +0000
+++ b/gameServer/OfficialServer/DBInteraction.hs	Mon Mar 02 21:23:27 2009 +0000
@@ -16,6 +16,15 @@
 import CoreTypes
 
 
+fakeDbConnection serverInfo = do
+	q <- readChan $ dbQueries serverInfo
+	case q of
+		CheckAccount clID name -> do
+			writeChan (coreChan serverInfo) $ ClientAccountInfo clID Guest
+
+	fakeDbConnection serverInfo
+
+
 -------------------------------------------------------------------
 -- borrowed from base 4.0.0 ---------------------------------------
 onException :: IO a -> IO b -> IO a                              --
@@ -60,4 +69,7 @@
 	dbConnectionLoop serverInfo
 
 startDBConnection serverInfo =
-	when (not . null $ dbHost serverInfo) ((forkIO $ dbConnectionLoop serverInfo) >> return ())
+	if (not . null $ dbHost serverInfo) then
+		forkIO $ dbConnectionLoop serverInfo
+		else
+		forkIO $ fakeDbConnection serverInfo