Internet • tsNetPostSync issues with AnythingLLM server document upload.

CODE:

command AI_AnythingLLM_File_Upload tInPathAndFile @tOutMessage @tOutResultCode @tOutFilename @tOutDocumentID @tOutResultMessage   ------------------------------------------------------------------   put "binfile:" & tInPathAndFile into tInBinPathAndFile   try      put URL tInBinPathAndFile into tFileContent   catch errorVariable      put "Error 1" into tOutResultCode      put "Could not Read file " & tInPathAndFile into tOutResultMessage      exit AI_AnythingLLM_File_Upload   end try   ------------------------------------------------------------------   put "Hello" into tFileContent   ------------------------------------------------------------------   set the itemdelimiter to "\"   put the last item of tInPathAndFile into tFilename   put tInPathAndFile into tInPath   delete the last item of tInPath   put "\" after tInPath   set the itemdelimiter to comma   ------------------------------------------------------------------   # API key and URL   # AnythingLLM API key   put "NH*******************DR65" into tApiKey //AnythingLLM   ------------------------------------------------------------------   put "http://localhost:3001/api/v1/document/upload" into tURLString   ------------------------------------------------------------------   -- Generate a unique boundary string   put "UniqueDataBoundary" & the ticks into tBoundary   ------------------------------------------------------------------   -- Construct the multipart/form-data body   put "" into tPostData  -- Initialize tPostData      put "--" & tBoundary & cr & ¬  -- Use cr instead of return   "Content-Disposition: form-data; name=" & quote & "file" & quote & "; filename=" & quote & tFilename & quote & cr & ¬   "Content-Type: text/csv" & cr & cr & ¬     tFileContent & cr & ¬   "--" & tBoundary & "--" & cr into tPostData    ------------------------------------------------------------------   -- Calculate the length of tPostData in bytes   put the length of tPostData into tContentLength   ------------------------------------------------------------------   -- Prepare headers   put "Content-Type: multipart/form-data; boundary=" & tBoundary & cr & ¬   "Content-Length: " & tContentLength & cr & ¬   "accept: application/json" & cr & ¬   "Authorization: Bearer " & tApiKey into tHeaders   ------------------------------------------------------------------   put tHeaders into tPrePostHeaders   ------------------------------------------------------------------   # Make the API call using TSNet   tsNetInit   put tsNetPostSync(tURLString, tHeaders, tPostData, tRecvHeaders, tResult, tBytes) into tData   tsNetClose   ------------------------------------------------------------------   put tResult into tOutResultCode   if tResult is not 200    then       put "--- Result ---" &return& "Could not upload file. Error code : " & tResult &return& "Data: " & tData &return& "RecvHeaders: " & tRecvHeaders &return&"--- Posted information ---" &return& "RequestString: " & tURLString &return&  "Headers: " & tHeaders &return& "PostData: " & tPostData into tOutResultMessage   else       put JSONtoArray(tData) into tResultArray      put tResultArray["textResponse"] into tOutResultMessage   end if   ------------------------------------------------------------------end AI_AnythingLLM_File_Upload