Автопроверка обновлений релиза конфигурации

Разрабатывалось все под 8.2, по идее должно подходить к любой типовой конфигурации на обычных формах, на управляемых тоже прикрутится с некоторыми правками: Код простейший до безобразия, но на стабильность могут быть жалобы, ввиду того, что в данном коде присутствует неуправляемый и потенциально нестабильный элемент, а именно сайт 1С 🙂

Это зарисовка для встраивания, поэтому лицензия вида бери-дари и товар обмену и возврату не подлежит…

Как работает:

открыл в типовой конфигурации (обычные формы), нажал кнопку Выполнить, получил сообщение «Актуальный релиз» (все норм, можно не трепыхаться) или «Вышел новый релиз и номер релиза» (пора браться за работу).

код ниже:

//соединяемся

Соединение = Новый HTTPСоединение("downloads.1c.ru");

Запрос = Новый HTTPЗапрос("release_info/categ_js.jsp?GroupID=88");



Попытка

Ответ = Соединение.Получить(Запрос);

//получаем ответ, не особо люблю файлы плодить, поэтому в память получаем
Исключение
Сообщить("Не удалось получить версию!!!");
возврат;
КонецПопытки;

ТекстХТМЛ = Ответ.ПолучитьТелоКакСтроку(КодировкаТекста.ANSI);
//Сообщить(ТекстХТМЛ);
НачалоПозицииРелиза = Найти(ТекстХТМЛ, Метаданные.Синоним);
Если НачалоПозицииРелиза = 0 Тогда
Сообщить("Не удалось получить версию!!!");
возврат;
Иначе

НачалоПозицииРелиза = НачалоПозицииРелиза + СтрДлина(Метаданные.Синоним)+ 55;
НовыйРелиз = Сред(ТекстХТМЛ, НачалоПозицииРелиза, 8);
ТекущийРелиз = Метаданные.Версия;
Если НовыйРелиз = ТекущийРелиз Тогда
Сообщить("Актуальный релиз");
Иначе
Сообщить("ВЫШЕЛ НОВЫЙ РЕЛИЗ !!! "+НовыйРелиз);
КонецЕсли;
КонецЕсли;

Для особо ленивых обработка прилагается…