1
0
mirror of https://github.com/ShadowKatStudios/OC-Minitel.git synced 2024-11-23 18:48:06 +11:00
OC-Minitel/MMail/OpenOS/usr/bin/mmail-send.lua

46 lines
908 B
Lua
Raw Permalink Normal View History

local net = require "minitel"
local tArgs = {...}
local hostname = io.open("/etc/hostname","rb"):read()
if not tArgs[1] then
io.write("To: ")
tArgs[1] = io.read()
end
if not tArgs[2] then
io.write("From: ")
tArgs[2] = io.read()
print("\n")
end
if not tArgs[3] then
io.write("Subject: ")
tArgs[3] = io.read()
end
local user,host = tArgs[1]:match("(.+)@(.+)")
local from = tArgs[2] .. "@" .. hostname
subject = tArgs[3]
print("To: "..user.."@"..host)
print("From: "..from)
print("Subject: "..subject)
local fileID = tArgs[4]
if not fileID then
fileID = "/tmp/mail-"..tostring(math.random(1000000,9999999))
os.execute("edit "..fileID)
end
local f = io.open(fileID,"rb")
local message = f:read("*a")
f:close()
socket = net.open(host,25)
socket:write("To: "..user.."@"..host.."\n")
socket:write("From: "..from.."\n")
socket:write("Subject: "..subject.."\n")
socket:write(message)
socket:close()