Pasted

rednet.open("top")
local Users = {}
local Message = {user = "", message = ""}
 
local file = fs.open("disk/ClientInfo.txt","r")
Users = textutils.unserialise(file.readAll())
file.close()
 
while true do
sendName = ""
sendID = 0
sendLoc = ""
senderName = ""
senderID = 0
ID, msg, dist, protocol = rednet.receive("FireMail")
message = msg[2]
for key,value in pairs(Users) do
    --print(value.dLoc)
    if (value.dLoc == nil) then
        for i = 2,7 do
            label = disk.getLabel("drive_"..i)
            if (label ~= nill) then
                label = string.lower(label)
            end
            --print(label)
            --print(value.name)
            if (label == value.name) then
                Users[key].dLoc = "disk"..i
                print(Users[key].dLoc)
            end
        end
    end
    if(string.lower(msg[1]) == value.name) then
        sendName = value.name
        sendID = value.id
        sendLoc = value.dLoc
    end
    if(ID == value.id) then
        senderID = value.id
        senderName = value.name
    end
end
 
if(sendID > 0 ) then
    rednet.send(ID,"OK","SCMail")
else
    rednet.send(ID,"INVALID ADRESS","SCMail")
end
print(senderName,"->",sendName,":",message)
Message.User = senderName
Message.message = msg[2]
Player = fs.open(sendLoc, "a")
Player.write(textutils.serialise(Message))
Player.close()
 
end