equal
deleted
inserted
replaced
106 if isDedicated serverInfo then |
106 if isDedicated serverInfo then |
107 "<p align=center>Dedicated server</p>" |
107 "<p align=center>Dedicated server</p>" |
108 else |
108 else |
109 "<p align=center>Private server</p>" |
109 "<p align=center>Private server</p>" |
110 |
110 |
111 updateInfo = if protocol client < 21 then "<p align=left>Hedgewars 0.9.8 is out!!! Please, update. Support for 0.9.7 will be dropped in a month.</p>" else "" |
111 updateInfo = if protocol client < 21 then "<font color=yellow><p align=center>Hedgewars 0.9.8 is out!!! Please, update. Support for 0.9.7 will be dropped in a month.</p><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></p><hr></font>" else "" |
112 clientsIn = if protocol client < 20 then "<p align=left>" ++ (show $ length nicks) ++ " clients in: " ++ clientslist ++ "</p>" else [] |
112 clientsIn = if protocol client < 20 then "<p align=left>" ++ (show $ length nicks) ++ " clients in: " ++ clientslist ++ "</p>" else [] |
113 clientslist = if not $ null nicks then foldr1 (\a b -> a ++ ", " ++ b) nicks else "" |
113 clientslist = if not $ null nicks then foldr1 (\a b -> a ++ ", " ++ b) nicks else "" |
114 lastHour serverInfo = |
114 lastHour serverInfo = |
115 if isDedicated serverInfo then |
115 if isDedicated serverInfo then |
116 "<p align=left>" ++ (show $ length $ lastHourUsers serverInfo) ++ " user logins in last hour</p>" |
116 "<p align=left>" ++ (show $ length $ lastHourUsers serverInfo) ++ " user logins in last hour</p>" |