1
0
mirror of https://github.com/ShadowKatStudios/OC-Minitel.git synced 2024-12-25 09:58:04 +11:00

added mmail-send, so you can vaguely send mmails

This commit is contained in:
Izaya 2018-03-09 19:21:24 +11:00
parent 08606d80da
commit 9286b96d00

View File

@ -0,0 +1,45 @@
local net = require "net"
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()