mirror of
https://github.com/ShadowKatStudios/OC-Minitel.git
synced 2024-11-08 11:28:06 +11:00
84 lines
1.5 KiB
Lua
84 lines
1.5 KiB
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
|