server

local component = require("component")
local m = component.modem
local fs = require("filesystem")
local event = require("event")


conf = {}


function loadcfg()
  local f = fs.open("/home/qclient.conf", "r")
  local fc = f:read(fs.size("/home/qclient.conf"))
  conf = split(fc, ";")
end


function split(s, sep)
  if sep == nil then
    sep = "%s"
  end
  local t = {}
  for str in string.gmatch(s, "([^".. sep .."]+)") do
    table.insert(t, str)
  end
  return t
end


function getpage(p)
  local f = fs.open("/home/QServer/mctpdocs/".. p, "r")
  local fc = f:read(fs.size("/home/QServer/mctpdocs/".. p))
  print(p)
  return fc
end


function handlerequest(r)
  mctp = split(r[4], "/")
  print("(:)             " .. mctp[1] .. " " .. mctp[2])
  if mctp[1] == "mctp" then
    page = getpage(mctp[2])
    m.send(conf[1], 1110, conf[2] ..";".. r[1] ..";DATA;".. page)
  end
end


function listen(_, _, from, _, _, msg)
  handlerequest(split(msg, ";"))
end


function stop()
  event.ignore("modem_message", listen)
  print("(:) Stopping...")
end


function start()
  m.open(1110)
  print("(:) Start...")
  print("(:) Booted up!")
  event.listen("modem_message", listen)
end

loadcfg()
start()
event.pull("touch")
stop()