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", Индекс));
 	РесурсПубликацииПакетов = ПолучитьЗначение(ТекущийСерверПакетов, "РесурсПубликацииПакетов", "/");