fix #225: Убрано засилие 80 порта.

Author: dmpas

src/core/Классы/СерверПакетов.os

@@ -14,7 +14,7 @@
 Перем ПакетыХаба;
 
 Процедура ПриСозданииОбъекта(Знач ИмяСервера, Знач АдресСервер, Знач ВходящийПутьНаСервере = "",
-Знач ВходящийРесурсПубликацииПакетов = "", Знач ВходящийПорт = 80, Знач ВходящийПриоритет = 0,
+Знач ВходящийРесурсПубликацииПакетов = "", Знач ВходящийПорт = 0, Знач ВходящийПриоритет = 0,
 Знач ВходящаяАвторизация = Неопределено, Знач Заголовки = Неопределено, Знач ВходящийТаймаут = 60)
 
 Имя = ИмяСервера;
@@ -43,7 +43,6 @@
 Возврат Соединение;
 КонецЕсли;
 
-Порт = ?(Порт = Неопределено, 80, Порт);
 Настройки = НастройкиOpm.ПолучитьНастройки();
 Если Настройки.ИспользоватьПрокси Тогда
 НастройкиПрокси = НастройкиOpm.ПолучитьИнтернетПрокси();
@@ -166,7 +165,9 @@
 Результат.Вставить("Сервер", Сервер);
 Результат.Вставить("ПутьНаСервере", ПутьНаСервере);
 Результат.Вставить("РесурсПубликацииПакетов", РесурсПубликацииПакетов);
-Результат.Вставить("Порт", Порт);
+Если ЗначениеЗаполнено(Порт) Тогда
+Результат.Вставить("Порт", Порт);
+КонецЕсли;
 Результат.Вставить("Таймаут", Таймаут);
 Результат.Вставить("Авторизация", Авторизация);
 Результат.Вставить("Заголовки", ДополнительныеЗаголовки);

src/core/Модули/СерверыПакетов.os

@@ -2,7 +2,7 @@
 Функция ИзНастроек(Знач ТекущийСерверПакетов, Знач Индекс) Экспорт
 
 Сервер = ПолучитьЗначение(ТекущийСерверПакетов, "Сервер", "");
-Порт = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Порт", 80));
+Порт = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Порт", 0));
 ПутьНаСервере = ПолучитьЗначение(ТекущийСерверПакетов, "ПутьНаСервере", "/");
 Имя = ПолучитьЗначение(ТекущийСерверПакетов, "Имя", СтрШаблон("ДопСервер_%1", Индекс));
 РесурсПубликацииПакетов = ПолучитьЗначение(ТекущийСерверПакетов, "РесурсПубликацииПакетов", "/");