1c/curlone
1
0
Fork 0
mirror of https://github.com/alei1180/curlone.git synced 2025-11-30 23:34:57 +02:00
Code Releases Activity

refactor: Улучшение читаемости кода

Browse Source
This commit is contained in:
Ivanov Dmitry
2024-11-08 15:32:31 +03:00
parent 91d13cbbee
commit a22e17340f
1 changed files with 54 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
src/Классы/КонстуркторПрограммногоКода1С.os
View File

@@ -5,6 +5,12 @@
Перем Заголовки;
Перем Метод;
Перем ИмяПараметраЗаголовки;
Перем ИмяПараметраHTTPСоединение;
Перем ИмяПараметраЗащищенноеСоединение;
Перем ИмяПараметраHTTPЗапрос;
Перем ИмяПараметраHTTPОтвет;
Процедура ПриСозданииОбъекта()
Результат = "";
@@ -12,6 +18,12 @@
Заголовки = Новый Соответствие();
Метод = "GET";
ИмяПараметраЗаголовки = "Заголовки";
ИмяПараметраHTTPСоединение = "Соединение";
ИмяПараметраЗащищенноеСоединение = "ЗащищенноеСоединение";
ИмяПараметраHTTPЗапрос = "HTTPЗапрос";
ИмяПараметраHTTPОтвет = "HTTPОтвет";
КонецПроцедуры
Функция Собрать() Экспорт
@@ -19,8 +31,18 @@
Результат = "";
Для Каждого URL Из МассивURL Цикл
СтруктураURL = Новый ПарсерURL(URL);
ВывестиЗаголовки();
ВывестиПустуюСтроку();
ВывестиHTTPЗапрос(URL);
ВывестиЗащищенноеСоединение(СтруктураURL);
ВывестиHTTPСоединение(СтруктураURL);
ВывестиПустуюСтроку();
ВывестиHTTPЗапрос(СтруктураURL);
ВывестиВызовHTTPМетода();
КонецЦикла;
@@ -55,10 +77,15 @@
КонецФункции
Функция ВывестиHTTPСоединение(СтруктураURL)
Процедура ВывестиЗащищенноеСоединение(СтруктураURL)
ИмяПараметра = "Соединение";
ИмяПараметраЗащищенноеСоединение = ВывестиЗащищенноеСоединение(СтруктураURL);
Если СтруктураURL.Схема = "https" Тогда
ВывестиСтроку(ИмяПараметраЗащищенноеСоединение + " = Новый ЗащищенноеСоединениеOpenSSL();");
КонецЕсли;
КонецПроцедуры
Процедура ВывестиHTTPСоединение(СтруктураURL)
ПараметрыФункции = Новый Массив;
ПараметрыФункции.Добавить(ОбернутьКавычками(СтруктураURL.Сервер));
@@ -69,60 +96,45 @@
ПараметрыФункции.Добавить(""); // Таймаут
ПараметрыФункции.Добавить(ИмяПараметраЗащищенноеСоединение);
ВывестиСтроку(СтрШаблон(ИмяПараметра + " = Новый HTTPСоединение(%1);", ПараметрыФункцииВСтроку(ПараметрыФункции, Истина)));
ВывестиСтроку(СтрШаблон(ИмяПараметраHTTPСоединение + " = Новый HTTPСоединение(%1);",
ПараметрыФункцииВСтроку(ПараметрыФункции, Истина)));
ВывестиПустуюСтроку();
КонецПроцедуры
Возврат ИмяПараметра;
Процедура ВывестиЗаголовки()
КонецФункции
Функция ВывестиЗащищенноеСоединение(СтруктураURL)
ИмяПараметра = "ЗащищенноеСоединение";
Если СтруктураURL.Схема = "https" Тогда
ВывестиСтроку(ИмяПараметра + " = Новый ЗащищенноеСоединениеOpenSSL();");
Иначе
ИмяПараметра = "";
Если Заголовки.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Возврат ИмяПараметра;
ВывестиСтроку(ИмяПараметраЗаголовки + " = Новый Соответствие();");
КонецФункции
Функция ВывестиЗаголовки()
ИмяПараметра = "Заголовки";
ВывестиСтроку(ИмяПараметра + " = Новый Соответствие();");
Для Каждого Заголовок Из Заголовки Цикл
СтрокаЗаголовка = СтрШаблон("%1.Вставить(""%2"", ""%3"");",
ИмяПараметра, Заголовок.Ключ, ЭкранироватьКавычки(Заголовок.Значение));
ИмяПараметраЗаголовки,
Заголовок.Ключ,
ЭкранироватьКавычки(Заголовок.Значение));
ВывестиСтроку(СтрокаЗаголовка);
КонецЦикла;
ВывестиПустуюСтроку();
КонецПроцедуры
Возврат ИмяПараметра;
КонецФункции
Процедура ВывестиHTTPЗапрос(URL)
СтруктураURL = Новый ПарсерURL(URL);
ИмяПараметра = ВывестиЗаголовки();
ИмяПараметраHTTPСоединение = ВывестиHTTPСоединение(СтруктураURL);
ИмяПараметраHTTPЗапрос = "HTTPЗапрос";
ИмяПараметраHTTPОтвет = "HTTPОтвет";
ИмяВыходногоФайла = "";
Процедура ВывестиHTTPЗапрос(СтруктураURL)
ПараметрыФункции = Новый Массив;
ПараметрыФункции.Добавить(ОбернутьКавычками(СтруктураURL.ПутьСПараметрами));
ПараметрыФункции.Добавить(ИмяПараметра);
ВывестиСтроку(СтрШаблон("HTTPЗапрос = Новый HTTPЗапрос(%1);", ПараметрыФункцииВСтроку(ПараметрыФункции)));
Если Заголовки.Количество() Тогда
ПараметрыФункции.Добавить(ИмяПараметраЗаголовки);
КонецЕсли;
ВывестиСтроку(СтрШаблон(ИмяПараметраHTTPЗапрос + " = Новый HTTPЗапрос(%1);", ПараметрыФункцииВСтроку(ПараметрыФункции)));
КонецПроцедуры
Процедура ВывестиВызовHTTPМетода()
ИмяВыходногоФайла = "";
ПараметрыФункции = Новый Массив;
ПараметрыФункции.Добавить(ОбернутьКавычками(Метод));
@@ -137,8 +149,6 @@
ИмяПараметраHTTPСоединение,
ПараметрыФункцииВСтроку(ПараметрыФункции)));
ВывестиПустуюСтроку();
КонецПроцедуры
Процедура ВывестиСтроку(Строка)