IntercityModem - ReceiveFromRed

-- ClosedFiber Internet Everywhere
-- Cluster per Neihemiah - ITCC2
connect = 122
rednet.open('top')
modem = peripheral.wrap('right')

print("ClosedFiber Cluster ITC22")
print("Avviamento in corso...")
shell.run("id")

modem.setListening(81, true)
-- modem listening event
function listen()
  print("Listening started")
  local event, side, id, channel, message = os.pullEvent("lan_message")
  print("HTTP Challeng to "..message..":"..channel)
  rednet.send(connect, message)
  print("HTTP Challenge for-ww to mod")
  local irc, messageReturn, ms = rednet.receive(5)
  if messageReturn == nil then
    messageReturn = '404'
  end
  print("Got a response: ".. messageReturn)
  modem.sendChannel(80, messageReturn)
  listen()
end

listen()