From 983d87e44356c4cfc8f8908ec365006323a4dbe0 Mon Sep 17 00:00:00 2001
From: Alexander Harkness <bearbin@gmail.com>
Date: Sat, 27 Jul 2013 16:24:03 +0100
Subject: Added correct core plugin

---
 MCServer/Plugins/Core/web_playerlist.lua | 38 ++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 MCServer/Plugins/Core/web_playerlist.lua

(limited to 'MCServer/Plugins/Core/web_playerlist.lua')

diff --git a/MCServer/Plugins/Core/web_playerlist.lua b/MCServer/Plugins/Core/web_playerlist.lua
new file mode 100644
index 000000000..6ac25db86
--- /dev/null
+++ b/MCServer/Plugins/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
-- 
cgit v1.2.3