Шаг 7. Командный интерфейс

Author: leobrn

main.os

@@ -1,18 +1,26 @@
+#Использовать cli
 #Использовать logos
 #Использовать "."
 
 Перем Лог;
 
 Процедура ВыполнитьПриложение()
-	
+
 	Лог = Мониторинг.Лог();
+
+	Приложение = Новый КонсольноеПриложение(ПараметрыПриложения.ИмяПриложения(), "Мониторинг ресурсов сервера");
+	Приложение.Версия("v version", ПараметрыПриложения.Версия());
+
+	Приложение.ДобавитьКоманду("disk", "Проверка дисков", Новый КомандаПроверкаДисков);
 
-	Конфигурация = Новый Конфигурация();
-	Конфигурация.Инициализировать();
+	Приложение.УстановитьОсновноеДействие(ЭтотОбъект);
+	Приложение.Запустить(АргументыКоманднойСтроки);
+	
+КонецПроцедуры
+
+Процедура ВыполнитьКоманду(Знач КомандаПриложения) Экспорт
 
-	Монитор = Новый Монитор(Конфигурация);
-	Монитор.ЗапуститьМониторинг();
-	Монитор.ОтправитьУведомления();
+	Мониторинг.ВыполнитьПроверки();
 
 КонецПроцедуры
 

src/Классы/КомандаПроверкаДисков.os

@@ -0,0 +1,8 @@
+Процедура ВыполнитьКоманду(Знач Команда) Экспорт
+	
+	Лог = Мониторинг.Лог();
+	Лог.Отладка("Проверка дисков через команду disk" );
+
+	Мониторинг.ВыполнитьПроверки("ПроверкаДисков");
+
+КонецПроцедуры

src/Классы/Монитор.os

@@ -1,63 +1,50 @@
 #Использовать logos
 
 Перем _Конфигурация;
+Перем _ВыбраннаяПроверка;
+
 Перем Лог;
 
 Процедура ПриСозданииОбъекта(Конфигурация)
-
+	
 	_Конфигурация = Конфигурация;
-
+	
 	Лог = Мониторинг.Лог();
-
+	
 КонецПроцедуры
 
-Процедура ЗапуститьМониторинг() Экспорт
-
-	ЗагруженныеПроверки = _Конфигурация.Проверки();
-	ДоступныеПроверки   = Мониторинг.ДоступныеПроверки();
-
-	Для Каждого Проверка Из ЗагруженныеПроверки Цикл
-
-		ИмяПроверки = Проверка.Ключ;
-		ПараметрыПроверки = Проверка.Значение;
-
-		Менеджер = ДоступныеПроверки.Получить(ИмяПроверки);
-		Если Менеджер = Неопределено Тогда
-			Лог.Отладка("Не найден менеджер для проверки: " + ИмяПроверки);
-			Продолжить;
-		КонецЕсли;
-
-		Если Не ПараметрыПроверки["Использовать"] Тогда
-			Лог.Отладка("Отключена проверка: " + ИмяПроверки);
-			Продолжить;
-		КонецЕсли;
-
-		Менеджер.ВыполнитьПроверку(ПараметрыПроверки);
-
-	КонецЦикла;
+#Область ПрограммныйИнтерфейс
 
+Процедура ЗапуститьМониторинг() Экспорт
+	
+	Если ЗначениеЗаполнено(_ВыбраннаяПроверка) Тогда
+		ВыполнитьВыбраннуюПроверку(_ВыбраннаяПроверка);
+	Иначе
+		ВыполнитьВсеПроверки();
+	КонецЕсли;
+	
 	Лог.Закрыть();
-
+	
 КонецПроцедуры
 
 Процедура ОтправитьУведомления() Экспорт
 
 	ФайлЛога = _Конфигурация.ФайлЛога();
-
+	
 	ЛогУведомления = Уведомления.Лог();
 	ОшибкиМониторинга = Мониторинг.ОшибкиМониторинга(ФайлЛога);
 
-	Если Не ЗначениеЗаполнено(ОшибкиМониторинга) Тогда
+	Если НЕ ЗначениеЗаполнено(ОшибкиМониторинга) Тогда
 		ЛогУведомления.Отладка("Нет ошибок для отправки уведомлений");
 		Возврат;
 	КонецЕсли;
-
+	
 	СистемнаяИнформация = Новый СистемнаяИнформация;
 	ИмяКомпьютера = СистемнаяИнформация.ИмяКомпьютера;
-
+	
 	ПараметрыУведомления = Уведомления.ПараметрыУведомления();
-	ПараметрыУведомления["Тема"]     = "Результат мониторинга сервера " + ИмяКомпьютера;
-	ПараметрыУведомления["Текст"]    = Мониторинг.ТекстУведомления(ОшибкиМониторинга);
+	ПараметрыУведомления["Тема"] = "Результат мониторинга сервера " + ИмяКомпьютера;
+	ПараметрыУведомления["Текст"] = Мониторинг.ТекстУведомления(ОшибкиМониторинга);
 	ПараметрыУведомления["Вложение"] = ФайлЛога;
 
 	НастройкиУведомлений = _Конфигурация.НастройкиУведомлений();
@@ -75,4 +62,75 @@
 
 	КонецЦикла;
 
-КонецПроцедуры
+КонецПроцедуры
+
+Процедура УстановитьПроверку(ВыбраннаяПроверка) Экспорт
+	
+	_ВыбраннаяПроверка = ВыбраннаяПроверка;
+	
+	Лог.Отладка("Установлена проверка: " + ВыбраннаяПроверка);
+	
+КонецПроцедуры
+
+Процедура СброситьПроверку() Экспорт
+	
+	_ВыбраннаяПроверка = Неопределено;
+	
+	Лог.Отладка("Выбранная проверка сброшена");
+	
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Процедура ВыполнитьВыбраннуюПроверку(ИмяПроверки)
+
+	ЗагруженныеПроверки = _Конфигурация.Проверки();
+	ПараметрыПроверки = ЗагруженныеПроверки[_ВыбраннаяПроверка];
+
+	Если ПараметрыПроверки = Неопределено Тогда
+		Лог.Ошибка("Нет настроек для проверки: " + ИмяПроверки);
+		Возврат;
+	КонецЕсли;
+
+	ДоступныеПроверки = Мониторинг.ДоступныеПроверки();
+	
+	Менеджер = ДоступныеПроверки.Получить(_ВыбраннаяПроверка);
+	Если Менеджер = Неопределено Тогда
+		Лог.Отладка("Не найден менеджер для проверки: " + ИмяПроверки);
+		Возврат;
+	КонецЕсли;
+
+	Менеджер.ВыполнитьПроверку(ПараметрыПроверки);
+
+КонецПроцедуры
+
+Процедура ВыполнитьВсеПроверки()
+	
+	ЗагруженныеПроверки = _Конфигурация.Проверки();
+	ДоступныеПроверки = Мониторинг.ДоступныеПроверки();
+	
+	Для Каждого Проверка Из ЗагруженныеПроверки Цикл
+		
+		ИмяПроверки = Проверка.Ключ;
+		ПараметрыПроверки = Проверка.Значение;
+		
+		Менеджер = ДоступныеПроверки.Получить(ИмяПроверки);
+		Если Менеджер = Неопределено Тогда
+			Лог.Отладка("Не найден менеджер для проверки: " + ИмяПроверки);
+			Продолжить;
+		КонецЕсли;
+		
+		Если Не ПараметрыПроверки["Использовать"] Тогда
+			Лог.Отладка("Отключена проверка: " + ИмяПроверки);
+			Продолжить;
+		КонецЕсли;
+		
+		Менеджер.ВыполнитьПроверку(ПараметрыПроверки);
+		
+	КонецЦикла;
+	
+КонецПроцедуры
+
+#КонецОбласти

src/Модули/Мониторинг.os

@@ -6,6 +6,22 @@
 
 #Область Проверки
 
+Процедура ВыполнитьПроверки(ВыбраннаяПроверка = "") Экспорт
+
+	Конфигурация = Новый Конфигурация();
+	Конфигурация.Инициализировать();
+	
+	Монитор = Новый Монитор(Конфигурация);
+	
+	Если ЗначениеЗаполнено(ВыбраннаяПроверка) Тогда
+		Монитор.УстановитьПроверку(ВыбраннаяПроверка);
+	КонецЕсли;
+
+	Монитор.ЗапуститьМониторинг();
+	Монитор.ОтправитьУведомления();
+
+КонецПроцедуры
+
 Функция ДоступныеПроверки() Экспорт
 
 	Проверки = Новый Соответствие();

src/Модули/ПараметрыПриложения.os

@@ -2,6 +2,10 @@
 	Возврат "monitor";
 КонецФункции
 
+Функция Версия() Экспорт
+	Возврат "1.0.0";
+КонецФункции
+
 Функция ИмяФайлаКонфигурации() Экспорт
 	Возврат "config.json";
 КонецФункции