26 	case q of

    26 	case q of

    27 		CheckAccount clUid _ clHost -> do

    27 		CheckAccount clUid _ clHost -> do

    28 			writeChan (coreChan serverInfo) $ ClientAccountInfo (clUid,

    28 			writeChan (coreChan serverInfo) $ ClientAccountInfo (clUid,

    29 				if clHost `elem` localAddressList then Admin else Guest)

    29 				if clHost `elem` localAddressList then Admin else Guest)

    30 		ClearCache -> return ()

    30 		ClearCache -> return ()

    31 

    32 

    32 	fakeDbConnection serverInfo

    33 	fakeDbConnection serverInfo

    33 

    34 

    34 

    35 

    35 #if defined(OFFICIAL_SERVER)

    36 #if defined(OFFICIAL_SERVER)