1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-07-03 00:58:12 +02:00
Code Issues Releases Activity

Преобразование OPI -> OInt (workflow)

Browse Source
This commit is contained in:
Vitaly the Alpaca
2024-06-01 16:51:53 +00:00
committed by Vitaly the Alpaca (bot)
parent 9e11f870f1
commit 4a0c475fa9
8 changed files with 22 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/en/OInt/core/Modules/OPI_Dropbox.os
View File

@ -821,7 +821,7 @@ Function GetRequestHeaders(Val Token, Val Parameters = "")
If ValueIsFilled(Parameters) Then If ValueIsFilled(Parameters) Then
JSON = OPI_Tools.JSONString(Parameters, "None"); JSON = OPI_Tools.JSONString(Parameters, "None");
JSON = StrReplace(JSON, Chars.CR + Chars.PS, ""); JSON = StrReplace(JSON, Chars.CR + Chars.LF, "");
Headers.Insert("Dropbox-API-Arg", JSON); Headers.Insert("Dropbox-API-Arg", JSON);

2
src/en/OInt/core/Modules/OPI_Telegram.os
View File

@ -205,7 +205,7 @@ Function ProcessTMAData(Val DataString, Val Token) Export
For Each DataString In TValue Do For Each DataString In TValue Do
If DataString.Key <> "hash" Then If DataString.Key <> "hash" Then
DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.PS; DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.LF;
ReturnMapping.Insert(DataString.Key, DataString.Value); ReturnMapping.Insert(DataString.Key, DataString.Value);
Else Else
Hash = DataString.Value; Hash = DataString.Value;

6
src/en/OInt/tools/Modules/OPI_TestDataRetrieval.os
View File

@ -363,11 +363,11 @@ Procedure WriteLog(Val Result, Val Method, Val Library = "") Export
Data = " " + Data; Data = " " + Data;
Message(Header); Message(Header);
Message(Chars.PS); Message(Chars.LF);
Message(Data); Message(Data);
Message(Chars.PS); Message(Chars.LF);
Message("---------------------------------"); Message("---------------------------------");
Message(Chars.PS); Message(Chars.LF);
If ValueIsFilled(Library) Then If ValueIsFilled(Library) Then
WriteLogFile(Data, Method, Library); WriteLogFile(Data, Method, Library);

12
src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os
View File

@ -666,7 +666,7 @@ Function ExecuteMultipartRequest(Val URL
Redirection = 300; Redirection = 300;
Error = 400; Error = 400;
Boundary = StrReplace(String(New UUID), "-", ""); Boundary = StrReplace(String(New UUID), "-", "");
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
DataType = "multipart/form-data; boundary=" + Boundary; DataType = "multipart/form-data; boundary=" + Boundary;
URLStructure = SplitURL(URL); URLStructure = SplitURL(URL);
Server = URLStructure["Server"]; Server = URLStructure["Server"];
@ -730,7 +730,7 @@ Function ExecuteMultipartRelatedRequest(Val URL
Redirection = 300; Redirection = 300;
Error = 400; Error = 400;
Boundary = StrReplace(String(New UUID), "-", ""); Boundary = StrReplace(String(New UUID), "-", "");
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
DataType = "multipart/related; boundary=" + Boundary; DataType = "multipart/related; boundary=" + Boundary;
URLStructure = SplitURL(URL); URLStructure = SplitURL(URL);
Server = URLStructure["Server"]; Server = URLStructure["Server"];
@ -839,7 +839,7 @@ EndProcedure
Procedure WriteMultipartParameters(TextRecord, Val Boundary, Val Parameters) Procedure WriteMultipartParameters(TextRecord, Val Boundary, Val Parameters)
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
For Each Parameter In Parameters Do For Each Parameter In Parameters Do
@ -878,7 +878,7 @@ EndProcedure
Procedure WriteMultipartFiles(TextRecord, Val Boundary, Val ContentType, Val Files) Procedure WriteMultipartFiles(TextRecord, Val Boundary, Val ContentType, Val Files)
ContentType = TrimAll(ContentType); ContentType = TrimAll(ContentType);
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
DotReplacement = "___"; DotReplacement = "___";
For Each File In Files Do For Each File In Files Do
@ -921,7 +921,7 @@ Procedure WriteRelatedFiles(TextRecord, Val Boundary, Val Files)
Return; Return;
EndIf; EndIf;
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
If TypeOf(Files) = Type("Map") Then If TypeOf(Files) = Type("Map") Then
For Each File In Files Do For Each File In Files Do
@ -976,7 +976,7 @@ Procedure WriteJSONMultipart(TextRecord, Val Boundary, Val JSON)
Return; Return;
EndIf; EndIf;
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
TextRecord.WriteLine("--" + boundary + LineSeparator); TextRecord.WriteLine("--" + boundary + LineSeparator);
TextRecord.WriteLine("Content-Type: application/json; charset=UTF-8"); TextRecord.WriteLine("Content-Type: application/json; charset=UTF-8");

2
src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl
View File

@ -821,7 +821,7 @@ Function GetRequestHeaders(Val Token, Val Parameters = "")
If ValueIsFilled(Parameters) Then If ValueIsFilled(Parameters) Then
JSON = OPI_Tools.JSONString(Parameters, "None"); JSON = OPI_Tools.JSONString(Parameters, "None");
JSON = StrReplace(JSON, Chars.CR + Chars.PS, ""); JSON = StrReplace(JSON, Chars.CR + Chars.LF, "");
Headers.Insert("Dropbox-API-Arg", JSON); Headers.Insert("Dropbox-API-Arg", JSON);

2
src/en/OPI/src/CommonModules/OPI_Telegram/Module.bsl
View File

@ -205,7 +205,7 @@ Function ProcessTMAData(Val DataString, Val Token) Export
For Each DataString In TValue Do For Each DataString In TValue Do
If DataString.Key <> "hash" Then If DataString.Key <> "hash" Then
DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.PS; DCS = DCS + DataString.Key + "=" + DataString.Value + Chars.LF;
ReturnMapping.Insert(DataString.Key, DataString.Value); ReturnMapping.Insert(DataString.Key, DataString.Value);
Else Else
Hash = DataString.Value; Hash = DataString.Value;

6
src/en/OPI/src/CommonModules/OPI_TestDataRetrieval/Module.bsl
View File

@ -363,11 +363,11 @@ Procedure WriteLog(Val Result, Val Method, Val Library = "") Export
Data = " " + Data; Data = " " + Data;
Message(Header); Message(Header);
Message(Chars.PS); Message(Chars.LF);
Message(Data); Message(Data);
Message(Chars.PS); Message(Chars.LF);
Message("---------------------------------"); Message("---------------------------------");
Message(Chars.PS); Message(Chars.LF);
If ValueIsFilled(Library) Then If ValueIsFilled(Library) Then
WriteLogFile(Data, Method, Library); WriteLogFile(Data, Method, Library);

12
src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl
View File

@ -666,7 +666,7 @@ Function ExecuteMultipartRequest(Val URL
Redirection = 300; Redirection = 300;
Error = 400; Error = 400;
Boundary = StrReplace(String(New UUID), "-", ""); Boundary = StrReplace(String(New UUID), "-", "");
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
DataType = "multipart/form-data; boundary=" + Boundary; DataType = "multipart/form-data; boundary=" + Boundary;
URLStructure = SplitURL(URL); URLStructure = SplitURL(URL);
Server = URLStructure["Server"]; Server = URLStructure["Server"];
@ -730,7 +730,7 @@ Function ExecuteMultipartRelatedRequest(Val URL
Redirection = 300; Redirection = 300;
Error = 400; Error = 400;
Boundary = StrReplace(String(New UUID), "-", ""); Boundary = StrReplace(String(New UUID), "-", "");
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
DataType = "multipart/related; boundary=" + Boundary; DataType = "multipart/related; boundary=" + Boundary;
URLStructure = SplitURL(URL); URLStructure = SplitURL(URL);
Server = URLStructure["Server"]; Server = URLStructure["Server"];
@ -839,7 +839,7 @@ EndProcedure
Procedure WriteMultipartParameters(TextRecord, Val Boundary, Val Parameters) Procedure WriteMultipartParameters(TextRecord, Val Boundary, Val Parameters)
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
For Each Parameter In Parameters Do For Each Parameter In Parameters Do
@ -878,7 +878,7 @@ EndProcedure
Procedure WriteMultipartFiles(TextRecord, Val Boundary, Val ContentType, Val Files) Procedure WriteMultipartFiles(TextRecord, Val Boundary, Val ContentType, Val Files)
ContentType = TrimAll(ContentType); ContentType = TrimAll(ContentType);
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
DotReplacement = "___"; DotReplacement = "___";
For Each File In Files Do For Each File In Files Do
@ -921,7 +921,7 @@ Procedure WriteRelatedFiles(TextRecord, Val Boundary, Val Files)
Return; Return;
EndIf; EndIf;
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
If TypeOf(Files) = Type("Map") Then If TypeOf(Files) = Type("Map") Then
For Each File In Files Do For Each File In Files Do
@ -976,7 +976,7 @@ Procedure WriteJSONMultipart(TextRecord, Val Boundary, Val JSON)
Return; Return;
EndIf; EndIf;
LineSeparator = Chars.CR + Chars.PS; LineSeparator = Chars.CR + Chars.LF;
TextRecord.WriteLine("--" + boundary + LineSeparator); TextRecord.WriteLine("--" + boundary + LineSeparator);
TextRecord.WriteLine("Content-Type: application/json; charset=UTF-8"); TextRecord.WriteLine("Content-Type: application/json; charset=UTF-8");