summaryrefslogtreecommitdiff
path: root/marigold.lua
blob: 02c9bbe0eedaf20c5882ea9d43c96efbb6fb8336 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
-- ANTI-CAPITALIST SOFTWARE LICENSE (v 1.4)
-- 
--  marigold-cgi Copyright (c) 2022 Kate Swanson
-- 
-- This is anti-capitalist software, released for free use by individuals and 
-- organizations that do not operate by capitalist principles.
-- 
-- Permission is hereby granted, free of charge, to any person or organization (
-- the "User") obtaining a copy of this software and associated documentation 
-- files (the "Software"), to use, copy, modify, merge, distribute, and/or sell 
-- copies of the Software, subject to the following conditions:
-- 
-- 1. The above copyright notice and this permission notice shall be included in 
-- all copies or modified versions of the Software.
-- 
-- 2. The User is one of the following:
-- 	a. An individual person, laboring for themselves
-- 	b. A non-profit organization
-- 	c. An educational institution
-- 	d. An organization that seeks shared profit for all of its members, and allows 
-- 	   non-members to set the cost of their labor
-- 
-- 3. If the User is an organization with owners, then all owners are workers and 
--    all workers are owners with equal equity and/or equal vote.
-- 
-- 4. If the User is an organization, then the User is not law enforcement or 
--    military, or working for or under either.
-- 
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT EXPRESS OR IMPLIED WARRANTY OF ANY 
-- KIND, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS 
-- FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS BE 
-- LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
-- CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 
-- SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.


local marigold = {}

marigold.get_metavars = function()
	local vars = {
		"AUTH_TYPE", "CONTENT_LENGTH",
		"CONTENT_TYPE", "GATEWAY_INTERFACE",
		"PATH_INFO", "PATH_TRANSLATED",
		"QUERY_STRING", "REMOTE_ADDR",
		"REMOTE_HOST", "REMOTE_IDENT",
		"REMOTE_USER", "REQUEST_METHOD",
		"SCRIPT_NAME", "SERVER_NAME",
		"SERVER_PORT", "SERVER_PROTOCOL",
		"SERVER_SOFTWARE"
	}	

	local metavars = {}
	for _, var in ipairs(vars) do
		metavars[string.lower(var)] = os.getenv(var)
	end
	return metavars
end


marigold.h = function(tag_type, content, tbl)
	if type(content) == 'table' and tbl == nil then
		tbl = content
		content = ''
	end

	local tag = {}
	tag.tag = tag_type
	tag.content = content
	tag.attributes = {}
	tag.children = {}

	if tbl then
		-- add attributes
		for k, v in pairs(tbl) do
			if type(k) == 'string' then
				tag.attributes[k] = v
			end
		end
		-- add children
		for _, child in ipairs(tbl) do
			table.insert(tag.children, child)
		end
	end
	return tag
end


marigold.html = function(tbl, indent_level)
	indent_level = indent_level or 0
	local indent = string.rep('\t', indent_level)

	-- generate attribute strings
	local attributes = {}
	for k, v in pairs(tbl.attributes) do
		table.insert(attributes, string.format(' %s="%s"', k, v))
	end
	if test then
		-- sort alphabetically for well-defined testing
		table.sort(attributes)
	end
	local a = ''
	for _, attrib in ipairs(attributes) do
		a = a .. attrib
	end

	local open = string.format('<%s%s>', tbl.tag, a)
	local close = string.format('</%s>', tbl.tag)

	if #tbl.children == 0 then
		return string.format('%s%s%s%s', indent, open, tbl.content, close)
	end

	local children = ''
	for _, child in ipairs(tbl.children) do
		children = children .. marigold.html(child, indent_level+1) .. '\n'
	end

	return string.format('%s%s%s\n%s%s%s',
		indent, open, tbl.content,
		children,
		indent, close)
end

marigold.percentDecode = function(str)
	return string.gsub(str, "%%(%x%x)", function(digits)
		return string.char(tonumber(digits, 16))
	end)
end


return marigold