--- 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