Добавлено формирование и сипользование файла конфигурации АС

src/Классы/МенеджерIbsrv.os

@@ -118,11 +118,7 @@
 	ПортПрямогоДоступа = ПортПрямогоДоступа(СдвигПортов);
 	ПортHttpДоступа = ПортHttpДоступа(СдвигПортов);
 
-	Если СдвигПортов > 0 Тогда
-		МенеджерАС.УстановитьПортПрямогоДоступа(ПортПрямогоДоступа);
-		МенеджерАС.УстановитьПортHttpДоступа(ПортHttpДоступа);
-	КонецЕсли;
-
+	СформироватьФайлКонфигурацииАС(СдвигПортов);
 	МенеджерАС.Запустить();
 
 КонецПроцедуры
@@ -174,6 +170,14 @@
 	Возврат 8314 + СдвигПортов; // BSLLS:MagicNumber-off
 КонецФункции
 
+Функция МинимальныйПортПодключения(СдвигПортов = 0)
+	Возврат 1560 + СдвигПортов; // BSLLS:MagicNumber-off
+КонецФункции
+
+Функция МаксимальныйПортПодключения(СдвигПортов = 0)
+	Возврат 1591 + СдвигПортов; // BSLLS:MagicNumber-off
+КонецФункции
+
 Функция ПортДоступен(ПортПроверки)
 
 	TCPСервер = Новый TCPСервер(ПортПроверки);
@@ -188,4 +192,32 @@
 
 КонецФункции
 
+Процедура СформироватьФайлКонфигурацииАС(СдвигПортов) 
+
+	ИмяИБ = "DefAlias";
+	РазрешитьВыдачуЛицензий = Истина;
+	РазрешитьРегламентныеЗадания = Ложь;
+
+	ПубликоватьСервисы = Истина;
+	ПубликоватьСервисыРасширений = Истина;
+
+	КонфигурацияАС = Новый КонфигурационныйФайлАС;
+	КонфигурацияАС.ПараметрыСервера(ПортHttpДоступа);
+	КонфигурацияАС.ПараметрыИБ(ИмяИБ, РазрешитьВыдачуЛицензий, РазрешитьРегламентныеЗадания);
+
+	КонфигурацияАС.ПараметрыХТТП();
+	КонфигурацияАС.ПараметрыВебСервисовОбщие(ПубликоватьСервисы, ПубликоватьСервисыРасширений);
+	КонфигурацияАС.ПараметрыХТТПСервисовОбщие(ПубликоватьСервисы, ПубликоватьСервисыРасширений);
+
+	КонфигурацияАС.ПараметрыШлюзаПрямогоДоступа(ПортПрямогоДоступа, 
+		МинимальныйПортПодключения(СдвигПортов), 
+		МаксимальныйПортПодключения(СдвигПортов));
+
+	ФайлКонфигурации = ОбъединитьПути(ВременныйКаталогДанныхСервера, "ibsrv.yaml");
+	КонфигурацияАС.СоздатьКонфигурационныйФайл(ФайлКонфигурации);
+
+	МенеджерАС.УстановитьКонфигурационныйФайл(ФайлКонфигурации);
+
+КонецПроцедуры
+
 #КонецОбласти