Web-server.lua

-- /startup on the Page Server
-- Script to allow serving of "websites" in game with CC:tweaked
-- Should only be used on a "webserver"
-- Make sure advanced raid is attached and has disks in it
-- Intended to be used in conjunction with other scripts at links below
-- Website Editor: https://pastebin.com/xZpzw5Vt
-- Web Browser: https://pastebin.com/6Qt1U5RF
------------------------------
-- /startup on the Page Server
local drive = peripheral.wrap("right") or error("RAID drive not found")
local modem = peripheral.wrap("left") or error("Modem not found")
rednet.open(peripheral.getName(modem))
local SERVER_ID = os.getComputerID()

print("Page Server " .. SERVER_ID .. " online.")

while true do
  local sender, message = rednet.receive()
  if type(message) == "table" then
    if message.type == "request_page" then
      local pagePath = "/pages/" .. message.page .. ".page"
      if drive and drive.hasData and fs.exists(pagePath) then
        local file = fs.open(pagePath, "r")
        local content = file.readAll()
        file.close()
        rednet.send(sender, {type = "page_data", page = message.page, content = content})
      else
        rednet.send(sender, {type = "error", error = "Page not found."})
      end

    elseif message.type == "list_pages" then
      local pageList = {}
      if drive and drive.hasData and fs.exists("/pages") then
        for _, file in ipairs(fs.list("/pages")) do
          if file:match("%.page$") then
            local path = "/pages/" .. file
            local f = fs.open(path, "r")
            local content = f.readAll()
            f.close()
            local ok, page = pcall(textutils.unserialize, content)
            if ok and type(page) == "table" then
              table.insert(pageList, {
                page = file:gsub("%.page$", ""),
                title = page.title or file
              })
            end
          end
        end
      end
      rednet.send(sender, { type = "page_list", pages = pageList })
    end
  end
end