implemented the rev1 FRequest protocol in the bundled programs

FRequest/OpenOS/etc/rc.d/fserv.lua

@@ -20,29 +20,44 @@ function start()
   buffer=s:read(1024)
   local nl = buffer:find("\n")
   if nl then
-   local path=prefix .. "/" .. buffer:sub(1,nl-1)
+   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 fs.isDirectory(path) then 
+    if rt == "t" then
-     if fs.exists(path.."/index") 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
-     local dbuffer = ""
-     for f in fs.list(path) do
-      dbuffer = dbuffer..f.."\n"
-      dprint(f)
-     end
-     s:write(dbuffer)
-     s:close()
     else
-     local f = io.open(path,"rb")
+     s:write(tostring(fs.size(path)))
-     s:write(f:read("*a"))
-     f:close()
      s:close()
     end
    else
     dprint("404")
-    s:write("file not found")
+    s:write("not found")
     s:close()
    end
   end

FRequest/OpenOS/usr/bin/fget.lua

@@ -12,7 +12,19 @@ if sep then
 end
 
 local socket = net.open(host,port)
-socket:write(path.."\n")
+socket:write("t"..path.."\n")
+local c = socket:read(1)
+repeat
+ c = socket:read(1)
+ os.sleep(0.5)
+until c ~= ""
+if c == "n" then 
+ print(path..": Not found.")
+elseif c == "f" then 
+ print("Failure: ")
+elseif c == "d" then
+ print("Directory listing for "..path)
+end
 repeat
  l = socket:read(1024)
  io.write(l)