sendmail.lua

local component = require "component"
local args = {...}

local firstAddr,restOfPath,returnPath,name,user,filename = args[1],args[2],args[3],args[4],args[5],args[6]

print("Filename: "..filename)
local modem = component.modem

local f = io.open(filename,"rb")
print "File opened"
local c = f:read("*a")
print "File read."
f:close()
local ct={}
repeat
 table.insert(ct,c:sub(1,4095))
 c=c:sub(4096)
 print("Chunk "..#ct.." separated")
until c==""

print "Beginning sending"
for k,v in pairs(ct) do
print("Part "..k)
modem.broadcast(42,firstAddr,restOfPath,returnPath,name,user,v)
end