# HG changeset patch # User unc0rr # Date 1299353966 -10800 # Node ID bd540ba665999183ba929ba5e33448e23ead4ab6 # Parent cf9470964dba57c96ed9f09788be4eca9021cbc9 Store more parameters in ini file diff -r cf9470964dba -r bd540ba66599 gameServer/ConfigFile.hs --- a/gameServer/ConfigFile.hs Sat Mar 05 22:23:14 2011 +0300 +++ b/gameServer/ConfigFile.hs Sat Mar 05 22:39:26 2011 +0300 @@ -14,11 +14,16 @@ , dbName = value "dbName" cfg , dbLogin = value "dbLogin" cfg , dbPassword = value "dbPassword" cfg + , serverMessage = value "sv_message" cfg + , serverMessageForOldVersions = value "sv_messageOld" cfg + , latestReleaseVersion = read . fromJust $ getValue "sv_latestProto" cfg , serverConfig = Just cfg } return si where - value n c = B.pack . fromJust $ getValue n c + value n c = B.pack . fromJust2 n $ getValue n c + fromJust2 n Nothing = error $ "Missing config entry " ++ n + fromJust2 _ (Just a) = a writeServerConfig :: ServerInfo c -> IO () writeServerConfig = undefined diff -r cf9470964dba -r bd540ba66599 gameServer/CoreTypes.hs --- a/gameServer/CoreTypes.hs Sat Mar 05 22:23:14 2011 +0300 +++ b/gameServer/CoreTypes.hs Sat Mar 05 22:39:26 2011 +0300 @@ -130,6 +130,7 @@ serverMessage :: B.ByteString, serverMessageForOldVersions :: B.ByteString, latestReleaseVersion :: Word16, + earliestCompatibleVersion :: Word16, listenPort :: PortNumber, nextRoomID :: Int, dbHost :: B.ByteString, @@ -151,8 +152,9 @@ ServerInfo True "

http://www.hedgewars.org/

" - "

Hedgewars 0.9.14.1 is out! Please update.

Download page here" - 35 + "

Hedgewars 0.9.16 is out! Please update.

Download page here" + 39 + 31 -- 0.9.13 46631 0 ""