Улучшен поиск последней версии при установке с файлового сервера.

Author: dmpas

src/core/Классы/ФайловыйСерверОтвет.os

@@ -1,5 +1,6 @@
 #Использовать semver
 
+Перем Лог;
 Перем КодСостояния Экспорт;
 Перем ИмяФайла;
 
@@ -32,22 +33,45 @@
 
 Процедура ПодобратьФайлПакета(Знач КаталогФайловПакета)
 
+	ИмяПакета = Новый Файл(КаталогФайловПакета).Имя;
+	ИмяСРазделителем = ИмяПакета + "-";
+
 	ФайлыПакета = НайтиФайлы(КаталогФайловПакета, "*.ospx");
 
 	ВыбранныйФайл = Неопределено;
 	ВыбраннаяВерсия = Неопределено;
 
 	Для Каждого мФайлПакета Из ФайлыПакета Цикл
 
-		Имя = мФайлПакета.ИмяБезРасширения;
-		Части = СтрРазделить(Имя, "-");
-		Если Части.Количество() > 1 Тогда
+		ИмяСВерсией = мФайлПакета.ИмяБезРасширения;
+		ТекущаяВерсия = Неопределено;
+
+		ФайлМетаданных = Новый Файл(ОбъединитьПути(мФайлПакета.Путь, ИмяСВерсией, КонстантыOpm.ИмяФайлаМетаданныхПакета));
+		Если ФайлМетаданных.Существует() Тогда
 
-			ВерсияТекст = Части[Части.ВГраница()];
-			ТекущаяВерсия = Версии.ВерсияИзСтроки(ВерсияТекст);
+			// есть сохраненный файл метаданных
+			МетаданныеПакета = РаботаСПакетами.ПрочитатьМетаданныеПакета(ФайлМетаданных.ПолноеИмя);
+			ТекущаяВерсия = Версии.ВерсияИзСтроки(МетаданныеПакета.Свойства().Версия);
+
+		ИначеЕсли СтрНачинаетсяС(ИмяСВерсией, ИмяСРазделителем) Тогда
+
+			// извлекаем номер версии из имени файла
+			ВерсияИзИмениФайла = Сред(ИмяСВерсией, СтрДлина(ИмяСРазделителем) + 1);
+			Если Не ПустаяСтрока(ВерсияИзИмениФайла) Тогда
+				ТекущаяВерсия = Версии.ВерсияИзСтроки(ВерсияИзИмениФайла);
+			КонецЕсли;
+
+		Иначе
+			// Файл не по канону - пропустим
+			Лог.Отладка("Файл %1 не соответствует правилам расположения файлов пакета.", мФайлПакета.ПолноеИмя);
+		КонецЕсли;
 
-			Если (ВыбраннаяВерсия = Неопределено)
-				Или (ВыбраннаяВерсия.Сравнить(ТекущаяВерсия) < 0) Тогда
+		Если (ТекущаяВерсия <> Неопределено) Тогда
+
+			Лог.Отладка("Найден файл %1 с версией %2", мФайлПакета.ПолноеИмя, ТекущаяВерсия.ВСтроку());
+
+			Если ((ВыбраннаяВерсия = Неопределено)
+				Или (ВыбраннаяВерсия.Сравнить(ТекущаяВерсия) < 0)) Тогда
 
 				ВыбраннаяВерсия = ТекущаяВерсия;
 				ВыбранныйФайл = мФайлПакета;
@@ -59,8 +83,14 @@
 	КонецЦикла;
 
 	Если ВыбранныйФайл <> Неопределено Тогда
+
+		Лог.Отладка("Для пакета %1 подобрана версия %2", ИмяПакета, ВыбраннаяВерсия.ВСтроку());
+
 		ИмяФайла = ВыбранныйФайл.ПолноеИмя;
 		КодСостояния = 200;
+
 	КонецЕсли;
 
 КонецПроцедуры
+
+Лог = Логирование.ПолучитьЛог("oscript.app.opm.fileserver");