Merge branch 'release/v0.2'

packagedef

@@ -1,9 +1,9 @@
 
 Описание.Имя("deployka")
-		.Версия("0.1.3")
+		.Версия("0.2")
         .ВерсияСреды("1.0.16")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")
-		.ЗависитОт("v8runner")
+		.ЗависитОт("v8runner", "0.9")
 		.ВключитьФайл("src")
 		.ИсполняемыйФайл("src/deployka.os", "deployka");

src/Классы/КомандаЗапуститьВРежимеПредприятия.os

@@ -31,6 +31,14 @@
 		"-execute", 
 		"Путь обработки для запуска");
 
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, 
+		"-additional", 
+		"Дополнительные ключи запуска 1С");
+
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, 
+		"-thin-client", 
+		"Запускать тонкий клиент принудительно");
+
     Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 КонецПроцедуры
@@ -56,6 +64,10 @@
 		Пользователь,
 		Пароль,
 		ИспользуемаяВерсияПлатформы);
+
+	Если ПараметрыКоманды["-thin-client"] Тогда
+		Конфигуратор.ПутьКПлатформе1С(Конфигуратор.ПутьКТонкомуКлиенту1С());
+	КонецЕслИ;
 
 	Если Не ПустаяСтрока(КлючРазрешенияЗапуска) Тогда
 		Конфигуратор.УстановитьКлючРазрешенияЗапуска(КлючРазрешенияЗапуска);
@@ -65,27 +77,35 @@
 		ПараметрЗапускаПредприятия = "";
 	КонецЕсли;
 
-	ДополнительныеКлючи = "";
+	ДополнительныеКлючи = ""+ ПараметрыКоманды["-additional"] + " ";
 	Если Не ПустаяСтрока(ОбработкаДляЗапуска) Тогда
 		ДополнительныеКлючи = ДополнительныеКлючи + "/Execute"+ЗапускПриложений.ОбернутьВКавычки(ОбработкаДляЗапуска);
 	КонецЕсли;
 
 	Лог.Информация("Запускаю в режиме предприятия");
 	Попытка
+		Конфигуратор.УстановитьОбработчикОжидания(ЭтотОбъект);
 		Конфигуратор.ЗапуститьВРежимеПредприятия(ПараметрЗапускаПредприятия, Неопределено, ДополнительныеКлючи);
 		Текст = Конфигуратор.ВыводКоманды();
 		Если Не ПустаяСтрока(Текст) Тогда
 			Лог.Информация(Текст);
 		КонецЕсли;
 	Исключение
-		Лог.Ошибка(Конфигуратор.ВыводКоманды());
+		Лог.Ошибка(ОписаниеОшибки());
 		Возврат ВозможныйРезультат.ОшибкаВремениВыполнения;
 	КонецПопытки;
 
 	Возврат ВозможныйРезультат.Успех;
 
 КонецФункции
 
+Процедура ОбработкаОжиданияПроцесса(Отказ, Интервал) Экспорт
+	Лог.Отладка("Ожидаю завершения процесса 1С...");
+	Если Интервал < 60000 Тогда
+		Интервал = Интервал + 500;
+	КонецЕсли;
+КонецПроцедуры
+
 /////////////////////////////////////////////////////////////////////////////////
 СистемнаяИнформация = Новый СистемнаяИнформация;
 ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;

src/Классы/КомандаУправлениеСеансами.os

@@ -246,6 +246,7 @@
 	Лог.Информация("Получаю список баз кластера");
 
 	СписокБазВКластере = СокрЛП(ЗапуститьПроцесс(КомандаВыполнения));    
+	Лог.Отладка(СписокБазВКластере);
 	ЧислоСтрок = СтрЧислоСтрок(СписокБазВКластере);
 	НайденаБазаВКластере = Ложь;
 	Для К = 1 По ЧислоСтрок Цикл
@@ -334,10 +335,10 @@
 Процедура ВывестиДанныеПроцесса(Знач Процесс, Знач Приемник)
 	Вывод = Процесс.ПотокВывода.Прочитать();
 	Ошибки = Процесс.ПотокОшибок.Прочитать();
-	Если Вывод <> Неопределено Тогда
+	Если СтрДлина(Строка(Вывод)) > 0 Тогда
 		Приемник.ДобавитьСтроку(Вывод);
 	КонецЕсли;
-	Если Ошибки <> Неопределено Тогда
+	Если СтрДлина(Строка(Ошибки)) > 0 Тогда
 		Приемник.ДобавитьСтроку(Ошибки);
 	КонецЕсли;
 КонецПроцедуры