emeraldbank/receive_fields_wt.lua

local S = core.get_translator(core.get_current_modname())

-- Check the form

minetest.register_on_player_receive_fields(function(player, form, pressed)

	-- Wire transfer terminals
	if form == "atm.form.wt" or form == "atm.form.wtc" or form == "atm.form.wtl" then

		local n = player:get_player_name()

		if not pressed.quit then
			if form == "atm.form.wt" and pressed.transactions then
				-- transaction list (can be edited in the form, but than means nothing)
				atm.read_transaction(n)
				atm.showform_wtlist(player, atm.completed_transactions[n])
			elseif form == "atm.form.wtl" and pressed.transfer then
				atm.showform_wt(player)
			elseif form == "atm.form.wtl" and pressed.clr then
				-- clear all transactions in the player's list
				atm.read_transaction(n)
				atm.completed_transactions[n] = nil
				atm.write_transaction(n)
				minetest.chat_send_player(n, S("Your transaction history has been cleared"))
				atm.showform_wtlist(player, atm.completed_transactions[n])
			elseif form == "atm.form.wt" and pressed.pay then

				-- perform the checks of validity for wire transfer order
				-- if passed, store the data in a temporary table and show confirmation window
				atm.read_account(pressed.dstn)
				if not atm.balance[pressed.dstn] then
					minetest.chat_send_player(n, S("The Recipient <@1> is not registered in the banking system, aborting",
						pressed.dstn))
					atm.showform_wt(player)
				elseif not string.match(pressed.amnt, '^[0-9]+$') then
					minetest.chat_send_player(n, S("Invalid amount <@1>: must be an integer number, aborting", pressed.amnt))
					atm.showform_wt(player)
				elseif atm.balance[n] < tonumber(pressed.amnt) then
					minetest.chat_send_player(n, S("Your account does not have enough funds to complete this transfer, aborting"))
					atm.showform_wt(player)
				else
					atm.pending_transfers[n] = {to = pressed.dstn, sum = tonumber(pressed.amnt), desc = pressed.desc}
					atm.showform_wtconf(player, pressed.dstn, pressed.amnt, pressed.desc)
				end

			elseif form == "atm.form.wtc" then
				-- transaction processing
				local t = atm.pending_transfers[n]
				if not t then
					return
				end
				if not atm.completed_transactions[t.to] then
					atm.completed_transactions[t.to] = {}
				end
				atm.read_transaction(t.to)
				if atm.balance[n] < t.sum then
					-- you can never be too paranoid about the funds availaible
				   minetest.chat_send_player(n, S("Your account does not have enough funds to complete this transfer, aborting"))
				   if not t.extern then
				      atm.showform_wt(player)
				   else
				      minetest.close_formspec(n, "atm.form.wtc")
				   end
				   return
				end

				table.insert(atm.completed_transactions[t.to], {date=os.date("%Y-%m-%d"), from=n, sum=t.sum, desc=t.desc})
				atm.balance[n] = atm.balance[n] - t.sum
				atm.balance[t.to] = atm.balance[t.to] + t.sum
				atm.write_transaction(t.to)
				atm.save_account(n)
				atm.save_account(t.to)
				if minetest.get_modpath("mail") and mail.send then
				   mail.send({
					 from = "Emerald Bank",
					 to = t.to,
					 --cc = "carbon, copy",
					 --bcc = "blind, carbon, copy",
					 subject = S("Payment of @1 to @2 completed", t.sum, n),
					 body = S("Good news!\n\n@1 has transferred @2 emeralds to your bank account using the Emerald Bank Transfer System.\n\nTransfer description:\n\n@3", n, t.sum, t.desc)
				   })
				end
				minetest.chat_send_player(n, S("Payment of @1 to @2 completed", t.sum, t.to))
				minetest.chat_send_player(n, S("@1, thank you for choosing the Emerald Bank Transfer system", n))
				if t.callback then -- run callbacks from mods
				   t.callback(t)
				end
				if t.extern == true then -- Transfer was initiated by mod
				   atm.pending_transfers[n] = nil
				   minetest.close_formspec(n, "atm.form.wtc")
				   return
				end
				atm.pending_transfers[n] = nil
				atm.showform_wt(player)
			end
		else
			-- clear the pending transaction of the player, just in case
			if atm.pending_transfers[n] then
				atm.pending_transfers[n] = nil
			end
		end

	end

end)