Merge branch 'develop'

.gitignore

@@ -1,3 +1,3 @@
 .vscode/*
 temp/*
-
+*.ospx

packagedef

@@ -1,10 +1,11 @@
 Описание.Имя("releasecliexplorer")
-		.Версия("0.3.0")
-		.ВерсияСреды("1.4.0")		
+		.Версия("0.4.0")
+		.ВерсияСреды("1.7.0")		
 		.ЗависитОт("1connector", "2.1.3")
 		.ЗависитОт("asserts", "1.3.0")
 		.ЗависитОт("logos")
-		.ЗависитОт("fs",)
+		.ЗависитОт("fs")
+		.ЗависитОт("coloratos")
 		.ВключитьФайл("src")
 		.ВключитьФайл("README.md")
 		.ИсполняемыйФайл("src/cmd/ReleaseCliExplorer.os");

src/cmd/Классы/КомандаПоказатьСвежиеРелизы.os

@@ -15,5 +15,10 @@
 
 // Выполняет логику команды
 Процедура ВыполнитьКоманду(Знач Команда) Экспорт
+
+	//Команда.ПолучитьОпцию
+	days    = Команда.ЗначениеОпции("days");
+	testing = Команда.ЗначениеОпции("testing");
+
     ВызватьИсключение "Не реализовано"
 КонецПроцедуры

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

@@ -3,7 +3,7 @@
 КонецФункции
 
 Функция ВерсияПриложения() Экспорт
-	Возврат "0.3.0";
+	Возврат "0.4.0";
 КонецФункции
 
 Функция ИмяЛогаСистемы() Экспорт

src/core/Классы/ОбозревательСайта.os

@@ -15,7 +15,6 @@
 	ДополнительныеПараметры = Новый Структура("ЭтоПерваяСтраница", Истина);
 	Обозреватель = Новый ОбозревательСтраницы(Сессия, Адрес, РазмерСтраницы, ДополнительныеПараметры);
 
-	Консоль = Новый Консоль;
 	Консоль.Очистить();
 
 КонецПроцедуры

src/core/Классы/ОбозревательСтраницы.os

@@ -1,3 +1,5 @@
+#Использовать coloratos
+
 Перем Сессия;
 Перем АдресСтраницы;
 Перем ТаблицаДействий;
@@ -44,7 +46,7 @@
 
 Процедура ПросмотрСтраницы()
 
-	ЦветнойВывод.Вывести("получаю данные с сайта ...", "Серый");
+	ЦветнойВывод.ВывестиСтроку("получаю данные с сайта ...", "Серый");
 
 	Результат = Сессия.ПолучитьСодержимое(АдресСтраницы);
 	Если Результат.ЭтоФайл Тогда
@@ -60,9 +62,8 @@
 
 Процедура ВывестиПорцию(Старт = 0) Экспорт
 
-	Консоль = Новый Консоль();
 	Консоль.Очистить();
-	ЦветнойВывод.Вывести("(Адрес:|#color=Белый) " + АдресСтраницы, "Желтый");
+	ЦветнойВывод.ВывестиСтроку("(Адрес:|#color=Белый) " + АдресСтраницы, "Желтый");
 
 	ЗаполнитьТаблицу(Старт);
 
@@ -163,7 +164,7 @@
 			Группы = Совпадения[0].Группы;
 			Если Группы.Количество() > 1 Тогда
 				НештатнаяСитуация = Истина;
-				ЦветнойВывод.Ввывести(Группы[1].Значение, "Малиновый");
+				ЦветнойВывод.ВывестиСтроку(Группы[1].Значение, "Малиновый");
 			КонецЕсли;			
 		КонецЕсли;			
 	КонецЕсли;
@@ -184,7 +185,7 @@
 Процедура ВывестиТаблицу()
 
 	Для Каждого стрДействие Из ТаблицаДействий Цикл
-		ЦветнойВывод.Вывести(СтрШаблон("[ (%1|#color=Желтый) ] - %2", стрДействие.КодОперации, стрДействие.Описание), стрДействие.ЦветТекста);	
+		ЦветнойВывод.ВывестиСтроку(СтрШаблон("[ (%1|#color=Желтый) ] - %2", стрДействие.КодОперации, стрДействие.Описание), стрДействие.ЦветТекста);	
 	КонецЦикла;
 
 КонецПроцедуры
@@ -193,15 +194,12 @@
 
 	ВыбранныйКод = "";
 
-	Консоль = Новый Консоль;
-	Попытка
-		ПредыдущееЗначениеЦветаТекта = Консоль.ЦветТекста;
-	Исключение
-		ПредыдущееЗначениеЦветаТекта = Консоль.ЦветТекста;
-	КонецПопытки;
+	ПредыдущееЗначениеЦветаТекта = Консоль.ЦветТекста;
+	Если НЕ ЗначениеЗаполнено(ПредыдущееЗначениеЦветаТекта) Тогда
+		ПредыдущееЗначениеЦветаТекта = ЦветКонсоли.Белый;
+	КонецЕсли;
 
-	Консоль.ЦветТекста = ЦветКонсоли.Бирюза;
-	Консоль.Вывести(Сообщение);
+	ЦветнойВывод.Вывести(Сообщение, "Бирюза");
 	Консоль.ЦветТекста = ЦветКонсоли.Желтый;
 
 	ВыбранныйКод = Консоль.ПрочитатьСтроку();

src/core/Классы/СоединениеССайтом.os

@@ -1,5 +1,5 @@
 #Использовать 1connector
-#Использовать asserts
+#Использовать coloratos
 #Использовать fs
 
 Перем Логин;
@@ -22,10 +22,16 @@
 
 Функция ПолучитьСодержимое(Адрес) Экспорт
 
+	Результат = Новый Структура("ЭтоФайл,ТекстСтраницы,Ошибка", Ложь, "", Ложь);
+
 	Префикс = ?(Лев(Адрес, 4) = "http", "", Домен);
-	Ответ = Сессия.ВызватьМетод("GET", Префикс + Адрес);
+	Попытка
+		Ответ = Сессия.ВызватьМетод("GET", Префикс + Адрес);
+	Исключение
+		Сообщить(ОписаниеОшибки());
+		Возврат Результат;
+	КонецПопытки;
 
-	Результат = Новый Структура;
 	Результат.Вставить("ЭтоФайл", Лев(Ответ.URL, 10) = "https://dl");
 	Если НЕ Результат.ЭтоФайл Тогда
 		Результат.Вставить("ТекстСтраницы", Ответ.Текст());
@@ -57,7 +63,9 @@
 		ВремяВыполнения = Ответ.ВремяВыполнения / 1000;
 		ДлинаФайла = ЗначениеЗаголовка(Ответ.Заголовки, "Content-Length", 0);
 		РазмерФайла = Окр(ДлинаФайла / 1024, 1);
-		Сообщить(СтрШаблон("Скачан файл %1: %2 секунд, %3 kb " + Символы.ПС, Файл.ПолноеИмя, ВремяВыполнения, РазмерФайла));
+		ТекстСообщения = СтрШаблон("Скачан файл %1: (%2|#color=Белый) секунд, (%3|#color=Белый) kb, (%4|#color=Белый) kb/s 
+			|", Файл.ПолноеИмя, ВремяВыполнения, РазмерФайла, Формат(РазмерФайла/ВремяВыполнения, "ЧДЦ=1"));
+		ЦветнойВывод.ВывестиСтроку(ТекстСообщения);
 
 	КонецЕсли;
 
@@ -90,38 +98,34 @@
 
 Процедура УстановитьПараметрыАвторизации() Экспорт
 
-	Консоль = Новый Консоль();
-	Попытка
-		ПредыдущийЦветТекстаКонсоли = Консоль.ЦветТекста;
-	Исключение
-		ПредыдущийЦветТекстаКонсоли = ЦветКонсоли.Белый;
-	КонецПопытки;
+	ПредыдущееЗначениеЦветаТекта = Консоль.ЦветТекста;
+	Если НЕ ЗначениеЗаполнено(ПредыдущееЗначениеЦветаТекта) Тогда
+		ПредыдущееЗначениеЦветаТекта = ЦветКонсоли.Белый;
+	КонецЕсли;
 
 	Если НЕ ЗначениеЗаполнено(Логин) Тогда
 
-		Консоль.ЦветТекста = ЦветКонсоли.Белый;	
-		Консоль.Вывести("Введите login: ");
+		ЦветнойВывод.Вывести("Введите login: ", "Белый");
 
 		Консоль.ЦветТекста = ЦветКонсоли.Желтый;	
 		Пока НЕ ЗначениеЗаполнено(Логин) Цикл
 			Логин = Консоль.ПрочитатьСтроку();
 		КонецЦикла;
 
-		Консоль.ЦветТекста = ПредыдущийЦветТекстаКонсоли;
+		Консоль.ЦветТекста = ПредыдущееЗначениеЦветаТекта;
 
 	КонецЕсли;
 
 	Если НЕ ЗначениеЗаполнено(Пароль) Тогда
 
-		Консоль.ЦветТекста = ЦветКонсоли.Белый;	
-		Консоль.Вывести("Введите pass: ");
+		ЦветнойВывод.Вывести("Введите pass: ", "Белый");
 
 		Консоль.ЦветТекста = ЦветКонсоли.Черный;
 		Пока НЕ ЗначениеЗаполнено(Пароль) Цикл
 			Пароль = Консоль.ПрочитатьСтроку();
 		КонецЦикла;
 
-		Консоль.ЦветТекста = ПредыдущийЦветТекстаКонсоли;
+		Консоль.ЦветТекста = ПредыдущееЗначениеЦветаТекта;
 
 		Консоль.Очистить(); //скрыть пароль с экрана
 
@@ -158,8 +162,10 @@
 	Данные.Вставить("rememberMe", "on");
 	Ответ = Сессия.ВызватьМетод("POST", Ответ.URL, Новый Структура("Данные", Данные));
 
-	Ожидаем.Что(Ответ.URL).Равно(Домен + "/total");
-
+	Если НЕ Ответ.URL = Домен + "/total" Тогда
+		ВызватьИсключение "Авторизация не выполнена. Проверьте логин или пароль";
+	КонецЕсли;
+
 КонецПроцедуры
 
 Процедура УстановитьПутьСохранения(Знач парамПутьСохранения) Экспорт

src/core/Классы/ТитульнаяСтраницаПроекты.os

@@ -31,8 +31,6 @@
 		стрПроект.НомерСтроки = сч;
 		сч = сч + 1;
 
-		//Сообщить("    - " + стрПроект.Наименование);			
-
 	КонецЦикла;
 
 КонецПроцедуры

src/core/Классы/ТитульнаяСтраницаРазделы.os

@@ -12,7 +12,6 @@
 		стрРаздел = Таблица.Добавить();
 		стрРаздел.Код = Совпадение.Группы[1].Значение;
 		стрРаздел.Наименование = Совпадение.Группы[2].Значение;
-		//Сообщить(стрРаздел.Наименование);
 		ПроектыРаздела = Новый ТитульнаяСтраницаПроекты(ТекстСтраницы, стрРаздел.Код);
 		ПроектыРаздела = ПроектыРаздела.ПолучитьТаблицу();
 		стрРаздел.ТаблицаПроектов = ПроектыРаздела;