From 7677b3296255552ad94233f1d8ed9ddf84a9518c Mon Sep 17 00:00:00 2001
From: qvalentin <valentin.theodor@web.de>
Date: Fri, 28 May 2021 16:56:30 +0200
Subject: [PATCH 1/2] FF-467 add preview endpoint

---
 app/Main.hs | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 57 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index a13e041..57484b8 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -72,6 +72,7 @@ app req send =
     ["data", "upload", id] -> upload req send
     ["data", "download"] -> download req send
     ["data", "delete", id] -> delete req send
+    ["data","preview",id] -> preview req send
     ["data", "health"] -> health req send
     -- anything else: 404
     missingEndpoint ->
@@ -152,7 +153,7 @@ postApi allHeaders file restUrl fileId = runReq (defaultHttpConfig {httpConfigCh
     req
       POST -- method
       --(http (DataText.pack restUrl) /: "t/os3vu-1615111052/post")
-      (http (DataText.pack restUrl) /: "api" /: "v1" /: "filesystem" /: DataText.pack fileId /: "upload")
+      (http (DataText.pack restUrl)  /: "v1" /: "filesystem" /: DataText.pack fileId /: "upload")
       (ReqBodyJson payload) -- use built-in options or add your own
       bsResponse -- specify how to interpret response
       (header "Authorization" (getOneHeader allHeaders "Authorization") <> port 8080)
@@ -237,8 +238,63 @@ getApi allHeaders param restUrl = runReq (defaultHttpConfig {httpConfigCheckResp
       bsResponse -- specify how to interpret response
       (header "X-FF-IDS" (getOneHeader allHeaders "X-FF-IDS") <> header "Cookie" (getOneHeader allHeaders "Cookie") <> port 8080 <> (=:) "ids" param) --PORT !!
       -- mempty -- query params, headers, explicit port number, etc.
+  liftIO $ logStdOut $ show (getOneHeader allHeaders "Cookie")
   return (responseBody r, responseStatusCode r, responseStatusMessage r, responseHeader r "X-FF-NAME")
 
+
+
+preview :: Application 
+preview req send = do
+  let headers = requestHeaders req
+      id = pathInfo req !! 2
+  restUrl <- getRestUrl
+  (responseBody, responseStatusCode, responseStatusMessage) <- previewApi headers id restUrl
+  case responseStatusCode of
+    200 -> do
+      let decoded = (eitherDecode $ L.fromStrict responseBody) :: (Either String RestResponseFile)
+      case decoded of
+        Left err ->
+          send $ 
+           responseLBS
+              HttpTypes.status500
+              [("Content-Type", "application/json; charset=utf-8")]
+              (encode $ RestApiStatus err "Internal Server Error")
+        Right file -> do 
+            let fileID = fileSystemId file
+                fileMimeType = fromMaybe "application/octet-stream" (mimeType file)
+                path = getPathFromFileId $ show fileID
+            send $
+              responseFile
+                HttpTypes.status200
+                [ ("Content-Type", S8.pack fileMimeType)
+                ]
+                path
+                Nothing
+    _ ->
+      send $
+        responseLBS
+          (HttpTypes.mkStatus responseStatusCode responseStatusMessage)
+          [("Content-Type", "application/json; charset=utf-8")]
+          (L.fromStrict responseBody)
+                 
+
+
+
+previewApi :: [HttpTypes.Header] -> DataText.Text -> String -> IO (S8.ByteString, Int, S8.ByteString)
+previewApi allHeaders id restUrl = runReq (defaultHttpConfig {httpConfigCheckResponse = httpConfigDontCheckResponse}) $ do
+  r <-
+    req
+      GET -- method
+      (http (DataText.pack restUrl)  /: "v1" /: "filesystem" /:  id /: "info" ) -- safe by construction URL
+      --(http (DataText.pack restUrl) /: "v1" /: "filesystem" /:  id /: "info" ) -- safe by construction URL
+      NoReqBody -- use built-in options or add your own
+      bsResponse -- specify how to interpret response
+      (header "Cookie" (getOneHeader allHeaders "Cookie") <> port 8080) --PORT !!
+      -- mempty -- query params, headers, explicit port number, etc.
+  liftIO $ logStdOut $ show (getOneHeader allHeaders "Cookie")
+  return (responseBody r, responseStatusCode r, responseStatusMessage r)
+  
+
 delete :: Application
 delete req send = do
   logStdOut "requesting delete"

From 9db0d62226ae963e0e21f97781bda34f036c395a Mon Sep 17 00:00:00 2001
From: qvalentin <valentin.theodor@web.de>
Date: Fri, 28 May 2021 17:28:28 +0200
Subject: [PATCH 2/2] change url path

---
 app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 57484b8..4f9d4d5 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -153,7 +153,7 @@ postApi allHeaders file restUrl fileId = runReq (defaultHttpConfig {httpConfigCh
     req
       POST -- method
       --(http (DataText.pack restUrl) /: "t/os3vu-1615111052/post")
-      (http (DataText.pack restUrl)  /: "v1" /: "filesystem" /: DataText.pack fileId /: "upload")
+      (http (DataText.pack restUrl) /: "api" /: "v1" /: "filesystem" /: DataText.pack fileId /: "upload")
       (ReqBodyJson payload) -- use built-in options or add your own
       bsResponse -- specify how to interpret response
       (header "Authorization" (getOneHeader allHeaders "Authorization") <> port 8080)
@@ -285,7 +285,7 @@ previewApi allHeaders id restUrl = runReq (defaultHttpConfig {httpConfigCheckRes
   r <-
     req
       GET -- method
-      (http (DataText.pack restUrl)  /: "v1" /: "filesystem" /:  id /: "info" ) -- safe by construction URL
+      (http (DataText.pack restUrl) /: "api" /: "v1" /: "filesystem" /:  id /: "info" ) -- safe by construction URL
       --(http (DataText.pack restUrl) /: "v1" /: "filesystem" /:  id /: "info" ) -- safe by construction URL
       NoReqBody -- use built-in options or add your own
       bsResponse -- specify how to interpret response