$debug
info = {
{ "Name: " , cgi.name },
{ "Address: " , cgi.address},
{ "City district: " , cgi.district },
{ "State : " , cgi.state },
{ "ZIP: " , cgi.zip },
{ "Telephone: " , cgi.tel },
{ "Email: " , cgi.email },
{ "More information: " , cgi.moreinfo },
}
function preparemessage()
local i = 1
local msg = ''
while info[i] do
msg = msg .. format('%s %s\n', info[i][1], info[i][2])
i = i + 1
end
return msg
end
-- send email
mail{ to="tomas@tecgraf.puc-rio.br", from="cgilua@tecgraf.puc-rio.br",
subject="WWW Registration", message=preparemessage(), mailserver="139.82.85.1" }
-- show response page
cgilua.htmlheader()
write('')
write('Success in Registration')
write('')
write('')
write('Information submitted:
')
write('')
i = 1
while info[i] do
write(format('%s %s
',info[i][1],info[i][2]))
i = i+1
end
write('')
write('')