path: root/Plugins/Core/web_permissions.lua

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