diff options
Diffstat (limited to 'Core/web_playerlist.lua')
| -rw-r--r-- | Core/web_playerlist.lua | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Core/web_playerlist.lua b/Core/web_playerlist.lua new file mode 100644 index 000000000..6ac25db86 --- /dev/null +++ b/Core/web_playerlist.lua @@ -0,0 +1,38 @@ +function HandleRequest_PlayerList( Request ) + local World = cRoot:Get():GetDefaultWorld() + local Content = "" + + if( Request.Params["playerlist-kick"] ~= nil ) then + local KickPlayerName = Request.Params["playerlist-kick"] + local FoundPlayerCallback = function( Player ) + if( Player:GetName() == KickPlayerName ) then + Player:GetClientHandle():Kick("You were kicked from the game!") + Content = Content .. "<p>" .. KickPlayerName .. " has been kicked from the game!</p>" + end + end + if( World:DoWithPlayer( KickPlayerName, FoundPlayerCallback ) == false ) then + Content = Content .. "<p>Could not find player " .. KickPlayerName .. " !</p>" + end + end + + Content = Content .. "<p>Connected Players: <b>" .. World:GetNumPlayers() .. "</b></p>" + Content = Content .. "<table>" + + local PlayerNum = 0 + local AddPlayerToTable = function( Player ) + PlayerNum = PlayerNum + 1 + Content = Content .. "<tr>" + Content = Content .. "<td style='width: 10px;'>" .. PlayerNum .. ".</td>" + Content = Content .. "<td>" .. Player:GetName() .. "</td>" + Content = Content .. "<td><a href='?playerlist-kick=" .. Player:GetName() .. "'>Kick</a></td>" + Content = Content .. "</tr>" + end + cRoot:Get():ForEachPlayer( AddPlayerToTable ) + + if( PlayerNum == 0 ) then + Content = Content .. "<tr><td>None</td></tr>" + end + Content = Content .. "</table>" + Content = Content .. "<br>" + return Content +end
\ No newline at end of file |