Experemental Net bridge

--[[
        Net bridge
        by BigSHinyToys
]]--

local function findDevice(sType)
    local tList = {}
    for _,sSide in pairs(rs.getSides()) do
        if peripheral.isPresent(sSide) and peripheral.getType(sSide) == sType then
            table.insert(tList,{device = peripheral.wrap(sSide) , side = sSide})
        end
    end
    return tList
end

local tModem = findDevice("modem")

local function openChan(freq)
    for _,tDevice in pairs(tModem) do
        tDevice.device.open(freq)
    end
end

local function reSend(tIn)
    for _,tDevice in pairs(tModem) do
        if tDevice.side ~= tIn[2] then
            tDevice.device.transmit(tIn[3],tIn[4],tIn[5])
        end
    end
end

openChan(65535)

while true do
    local event = {os.pullEvent()}
    if event[1] == "modem_message" then
        openChan(event[4])
        reSend(event)
    end
    --[[
    for i = 1,#event do
        write(tostring(event[i]).." ")
    end
    print("")
    ]]--
end