2021-03-25 09:21:13 +00:00
|
|
|
-- redbean lua server page demo
|
|
|
|
|
|
|
|
|
|
local function main()
|
|
|
|
|
-- This check is optional.
|
|
|
|
|
-- We do this by default if you don't call GetMethod().
|
|
|
|
|
if GetMethod() ~= 'GET' and GetMethod() ~= 'HEAD' then
|
|
|
|
|
ServeError(405)
|
|
|
|
|
SetHeader('Allow', 'GET, HEAD')
|
|
|
|
|
return
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
-- These two lines are optional.
|
|
|
|
|
-- The default behavior is to do this if you don't.
|
|
|
|
|
SetStatus(200) -- Shorthand for SetStatus(200, "OK")
|
|
|
|
|
SetHeader('Content-Type', 'text/html; charset=utf-8')
|
|
|
|
|
|
|
|
|
|
-- Response data is buffered until the script finishes running.
|
|
|
|
|
-- Compression is applied automatically, based on your headers.
|
|
|
|
|
Write('<!doctype html>\n')
|
|
|
|
|
Write('<title>redbean</title>\n')
|
|
|
|
|
Write('<h1>redbean lua server page demo</h1>\n')
|
|
|
|
|
|
|
|
|
|
-- GetParams() returns an ordered list of Request-URI query params.
|
|
|
|
|
Write('<h3>request uri parameters</h3>\n')
|
|
|
|
|
params = GetParams()
|
|
|
|
|
if #params > 0 then
|
|
|
|
|
Write('<dl>\n')
|
|
|
|
|
for i = 1,#params do
|
|
|
|
|
Write('<dt>')
|
|
|
|
|
Write(EscapeHtml(params[i][1]))
|
|
|
|
|
Write('\n')
|
|
|
|
|
if params[i][2] then
|
|
|
|
|
Write('<dd>')
|
|
|
|
|
Write(EscapeHtml(params[i][2]))
|
|
|
|
|
Write('\n')
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
Write('</dl>\n')
|
|
|
|
|
else
|
|
|
|
|
Write('<p>\n')
|
|
|
|
|
Write('<em>none</em><br>\n')
|
|
|
|
|
Write('ProTip: Try <a href="')
|
|
|
|
|
Write(EscapeHtml(EscapePath(GetPath()) .. '?x=hi+there&y&z&z=' .. EscapeParam('&')))
|
|
|
|
|
Write('">clicking here</a>!\n')
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
main()
|
