[Tree] use multipart form data for async file upload

src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs

@@ -17,7 +17,7 @@ import Web.File.FileReader.Aff (readAsText)
 
 import Gargantext.Components.Forest.Tree.Node.Action
 import Gargantext.Routes (SessionRoute(..))
-import Gargantext.Sessions (Session, postWwwUrlencoded)
+import Gargantext.Sessions (Session, postWwwUrlencoded, postMultipartFormData)
 import Gargantext.Types (class ToQuery, toQuery, NodeType(..), AsyncTask(..))
 import Gargantext.Utils (id)
 import Gargantext.Utils.Reactix as R2
@@ -169,7 +169,8 @@ instance fileUploadQueryToQuery :: ToQuery FileUploadQuery where
 
 uploadFile :: Session -> ID -> FileType -> UploadFileContents -> Aff AsyncTask
 uploadFile session id fileType (UploadFileContents fileContents) =
-    postWwwUrlencoded session p fileContents
+    --postWwwUrlencoded session p fileContents
+    postMultipartFormData session p fileContents
   where
     q = FileUploadQuery { fileType: fileType }
     p = NodeAPI Corpus (Just id) $ "add/file/async" <> Q.print (toQuery q)

src/Gargantext/Config/REST.purs

 module Gargantext.Config.REST where
 
-import Prelude (Unit, bind, pure, ($), (<$>), (<<<), (<>))
-
 import Affjax (defaultRequest, printResponseFormatError, request)
-import Affjax.RequestBody (RequestBody(..), string)
+import Affjax.RequestBody (RequestBody(..), formData, formURLEncoded, string)
 import Affjax.RequestHeader (RequestHeader(..))
 import Affjax.ResponseFormat as ResponseFormat
-import Effect.Class (liftEffect)
+import DOM.Simple.Console (log)
 import Data.Argonaut (class DecodeJson, decodeJson, class EncodeJson, encodeJson)
 import Data.Either (Either(..))
+import Data.Foldable (foldMap)
+import Data.FormURLEncoded as FormURLEncoded
 import Data.HTTP.Method (Method(..))
 import Data.Maybe (Maybe(..))
-import Data.MediaType.Common (applicationFormURLEncoded, applicationJSON)
-import Data.Foldable (foldMap)
-import DOM.Simple.Console (log)
+import Data.MediaType.Common (applicationFormURLEncoded, applicationJSON, multipartFormData)
+import Data.Tuple (Tuple(..))
 import Effect.Aff (Aff, throwError)
+import Effect.Class (liftEffect)
 import Effect.Exception (error)
+import Prelude (Unit, bind, pure, ($), (<$>), (<<<), (<>))
+import Web.XHR.FormData as XHRFormData
 
 type Token = String
 
@@ -80,7 +82,7 @@ postWwwUrlencoded mtoken url body = do
                           foldMap (\token ->
                             [RequestHeader "Authorization" $  "Bearer " <> token]
                           ) mtoken
-             , content  = Just $ string body
+             , content  = Just $ formURLEncoded urlEncodedBody
              }
   case affResp.body of
     Left err -> do
@@ -93,3 +95,30 @@ postWwwUrlencoded mtoken url body = do
       case decodeJson json of
         Left err -> throwError $ error $ "decodeJson affResp.body: " <> err
         Right b -> pure b
+  where
+    urlEncodedBody = FormURLEncoded.fromArray [Tuple "body" (Just body)]
+
+postMultipartFormData :: forall b. DecodeJson b => Maybe Token -> String -> String -> Aff b
+postMultipartFormData mtoken url body = do
+  fd <- liftEffect $ XHRFormData.new
+  _ <- liftEffect $ XHRFormData.append (XHRFormData.EntryName "body") body fd
+  affResp <- request $ defaultRequest
+             { url = url
+             , responseFormat = ResponseFormat.json
+             , method = Left POST
+             , headers = [ ContentType multipartFormData
+                         , Accept applicationJSON
+                         ] <>
+                         foldMap (\token ->
+                           [ RequestHeader "Authorization" $ "Bearer " <> token ]
+                         ) mtoken
+             , content = Just $ formData fd
+             }
+  case affResp.body of
+    Left err -> do
+      _ <-  liftEffect $ log $ printResponseFormatError err
+      throwError $ error $ printResponseFormatError err
+    Right json -> do
+      case decodeJson json of
+        Left err -> throwError $ error $ "decodeJson affResp.body: " <> err
+        Right b -> pure b

src/Gargantext/Sessions.purs

@@ -226,5 +226,8 @@ post session@(Session {token}) p = REST.post (Just token) (toUrl session p)
 postWwwUrlencoded :: forall b p. DecodeJson b => ToUrl Session p => Session -> p -> String -> Aff b
 postWwwUrlencoded session@(Session {token}) p = REST.postWwwUrlencoded (Just token) (toUrl session p)
 
+postMultipartFormData :: forall b p. DecodeJson b => ToUrl Session p => Session -> p -> String -> Aff b
+postMultipartFormData session@(Session {token}) p = REST.postMultipartFormData (Just token) (toUrl session p)
+
 getls :: Effect Storage
 getls = window >>= localStorage