equal
deleted
inserted
replaced
114 data ServerInfo = |
114 data ServerInfo = |
115 ServerInfo |
115 ServerInfo |
116 { |
116 { |
117 isDedicated :: Bool, |
117 isDedicated :: Bool, |
118 serverMessage :: String, |
118 serverMessage :: String, |
|
119 serverMessageForOldVersions :: String, |
119 listenPort :: PortNumber, |
120 listenPort :: PortNumber, |
120 loginsNumber :: Int, |
121 loginsNumber :: Int, |
121 nextRoomID :: Int, |
122 nextRoomID :: Int, |
122 dbHost :: String, |
123 dbHost :: String, |
123 dbLogin :: String, |
124 dbLogin :: String, |
133 |
134 |
134 newServerInfo = ( |
135 newServerInfo = ( |
135 ServerInfo |
136 ServerInfo |
136 True |
137 True |
137 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
138 "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>" |
|
139 "<font color=yellow><h3>Hedgewars 0.9.10 is out! Please, update. Support for previous versions IS DROPPED</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></p><h4>New features are:</h4><ul><li></li><li></li><li></li><li>...</li></ul></font>" |
138 46631 |
140 46631 |
139 0 |
141 0 |
140 0 |
142 0 |
141 "" |
143 "" |
142 "" |
144 "" |