mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-01 03:53:33 +00:00
4effa23528
- POSIX regular expressions for Lua - Improved protocol parsing and encoding - Additional APIs for ZIP storage retrieval - Fix st_mode issue on NT for regular files - Generalized APIs for URL and Host handling - Worked out the kinks in resource resolution - Allow for custom error pages like /404.html
70 lines
1.5 KiB
Lua
70 lines
1.5 KiB
Lua
-- redbean post request handler demo
|
|
|
|
local function main()
|
|
if GetMethod() ~= 'POST' then
|
|
ServeError(405)
|
|
SetHeader('Allow', 'POST')
|
|
return
|
|
end
|
|
SetStatus(200)
|
|
SetHeader('Content-Type', 'text/html; charset=utf-8')
|
|
Write('<!doctype html>\r\n')
|
|
Write('<title>redbean</title>\r\n')
|
|
Write('<h3>POST Request HTML Form Handler Demo</h3>\r\n')
|
|
|
|
Write('<p>')
|
|
firstname = GetParam('firstname')
|
|
lastname = GetParam('lastname')
|
|
if firstname and lastname then
|
|
Write('Hello ')
|
|
Write(EscapeHtml(firstname))
|
|
Write(' ')
|
|
Write(EscapeHtml(lastname))
|
|
Write('!<br>')
|
|
Write('Thank you for using redbean.')
|
|
end
|
|
|
|
Write('<dl>\r\n')
|
|
|
|
Write('<dt>Params\r\n')
|
|
Write('<dd>\r\n')
|
|
Write('<dl>\r\n')
|
|
params = GetParams()
|
|
for i = 1,#params do
|
|
Write('<dt>')
|
|
Write(EscapeHtml(params[i][1]))
|
|
Write('\r\n')
|
|
if params[i][2] then
|
|
Write('<dd>')
|
|
Write(EscapeHtml(params[i][2]))
|
|
Write('\r\n')
|
|
end
|
|
end
|
|
Write('</dl>\r\n')
|
|
|
|
Write('<dt>Headers\r\n')
|
|
Write('<dd>\r\n')
|
|
Write('<dl>\r\n')
|
|
for k,v in pairs(GetHeaders()) do
|
|
Write('<dt>')
|
|
Write(EscapeHtml(k))
|
|
Write('\r\n')
|
|
Write('<dd>')
|
|
Write(EscapeHtml(v))
|
|
Write('\r\n')
|
|
end
|
|
Write('</dl>\r\n')
|
|
|
|
Write('<dt>Payload\r\n')
|
|
Write('<dd><p>')
|
|
Write(EscapeHtml(GetPayload()))
|
|
Write('\r\n')
|
|
|
|
Write('</dl>\r\n')
|
|
|
|
Write('<p>')
|
|
Write('<a href="redbean.lua">Click here</a> ')
|
|
Write('to return to the previous page.\r\n')
|
|
end
|
|
|
|
main()
|