From de293999872346271cdfb5dbecbad7f77362b83b Mon Sep 17 00:00:00 2001
From: faketruth <faketruth@0a769ca7-a7f5-676a-18bf-c427514a06d6>
Date: Fri, 27 Jan 2012 23:47:32 +0000
Subject: Converted entire Core plugin including WebAdmin interface to new
 plugin method/system/thingy and sexyfied it. Made some changes to WebAdmin to
 make the new plugins work Old plugins still work like they're supposed to Not
 all hooks have been programmed for the new plugins yet, this still needs to
 be done

git-svn-id: http://mc-server.googlecode.com/svn/trunk@182 0a769ca7-a7f5-676a-18bf-c427514a06d6
---
 Plugins/Core/web_whitelist.lua | 79 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 Plugins/Core/web_whitelist.lua

(limited to 'Plugins/Core/web_whitelist.lua')

diff --git a/Plugins/Core/web_whitelist.lua b/Plugins/Core/web_whitelist.lua
new file mode 100644
index 000000000..b7a220515
--- /dev/null
+++ b/Plugins/Core/web_whitelist.lua
@@ -0,0 +1,79 @@
+local function HTMLDeleteButton( name )
+	return "<form method=GET><input type=\"hidden\" name=\"whitelist-delete\" value=\"".. name .."\"><input type=\"submit\" value=\"Remove from whitelist\"></form>"
+end
+
+function HandleRequest_WhiteList( Request )
+	local UpdateMessage = ""
+	if( Request.Params:get("whitelist-add") ~= "" ) then
+		local PlayerName = Request.Params:get("whitelist-add")
+		
+		if( WhiteListIni:GetValueB("WhiteList", PlayerName, false) == true ) then
+			UpdateMessage = "<b>".. PlayerName.."</b> is already on the whitelist"
+		else
+			WhiteListIni:SetValueB("WhiteList", PlayerName, true )
+			UpdateMessage = "Added <b>" .. PlayerName .. "</b> to whitelist."
+			WhiteListIni:WriteFile()
+		end
+	elseif( Request.Params:get("whitelist-delete") ~= "" ) then
+		local PlayerName = Request.Params:get("whitelist-delete")
+		WhiteListIni:DeleteValue( "WhiteList", PlayerName )
+		UpdateMessage = "Removed <b>" .. PlayerName .. "</b> from whitelist."
+		WhiteListIni:WriteFile()
+	elseif( Request.Params:get("whitelist-reload") ~= "" ) then
+		WhiteListIni:Erase() -- Empty entire loaded ini first, otherwise weird shit goes down
+		WhiteListIni:ReadFile()
+		UpdateMessage = "Loaded from disk"
+	elseif( Request.Params:get("whitelist-setenable") ~= "" ) then
+		local Enabled = Request.Params:get("whitelist-setenable");
+		local CreateNewValue = false;
+		if( WhiteListIni:FindValue( WhiteListIni:FindKey("WhiteListSettings"), "WhiteListOn" ) == cIniFile.noID ) then -- Find out whether the value is in the ini
+			CreateNewValue = true
+		end
+		
+		if( Enabled == "1" ) then
+			WhiteListIni:SetValueB("WhiteListSettings", "WhiteListOn", true, CreateNewValue )
+		else
+			WhiteListIni:SetValueB("WhiteListSettings", "WhiteListOn", false, CreateNewValue )
+		end
+		WhiteListIni:WriteFile()
+	end
+	
+	
+	local Content = ""
+	
+	local WhiteListEnabled = WhiteListIni:GetValueB("WhiteListSettings", "WhiteListOn", false)
+	if( WhiteListEnabled == false ) then
+		Content = Content .. "<p>Whitelist is currently disabled! Click <a href='?whitelist-setenable=1'>here</a> to enable.</p>"
+	end
+	
+	
+	Content = Content .. "<h4>Whitelisted players</h4>"
+	Content = Content .. "<table>"
+	local KeyNum = WhiteListIni:FindKey("WhiteList")
+	local NumValues = WhiteListIni:GetNumValues(KeyNum)
+	if( NumValues > 0 ) then
+		for Num = 0, NumValues-1 do
+			if( WhiteListIni:GetValue(KeyNum, Num, "0") == "1" ) then
+				local PlayerName = WhiteListIni:GetValueName(KeyNum, Num )
+				Content = Content .. "<tr><td>" .. PlayerName .. "</td><td>" .. HTMLDeleteButton( PlayerName ) .. "</td></tr>"
+			end
+		end
+	else
+		Content = Content .. "<tr><td>None</td></tr>"
+	end
+	Content = Content .. "</table>"
+	Content = Content .. "<br><h4>Add player to whitelist</h4>"
+	Content = Content .. "<form method=\"GET\">"
+	Content = Content .. "<input type=\"text\" name=\"whitelist-add\"><input type=\"submit\" value=\"Add player\">"
+	Content = Content .. "</form>"
+	Content = Content .. "<form method=\"GET\">"
+	Content = Content .. "<input type=\"submit\" name=\"whitelist-reload\" value=\"Reload from disk\">"
+	Content = Content .. "</form>"
+	Content = Content .. "<br>"..UpdateMessage
+	
+	if( WhiteListEnabled == true ) then
+		Content = Content .. "<br><br><p>Whitelist is currently enabled, click <a href='?whitelist-setenable=0'>here</a> to disable.</p>"
+	end
+	
+	return Content
+end
\ No newline at end of file
-- 
cgit v1.2.3