local Luan = require "luan:Luan.luan"
local error = Luan.error
local String = require "luan:String.luan"
local to_lower = String.lower or error()
local Io = require "luan:Io.luan"
local Http = require "luan:http/Http.luan"
local Shared = require "site:/lib/Shared.luan"
local js_error = Shared.js_error or error()
local send_mail_async = Shared.send_mail_async or error()
local Utils = require "site:/lib/Utils.luan"
local email_regex = Utils.email_regex
local User = require "site:/lib/User.luan"
local new_code = User.new_code
local Db = require "site:/lib/Db.luan"
local run_in_transaction = Db.run_in_transaction or error()


return function()
	local user = User.current() or error()
	local email = Http.request.parameters.email or error()
	email_regex.matches(email) or error("bad email: "..email)
	local err_fld, err_msg = run_in_transaction( function()
		user = user.reload()
		if to_lower(user.email) == to_lower(email) then
			return "email", "Email unchanged"
		end
		if User.get_by_name(email) ~= nil then
			return "email", "This email is already taken"
		end
		user.new_email = email
		user.code = new_code()
		user.save()
	end )
	Io.stdout = Http.response.text_writer()
	if err_fld ~= nil then
		js_error(err_fld,err_msg)
		return
	end
	send_mail_async {
		From = "Link My Style <support@linkmy.style>"
		To = email
		Subject = "Confirmation code"
		body = `%>
Here is your 6 digit confirmation code:
<%=user.code%>
<%`
	}
%>
	clearErrors(context.form);
	location = '/change_email.html';
<%
end