Расширил функциональность бота новыми командами

- Периодическая проверка актуальности конфигураций
- Автоматическое оповещение о версиях, требующих обновления
- Получение статуса указанной конфигурации
- Включение и выключение уведомлений о версиях, требующих обновления

src/cf/CommonModules/ОбновленияРегламент/Ext/Module.bsl

@@ -0,0 +1,38 @@
+#Область ПрограммныйИнтерфейс
+
+Процедура ПроверкаНеактуальныхВерсийКонфигураций() Экспорт
+	
+	РегистрыСведений.ОтслеживаниеВерсийКонфигураций.АктуализироватьВерсииКонфигураций();
+	СписокДляРассылкиУведомлений = РаботаСОбновлениямиВызовСервера.СписокНеактуальныхКонфигурацийДляУведомления();
+	
+	Для Каждого ПолучательУведомления из СписокДляРассылкиУведомлений Цикл
+		ТекстСообщения = СообщениеОНеактуальнойВерсии(ПолучательУведомления.Конфигурации);
+		ТелеграмМетодыВызовСервера.SendMessage(ПолучательУведомления.ИдЧата, ТекстСообщения,
+			Перечисления.ТелеграмРежимРазметки.HTML);
+	КонецЦикла;
+	
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция СообщениеОНеактуальнойВерсии(КонфигурацииДляВывода)
+	
+	ТекстСообщения = СтрШаблон("Следующие конфигурации имеют неактуальные версии:%1%2", Символы.ПС, Символы.ПС);
+	
+	Для каждого ДанныеКонфигурации Из КонфигурацииДляВывода Цикл
+		ТекстСообщения = ТекстСообщения + СтрШаблон("&#128293 %1%2 %3 &#10145 %4%5%6",
+		ДанныеКонфигурации.КонфигурацияПредставление,
+		Символы.ПС,
+		ДанныеКонфигурации.ТекущаяВерсия,
+		ДанныеКонфигурации.АктуальнаяВерсия,
+		Символы.ПС,
+		Символы.ПС);
+	КонецЦикла;
+	
+	Возврат ТекстСообщения;
+
+КонецФункции
+
+#КонецОбласти