From fbef63f9b0d4b4cfc9a2907adab8b5baf31af0f1 Mon Sep 17 00:00:00 2001
From: XeonSquared <redtailedairways@gmail.com>
Date: Fri, 2 Aug 2019 15:57:13 +1000
Subject: [PATCH] made fserv able to serve http(s)

---
 service/fserv.lua | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/service/fserv.lua b/service/fserv.lua
index 4c518f5..4d08170 100644
--- a/service/fserv.lua
+++ b/service/fserv.lua
@@ -48,11 +48,28 @@ local function fileHandler(socket,rtype,path)
  else
   socket:write("fUnknown request type")
  end
- socket:close()
 end
 local function httpHandler(socket,rtype,path)
- socket:write("fHTTP requests are not yet implemented.")
- socket:close()
+ local tPath = fs.segments(path)
+ local proto = table.remove(tPath,1)
+ local url = string.format("%s://%s",proto,table.concat(tPath,"/"))
+ local request = component.invoke(component.list("internet")(),"request",url)
+ repeat
+  coroutine.yield()
+ until request.finishConnect()
+ local code, message, headers = request.response()
+ if code < 200 or code > 299 then
+  socket:write(string.format("f%d\n%s",code,message))
+ else
+  local data = ""
+  repeat
+   coroutine.yield()
+   data = request.read()
+   if data then
+    socket:write(data)
+   end
+  until not data
+ end
 end
 
 local function socketHandler(socket)
@@ -63,7 +80,7 @@ local function socketHandler(socket)
    line = socket:read()
   until line
   local rtype, path = line:match("(.)(.+)")
-  if path:sub(1,6) == "/http/" or path:sub(1,5) == "http/" then
+  if fs.segments(path)[1] == "http" or fs.segments(path)[1] == "https" then
    httpHandler(socket,rtype,path)
   else
    path = (cfg.path .. "/" .. path:gsub("../","")):gsub("/+","/")
@@ -74,5 +91,5 @@ local function socketHandler(socket)
 end
 
 while true do
- os.spawn(socketHandler(minitel.listen(70)))
+ os.spawn(socketHandler(minitel.listen(70)),"fserv worker process")
 end