Merge pull request #34 from 240596448/fix_rc

FIX: установка релиз-кандидатов

Author: nixel2007

src/core/Классы/ВерсииOneScript.os

@@ -241,7 +241,8 @@
 
 	ТелоСтраницы = Ответ.ПолучитьТелоКакСтроку();
 
-	РегулярноеВыражение = Новый РегулярноеВыражение("<a href=""(\/downloads\/[^""]+)"">(\d+\.\d+\.\d+(\.\d+)?)");
+	РегулярноеВыражение = Новый РегулярноеВыражение(
+		"<a href=""(\/downloads\/[^""]+)"">(" + ПараметрыOVM.МаскаНомераВерсии() + ")<");
 	ИндексГруппыАдрес = 1;
 	ИндексГруппыВерсия = 2;
 

src/core/Классы/ПараметрыOVM.os

@@ -54,14 +54,13 @@
 	Возврат СистемнаяИнформация.Это64БитнаяОперационнаяСистема;
 КонецФункции
 
-// Количество разрядов в номере версии.
-// В приложении используется версионирование вида 1.0.20
+// Регулярное выражение точного номера версии.
 //
 //  Возвращаемое значение:
-//   Число - Количество разрядов в номере версии
+//   Строка - Регулярное выражение
 //
-Функция КоличествоРазрядовВНомереВерсии() Экспорт
-	Возврат 3;
+Функция МаскаНомераВерсии() Экспорт
+	Возврат "\d+\.\d+\.\d+(\.rc\d+?)?";
 КонецФункции
 
 СистемнаяИнформация = Новый СистемнаяИнформация;

src/core/Классы/УстановщикOneScript.os

@@ -303,8 +303,15 @@
 
 КонецПроцедуры
 
+Функция ЭтоТочныйНомерВерсии(ВерсияКУстановке)
+	РВ = Новый РегулярноеВыражение("^" + ПараметрыOVM.МаскаНомераВерсии() + "$");
+	РВ.ИгнорироватьРегистр = Ложь;
+	РВ.МногоСтрочный = Ложь;
+	Возврат РВ.Совпадает(ВерсияКУстановке);
+КонецФункции
+
 Процедура ПроверитьКорректностьПереданнойВерсии(Знач ВерсияКУстановке)
-	Если СтрРазделить(ВерсияКУстановке, ".").Количество() <> ПараметрыOVM.КоличествоРазрядовВНомереВерсии()
+	Если НЕ ЭтоТочныйНомерВерсии(ВерсияКУстановке)
 		И Не ВерсииOneScript.ДопустимыеАлиасы().СодержитКлюч(ВерсияКУстановке) Тогда
 
 		Лог.Ошибка("Версия имеет некорректный формат");
@@ -315,7 +322,7 @@
 
 Функция ПолучитьПутьКСкачиваниюФайла(Знач ВерсияКУстановке, Знач ИспользоватьХ64, Знач ИспользоватьFDD)
 
-	Если СтрРазделить(ВерсияКУстановке, ".").Количество() = ПараметрыOVM.КоличествоРазрядовВНомереВерсии() Тогда
+	Если ЭтоТочныйНомерВерсии(ВерсияКУстановке) Тогда
 
 		КаталогВерсии = СтрЗаменить(ВерсияКУстановке, ".", "_");
 		ЭтоВерсия2 = СтроковыеФункции.СравнитьВерсии(ВерсияКУстановке, "2.0") >= 0;