Merge pull request #38 from oscript-library/develop

1.4.0

Author: sfaqer

packagedef

@@ -1,5 +1,5 @@
 Описание.Имя("ovm")
-	.Версия("1.3.0")
+	.Версия("1.4.0")
 	.Автор("Nikita Gryzlov")
 	.АдресАвтора("nixel2007@gmail.com")
 	.Описание("OneScript Version Manager")

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

@@ -216,59 +216,23 @@
 //
 Функция ПолучитьСписокДоступныхКУстановкеВерсий() Экспорт
 
-	ДоступныеВерсии = Новый ТаблицаЗначений;
-	ДоступныеВерсии.Колонки.Добавить("Алиас");
-	ДоступныеВерсии.Колонки.Добавить("Путь");
-	
-	АдресСайтаОСкрипт = ПараметрыOVM.АдресСайтаОСкрипт();
-	
 	Таймаут = 10;
 	Соединение = Новый HTTPСоединение(
-		АдресСайтаОСкрипт,
+		ПараметрыOVM.АдресСайтаОСкрипт(),
 		,
 		,
 		,
 		,
 		Таймаут
 	);
-	Запрос = Новый HTTPЗапрос("downloads");
-	
-	Ответ = Соединение.Получить(Запрос);
-	HTTP_OK = 200;
-	Если Ответ.КодСостояния <> HTTP_OK Тогда
-		ВызватьИсключение Ответ.КодСостояния;
-	КонецЕсли;
-	
-	ТелоСтраницы = Ответ.ПолучитьТелоКакСтроку();
-	
-	РегулярноеВыражение = Новый РегулярноеВыражение(
-		"<a href=""(\/downloads\/[^""]+)"">(" + ПараметрыOVM.МаскаНомераВерсии() + ")<");
-	ИндексГруппыАдрес = 1;
-	ИндексГруппыВерсия = 2;
-
-	Совпадения = РегулярноеВыражение.НайтиСовпадения(ТелоСтраницы);
-	Для Каждого СовпадениеРегулярногоВыражения Из Совпадения Цикл
-		ГруппаАдрес = СовпадениеРегулярногоВыражения.Группы[ИндексГруппыАдрес];
-		ГруппаВерсия = СовпадениеРегулярногоВыражения.Группы[ИндексГруппыВерсия];
-		
-		// TODO: Убрать после решения https://github.com/EvilBeaver/OneScript/issues/667
-		Если ГруппаВерсия.Значение = "1.0.9" Тогда
-			Продолжить;
-		КонецЕсли;
-
-		ДоступнаяВерсия = ДоступныеВерсии.Добавить();
-		ДоступнаяВерсия.Алиас = ГруппаВерсия.Значение;
-		ДоступнаяВерсия.Путь = АдресСайтаОСкрипт + ГруппаАдрес.Значение;
-	КонецЦикла;
 
-	Итератор = ДопустимыеАлиасы().Ключи().Итератор();
-
-	Пока Итератор.ЕстьСледующий() Цикл
-		ОбеспечитьСтрокуВерсииПоАлиасу(ДоступныеВерсии, Итератор.Следующий(), "Путь");
-	КонецЦикла;
+	ДоступныеВерсии = ТаблицаДоступныхВерсий();
 
+	Если Не ПолучитьВерсииПоAPI(Соединение, ДоступныеВерсии) Тогда
+		ПолучитьВерсииРазборомHTML(Соединение, ДоступныеВерсии);
+	КонецЕсли;
+	
 	Возврат ДоступныеВерсии;
-
 КонецФункции
 
 // <Описание функции>
@@ -356,6 +320,82 @@
 
 КонецФункции
 
+Функция ТаблицаДоступныхВерсий()
+	ДоступныеВерсии = Новый ТаблицаЗначений;
+	ДоступныеВерсии.Колонки.Добавить("Алиас");
+	ДоступныеВерсии.Колонки.Добавить("Путь");
+
+	Возврат ДоступныеВерсии;
+КонецФункции
+
+Функция ПолучитьВерсииПоAPI(Знач Соединение, Знач ДоступныеВерсии)
+	Запрос = Новый HTTPЗапрос("api/archive");
+	Ответ = Соединение.Получить(Запрос);
+	HTTP_OK = 200;
+	Если Ответ.КодСостояния <> HTTP_OK Тогда
+		Возврат Ложь;
+	КонецЕсли;
+
+	ЧтениеJSON = Новый ЧтениеJSON();
+	ЧтениеJSON.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
+	
+	АдресСайтаОСкрипт = ПараметрыOVM.АдресСайтаОСкрипт();
+	МассивВерсий = ПрочитатьJSON(ЧтениеJSON, Ложь);
+	Для Каждого ОписаниеВерсии Из МассивВерсий Цикл
+		ДоступнаяВерсия = ДоступныеВерсии.Добавить();
+		ДоступнаяВерсия.Алиас = ОписаниеВерсии.presentation;
+		ДоступнаяВерсия.Путь = АдресСайтаОСкрипт + ОписаниеВерсии.link;
+	КонецЦикла;
+
+	Итератор = ДопустимыеАлиасы().Ключи().Итератор();
+
+	Пока Итератор.ЕстьСледующий() Цикл
+		ОбеспечитьСтрокуВерсииПоАлиасу(ДоступныеВерсии, Итератор.Следующий(), "Путь");
+	КонецЦикла;
+
+	Возврат Истина;
+КонецФункции
+
+Процедура ПолучитьВерсииРазборомHTML(Знач Соединение, Знач ДоступныеВерсии)
+	Запрос = Новый HTTPЗапрос("downloads");
+	
+	Ответ = Соединение.Получить(Запрос);
+	HTTP_OK = 200;
+	Если Ответ.КодСостояния <> HTTP_OK Тогда
+		ВызватьИсключение Ответ.КодСостояния;
+	КонецЕсли;
+	
+	ТелоСтраницы = Ответ.ПолучитьТелоКакСтроку();
+	
+	РегулярноеВыражение = Новый РегулярноеВыражение(
+		"<a href=""(\/downloads\/[^""]+)"">(" + ПараметрыOVM.МаскаНомераВерсии() + ")<");
+	ИндексГруппыАдрес = 1;
+	ИндексГруппыВерсия = 2;
+
+	АдресСайтаОСкрипт = ПараметрыOVM.АдресСайтаОСкрипт();
+	Совпадения = РегулярноеВыражение.НайтиСовпадения(ТелоСтраницы);
+	Для Каждого СовпадениеРегулярногоВыражения Из Совпадения Цикл
+		ГруппаАдрес = СовпадениеРегулярногоВыражения.Группы[ИндексГруппыАдрес];
+		ГруппаВерсия = СовпадениеРегулярногоВыражения.Группы[ИндексГруппыВерсия];
+		
+		// TODO: Убрать после решения https://github.com/EvilBeaver/OneScript/issues/667
+		Если ГруппаВерсия.Значение = "1.0.9" Тогда
+			Продолжить;
+		КонецЕсли;
+
+		ДоступнаяВерсия = ДоступныеВерсии.Добавить();
+		ДоступнаяВерсия.Алиас = ГруппаВерсия.Значение;
+		ДоступнаяВерсия.Путь = АдресСайтаОСкрипт + ГруппаАдрес.Значение;
+	КонецЦикла;
+
+	Итератор = ДопустимыеАлиасы().Ключи().Итератор();
+
+	Пока Итератор.ЕстьСледующий() Цикл
+		ОбеспечитьСтрокуВерсииПоАлиасу(ДоступныеВерсии, Итератор.Следующий(), "Путь");
+	КонецЦикла;
+
+КонецПроцедуры
+
 Процедура ОбеспечитьСтрокуВерсииПоАлиасу(ТаблицаВерсий, Алиас, ИмяРеквизитаПуть = "ПутьСервер")
 
 	СтрокаВерсии = ТаблицаВерсий.Найти(Алиас, "Алиас"); 
@@ -365,6 +405,8 @@
 		СтрокаВерсии.Алиас = Алиас;
 	КонецЕсли;
 
+	// TODO После запуска нового фронта тут надо будет добавлять токен версии, т.к.
+	// в новом фронте у мета-версий есть своя страничка с документацией.
 	СтрокаВерсии[ИмяРеквизитаПуть] = ПараметрыOVM.ПолныйАдресККаталогуДистрибутивов();
 
 КонецПроцедуры

src/core/Классы/ПараметрыПриложения.os

@@ -12,5 +12,5 @@
 КонецФункции
 
 Функция ВерсияПриложения() Экспорт
-	Возврат "1.3.0";
+	Возврат "1.4.0";
 КонецФункции