view website/src/examples/upload-and-email.html.luan @ 1789:bac27b119ff2

exit code 1 on exception
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 24 Dec 2023 16:52:35 -0700
parents 0c46edec25dd
children 92860f763715
line wrap: on
line source

local Io = require "luan:Io.luan"
local Http = require "luan:http/Http.luan"
local Mail = require "luan:mail/Mail.luan"


local send = Mail.sender{
	host = "smtpcorp.com"
	username = "smtp@luan.software"
	password = "luanhost"
	port = 2525
}.send

local function form()
%>
<!doctype html>
<html>
	<body>
		<h1>Upload and Email</h1>
		<form method="post" enctype="multipart/form-data">
			<p>Email: <input name=email></p>
			<p><input type=file name=file></p>
			<p><input type=submit></p>
		</form>
	</body>
</html>
<%
end

local function sent()
%>
<!doctype html>
<html>
	<body>
		<h1>Upload and Email</h1>
		<p>file sent</p>
	</body>
</html>
<%
end

return function()
	Io.stdout = Http.response.text_writer()
	local email = Http.request.parameters.email
	if email == nil then
		form()
	else
		local file = Http.request.parameters.file
		send{
			From = "smtp@luan.software"
			To = email
			Subject = "Upload and Email"
			body = {
				{
					body = "file should be attached"
				}
				{
					["Content-Type"] = file.content_type
					["Content-Disposition"] = [[attachment; filename="]]..file.filename..[["]]
					body = file.content
				}
			}
		}
		sent()
	end
end