diff -r 58c29439225d -r dc9ea05c9d2f gameServer/hedgewars-server.hs --- a/gameServer/hedgewars-server.hs Sun Apr 12 06:01:17 2009 +0000 +++ b/gameServer/hedgewars-server.hs Sun Apr 12 12:50:43 2009 +0000 @@ -13,6 +13,7 @@ import CoreTypes import OfficialServer.DBInteraction import ServerCore +import Utils #if !defined(mingw32_HOST_OS) @@ -34,8 +35,17 @@ stats <- atomically $ newTMVar (StatisticsInfo 0 0) dbQueriesChan <- newChan coreChan <- newChan - serverInfo <- getOpts $ newServerInfo stats coreChan dbQueriesChan + serverInfo' <- getOpts $ newServerInfo stats coreChan dbQueriesChan +#if defined(OFFICIAL_SERVER) + dbHost' <- askFromConsole "DB host: " + dbLogin' <- askFromConsole "login: " + dbPassword' <- askFromConsole "password: " + let serverInfo = serverInfo'{dbHost = dbHost', dbLogin = dbLogin', dbPassword = dbPassword'} +#else + let serverInfo = serverInfo' +#endif + bracket (Network.listenOn $ Network.PortNumber $ listenPort serverInfo) (sClose)