OC-Minitel/FRequest/OpenOS/etc/rc.d/fserv.lua

local net = require "net"
local fs = require "filesystem"
local event = require "event"

local prefix = "/srv"
local process = nil
local listener = nil
local dbug = false

local function dprint(...)
 if dbug then
  print(...)
 end
end

function start()
 process = net.flisten(70,function(s)
 local buffer = ""
 local function lf()
  buffer=s:read(1024)
  local nl = buffer:find("\n")
  if nl then
   local rt = buffer:sub(1,1)
   local path=prefix .. "/" .. buffer:sub(2,nl-1)
   dprint(path)
   if path:find("%.%./") then
    s:write("f to pay respects")
    s:close()
    return
   end
   if fs.exists(path) then
    if rt == "t" then
     if fs.isDirectory(path) then 
      s:write("d")
      if fs.exists(path.."/index") then
       local f=io.open(path.."/index","rb")
       s:write(f:read("*a"))
       f:close()
      end
      local dbuffer = ""
      for f in fs.list(path) do
       dbuffer = dbuffer..f.."\n"
       dprint(f)
      end
      s:write(dbuffer)
      s:close()
     else
      s:write("y")
      local f = io.open(path,"rb")
      s:write(f:read("*a"))
      f:close()
      s:close()
     end
    else
     s:write(tostring(fs.size(path)))
     s:close()
    end
   else
    dprint("404")
    s:write("not found")
    s:close()
   end
  end
 end
 listener = lf
 event.listen("net_msg",lf)
 end)
end

function stop()
 event.ignore("net_msg",listener)
 event.ignore("net_msg",process)
end

function debug()
 dbug = not dbug
end
function set_path(newpath)
 if fs.exists(newpath) then
  prefix=newpath
  print("prefix = "..newpath)
 end
end