Рефакторинг по замечаниям Sonarqube

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

README.md

@@ -36,12 +36,13 @@
 
 ## Поддерживаемые команды
 
-Команда     Описание
-
-/start      Приветствие и справка
-/subscribe  Список конфигураций для отслеживания
-/add        Добавить конфигурацию в список отслеживания
-/delete     Удалить конфигурацию из списка отслеживания
-/notify_on  Включить уведомления о новых версиях
-/notify_off Выключить уведомления о новых версиях
-/help       Вывести список поддерживаемых команд
+| **Команда**           | **Описание**                            |
+|:----------------- |:------------------------------------------- |
+| **/start**        | Приветствие и справка                       |
+| **/subscribe**    | Список конфигураций для отслеживания        |
+| **/add**          | Добавить конфигурацию в список отслеживания |
+| **/delete**       | Удалить конфигурацию из списка отслеживания |
+| **/notify_on**    | Включить уведомления о новых версиях        |
+| **/notify_off**   | Выключить уведомления о новых версиях       |
+| **/status**       | Вывести информацию о статусе конфигурации   |
+| **/help**         | Вывести список поддерживаемых команд        |

src/cf/CommonModules/БотОбщегоНазначения/Ext/Module.bsl

@@ -136,11 +136,29 @@
 			Возврат;
 		КонецЕсли;
 		
-		ТекстОтвета = СтрШаблон("&#8505 %1%2 %3 &#10145 %4",
+		РезультатСравненияВерсий = РаботаСОбновлениямиВызовСервера.СравнитьВерсииКонфигураций(
+		ДанныеКонфигурации.ТекущаяВерсия,
+		ДанныеКонфигурации.АктуальнаяВерсия);
+
+		Если РезультатСравненияВерсий <> Неопределено Тогда
+			Если РезультатСравненияВерсий < 0 Тогда
+				Диагностика = "Необходимо обновить текущую версию.";
+			ИначеЕсли РезультатСравненияВерсий > 0 Тогда
+				Диагностика = "Текущая версия не может быть старше актуальной!";
+			Иначе
+				Диагностика = "Обновление текущей версии не требуется.";
+			КонецЕсли;
+		Иначе
+			Диагностика = "";
+		КонецЕсли;
+		
+		ТекстОтвета = СтрШаблон("&#8505 %1%2<code>%3</code> &#8594 <code>%4</code>%5%6",
 		ДанныеКонфигурации.Наименование,
 		Символы.ПС,
 		ДанныеКонфигурации.ТекущаяВерсия,
-		ДанныеКонфигурации.АктуальнаяВерсия);
+		ДанныеКонфигурации.АктуальнаяВерсия,
+		Символы.ПС,
+		Диагностика);
 		
 		ТелеграмМетодыВызовСервера.SendMessage(ИдЧата, ТекстОтвета, Перечисления.ТелеграмРежимРазметки.HTML);
 	Иначе
@@ -220,8 +238,10 @@
 
 Процедура ОбработатьКомандуСтарт(ОбновлениеТелеграм)
 	
-	ТекстОтвета = "Привет! Я бот, который поможет тебе следить за обновлениями конфигураций 1С." + Символы.ПС
-	+ Символы.ВК + Символы.ПС
+	ТекстОтвета = "&#128075 Привет!"
+	+ Символы.ПС
+	+ "Я - бот, который поможет тебе следить за обновлениями конфигураций 1С."
+	+ Символы.ПС + Символы.ВК + Символы.ПС
 	+ "Что я умею:" + Символы.ПС
 	+ "- Отслеживать новые релизы" + Символы.ПС
 	+ "- Присылать уведомления о выходе обновлений" + Символы.ПС

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

@@ -21,17 +21,42 @@
 	
 	ТекстСообщения = СтрШаблон("Следующие конфигурации имеют неактуальные версии:%1%2", Символы.ПС, Символы.ПС);
 	
+	КонфигурацииСНекорректнымиВерсиями = Новый Массив;
+	
 	Для каждого ДанныеКонфигурации Из КонфигурацииДляВывода Цикл
-		ТекстСообщения = ТекстСообщения + СтрШаблон("&#128293 %1%2 %3 &#10145 %4%5%6",
+		Если ДанныеКонфигурации.РезультатСравнения = Неопределено Тогда
+			Продолжить;
+		ИначеЕсли ДанныеКонфигурации.РезультатСравнения > 0 Тогда
+			КонфигурацииСНекорректнымиВерсиями.Добавить(ДанныеКонфигурации);
+			Продолжить;
+		Иначе
+			ТекстСообщения = ТекстСообщения + ФорматСтрокиСообщенияОНеактуальнойВерсии("&#128293", ДанныеКонфигурации);
+		КонецЕсли;
+	КонецЦикла;
+	
+	Если КонфигурацииСНекорректнымиВерсиями.Количество() > 0 Тогда
+		ТекстСообщения = ТекстСообщения + СтрШаблон("Внимание! Текущая конфигурация старше актуальной:%1%2",
+		Символы.ПС, Символы.ПС);
+		
+		Для каждого ДанныеКонфигурации Из КонфигурацииСНекорректнымиВерсиями Цикл
+			ТекстСообщения = ТекстСообщения + ФорматСтрокиСообщенияОНеактуальнойВерсии("&#128683", ДанныеКонфигурации);
+		КонецЦикла;
+	КонецЕсли;
+	
+	Возврат ТекстСообщения;
+	
+КонецФункции
+
+Функция ФорматСтрокиСообщенияОНеактуальнойВерсии(Эмодзи, ДанныеКонфигурации)
+	
+	Возврат СтрШаблон("%1 %2%3 <code>%4</code> &#8594 <code>%5</code>%6%7",
+	Эмодзи,
 	ДанныеКонфигурации.КонфигурацияПредставление,
 	Символы.ПС,
 	ДанныеКонфигурации.ТекущаяВерсия,
 	ДанныеКонфигурации.АктуальнаяВерсия,
 	Символы.ПС,
 	Символы.ПС);
-	КонецЦикла;
-	
-	Возврат ТекстСообщения;
 	
 КонецФункции
 

src/cf/CommonModules/РаботаСОбновлениямиВызовСервера/Ext/Module.bsl

@@ -255,10 +255,14 @@
 		ДанныеВерсийКонфигураций = Новый Массив;
 		
 		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
-			ВерсииКонфигурации = Новый Структура("КонфигурацияПредставление, ТекущаяВерсия, АктуальнаяВерсия",
-			ВыборкаДетальныеЗаписи.КонфигурацияПредставление,
-			ВыборкаДетальныеЗаписи.ТекущаяВерсия,
+			ВерсииКонфигурации = Новый Структура;
+			ВерсииКонфигурации.Вставить("КонфигурацияПредставление", ВыборкаДетальныеЗаписи.КонфигурацияПредставление);
+			ВерсииКонфигурации.Вставить("ТекущаяВерсия", ВыборкаДетальныеЗаписи.ТекущаяВерсия);
+			ВерсииКонфигурации.Вставить("АктуальнаяВерсия", ВыборкаДетальныеЗаписи.АктуальнаяВерсия);
+			
+			РезультатСравнения = СравнитьВерсииКонфигураций(ВыборкаДетальныеЗаписи.ТекущаяВерсия,
 				ВыборкаДетальныеЗаписи.АктуальнаяВерсия);
+			ВерсииКонфигурации.Вставить("РезультатСравнения", РезультатСравнения);
 			ДанныеВерсийКонфигураций.Добавить(ВерсииКонфигурации);
 		КонецЦикла;
 		
@@ -270,6 +274,43 @@
 	
 КонецФункции
 
+// Возвращает результат сравнения двух версий конфигураций: текущей и актуальной.
+//
+// Параметры:
+//  ТекущаяВерсия - Строка - версия, установленная у пользователя
+//  АктуальнаяВерсия - Строка - версия, полученная с сайта вендора
+//
+// Возвращаемое значение:
+// Отрицательное число - текущая версия меньше актуальной
+// Положительное число - актуальная версия меньше текущей
+// Ноль - номера версий одинаковые
+//
+Функция СравнитьВерсииКонфигураций(ТекущаяВерсия, АктуальнаяВерсия) Экспорт
+	
+	НаборГруппТекущаяВерсия = СтрРазделить(ТекущаяВерсия, ".");
+	НаборГруппАктуальнаяВерсия = СтрРазделить(АктуальнаяВерсия, ".");
+	
+	Если НаборГруппТекущаяВерсия.Количество() = 0 ИЛИ НаборГруппАктуальнаяВерсия.Количество() = 0 Тогда
+		Возврат Неопределено;
+	КонецЕсли;
+	
+	МаксИндексТекущаяВерсия = НаборГруппТекущаяВерсия.ВГраница();
+	МаксИндексАктуальнаяВерсия = НаборГруппАктуальнаяВерсия.ВГраница();
+	
+	Для Индекс = 0 По Макс(МаксИндексТекущаяВерсия, МаксИндексАктуальнаяВерсия) Цикл
+		ГруппаТекущаяВерсия = ?(Индекс <= МаксИндексТекущаяВерсия, Число(НаборГруппТекущаяВерсия[Индекс]), 0);
+		ГруппаАктуальнаяВерсия = ?(Индекс <= МаксИндексАктуальнаяВерсия, Число(НаборГруппАктуальнаяВерсия[Индекс]), 0);
+		
+		Компаратор = ГруппаТекущаяВерсия - ГруппаАктуальнаяВерсия;
+		Если Компаратор <> 0 Тогда
+			Возврат Компаратор;
+		КонецЕсли;
+	КонецЦикла;
+	
+	Возврат 0;
+	
+КонецФункции
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции

src/cf/VERSION

@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<VERSION>42</VERSION>
+<VERSION>44</VERSION>