# HG changeset patch
# User unc0rr
# Date 1298829988 -10800
# Node ID 8e1673f0dc05db6aa135126e89b7e169cb7c6842
# Parent  5d6443a7ec0369f22be624cdb669f2f4104f2565
Read server config from file

diff -r 5d6443a7ec03 -r 8e1673f0dc05 gameServer/hedgewars-server.hs
--- a/gameServer/hedgewars-server.hs	Sun Feb 27 20:58:59 2011 +0300
+++ b/gameServer/hedgewars-server.hs	Sun Feb 27 21:06:28 2011 +0300
@@ -8,14 +8,11 @@
 import qualified Control.Exception as E
 import System.Log.Logger
 import System.Process
+import Control.Monad
 -----------------------------------
 import Opts
 import CoreTypes
 import ServerCore
-#if defined(OFFICIAL_SERVER)
-import Utils
-#endif
-
 
 #if !defined(mingw32_HOST_OS)
 import System.Posix
@@ -61,9 +58,7 @@
     serverInfo' <- getOpts $ newServerInfo coreChan' dbQueriesChan
 
 #if defined(OFFICIAL_SERVER)
-    dbHost' <- askFromConsole "DB host: "
-    dbLogin' <- askFromConsole "login: "
-    dbPassword' <- askFromConsole "password: "
+    [dbHost', dbLogin', dbPassword'] <- liftM read $ readFile "hedgewars-server.ini"
     let si = serverInfo'{dbHost = dbHost', dbLogin = dbLogin', dbPassword = dbPassword'}
 #else
     let si = serverInfo'