Mercurial Hosting > luan

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


local send = Mail.Sender{
	host = "smtpcorp.com";
	username = "smtp@luanhost.com";
	password = "luanhost";
	port = 2525;
}.send

local function form()
%>
<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()
%>
<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.parameter.email
	if email == nil then
		form()
	else
		local file = Http.request.parameter.file
		send{
			from = "smtp@luanhost.com";
			to = email;
			subject = "Upload and Email";
			body = "file should be attached";
			attachments = {file};
		}
		sent()
	end
end
author	Franklin Schmidt <fschmidt@gmail.com>
date	Tue, 25 Aug 2015 10:07:37 -0600
parents	c8d4d69c6dd4
children	ca169567ce07