diff options
author | Alexander Harkness <bearbin@gmail.com> | 2013-07-27 17:16:04 +0200 |
---|---|---|
committer | Alexander Harkness <bearbin@gmail.com> | 2013-07-27 17:16:04 +0200 |
commit | 0623a4f9be1c21651ea212f7b4d86136a67ddffe (patch) | |
tree | 5a96f13f72fa394bf74d10839a76ec7a1eac9275 /Core/web_playerlist.lua | |
parent | Removed all the pre-exising core files. (diff) | |
download | cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.tar cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.tar.gz cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.tar.bz2 cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.tar.lz cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.tar.xz cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.tar.zst cuberite-0623a4f9be1c21651ea212f7b4d86136a67ddffe.zip |
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 |