From 12906c026d414c752d3c0ba9481f425b24b29c67 Mon Sep 17 00:00:00 2001
From: faketruth <faketruth@0a769ca7-a7f5-676a-18bf-c427514a06d6>
Date: Mon, 20 Aug 2012 12:20:20 +0000
Subject: Moved files used by MCServer to a special MCServer folder

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

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

diff --git a/MCServer/Plugins/Core/web_permissions.lua b/MCServer/Plugins/Core/web_permissions.lua
new file mode 100644
index 000000000..4fce502e1
--- /dev/null
+++ b/MCServer/Plugins/Core/web_permissions.lua
@@ -0,0 +1,79 @@
+local function ShowUsersTable()
+	local Content = "<h4>Users</h4>"
+
+	local UsersIni = cIniFile("users.ini")
+	if( UsersIni:ReadFile() == false ) then
+		return "Could not read users.ini!"
+	end
+	
+	local NumUsers = UsersIni:GetNumKeys()
+	
+	Content = Content .. "<table>"
+	
+	if( NumUsers > 0 ) then
+		Content = Content .. "<tr><th></th><th>User</th><th>Groups</th></tr>"
+	
+		for i=0, NumUsers-1 do
+			local UserName = UsersIni:GetKeyName( i )
+		
+			Content = Content .. "<tr>"
+			Content = Content .. "<td style='width: 10px;'>" .. i .. ".</td>"
+			Content = Content .. "<td>" .. UserName .. "</td>"
+			Content = Content .. "<td>"
+			Content = Content .. UsersIni:GetValue( UserName, "Groups", "-" )
+			Content = Content .. "</td>"
+			Content = Content .. "</tr>"
+		end
+	else
+		Content = Content .. "<tr><td>None</td></tr>"
+	end
+	Content = Content .. "</table>"
+	
+	
+	return Content
+end
+
+local function ShowGroupsTable()
+	local Content = "<h4>Groups</h4>"
+	
+	local GroupsIni = cIniFile("groups.ini")
+	if( GroupsIni:ReadFile() == false ) then
+		return "Could not read groups.ini!"
+	end
+	
+	local NumGroups = GroupsIni:GetNumKeys()
+	
+	Content = Content .. "<table>"
+	if( NumGroups > 0 ) then
+		Content = Content .. "<tr><th></th><th>Name</th><th>Permissions</th><th>Color</th></tr>"
+		
+		for i=0, NumGroups-1 do
+			local GroupName = GroupsIni:GetKeyName( i )
+		
+			Content = Content .. "<tr>"
+			Content = Content .. "<td style='width: 10px;'>" .. i .. ".</td>"
+			Content = Content .. "<td>" .. GroupName .. "</td>"
+			Content = Content .. "<td>"
+			Content = Content .. GroupsIni:GetValue( GroupName, "Permissions", "-" )
+			Content = Content .. "</td>"
+			Content = Content .. "<td>"
+			Content = Content .. GroupsIni:GetValue( GroupName, "Color", "-" )
+			Content = Content .. "</td>"
+			Content = Content .. "</tr>"
+		end
+	else
+		Content = Content .. "<tr><td>None</td></tr>"
+	end
+	Content = Content .. "</table>"
+	
+	return Content
+end
+
+function HandleRequest_Permissions( Request )
+	local Content = ""
+	
+	Content = Content .. ShowGroupsTable()
+	Content = Content .. ShowUsersTable()
+	
+	return Content
+end
\ No newline at end of file
-- 
cgit v1.2.3