Добавил определение установленной версии платформы под linux (#39)

* Добавил определение установленной версии платформы под linux

Т.к. в linux нет возмжности определить версию по папке, то используем утилиту rac для получения версии установленной программы, т.к. это базовая зависимость при установке клиента, то всегда должна присутствовать в системе.

* Переделал на правильный временный файл.

* Исправил на использование 1commands

* Исправил согласно замечаниям.

* Добавил в сообщение вывод искомой версии 1С

Author: pumbaEO

packagedef

@@ -1,13 +1,14 @@
 
 Описание.Имя("v8runner")
 		.Версия("0.11.1")
-        .ВерсияСреды("1.0.17")
+		.ВерсияСреды("1.0.17")
 		.ЗависитОт("asserts")
 		.ЗависитОт("fs")
 		.ЗависитОт("logos")
 		.ЗависитОт("tempfiles")
 		.ЗависитОт("1testrunner")
 		.ЗависитОт("strings", "0.4.1")
+		.ЗависитОт("1commands")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ВключитьФайл("lib.config")

src/v8runner.os

@@ -7,6 +7,7 @@
 #Использовать tempfiles
 #Использовать asserts
 #Использовать strings
+#Использовать 1commands
 
 Перем мКонтекстКоманды;
 Перем мКаталогСборки;
@@ -1075,6 +1076,24 @@
 		Если НЕ КаталогУстановки.Существует() Тогда
 			КаталогУстановки = Новый Файл(ОбъединитьПути(КорневойПуть1С, "x86_64"));
 		КонецЕсли;
+		//Определим версию приложения
+		ФайлРАК = Новый Файл(ОбъединитьПути(КаталогУстановки.ПолноеИмя, "rac"));
+		Если ФайлРАК.Существует() Тогда
+			Команда = Новый Команда;
+			СтрокаЗапуска = ФайлРАК.ПолноеИмя + " -v ";
+			Команда.УстановитьСтрокуЗапуска(СтрокаЗапуска);
+			Команда.УстановитьПравильныйКодВозврата(0);
+			ВерсияПлатформы = "";
+			Попытка
+				Команда.Исполнить();
+				ВерсияПлатформы = СокрЛП(Команда.ПолучитьВывод());
+				ВерсияПлатформыЧисло = Число(СтрЗаменить(ВерсияПлатформы, ".", ""));
+				мВерсияПлатформы = ВерсияПлатформы;
+			Исключение
+				Лог.Предупреждение("Не удалось прочитать версию 1С %1, %2.
+				|" + ОписаниеОшибки(), ВерсияПлатформы, СтрокаЗапуска);
+			КонецПопытки;
+		КонецЕсли;
 		НужныйФайлПлатформы = Новый Файл(ОбъединитьПути(КаталогУстановки.ПолноеИмя, "1cv8"));
 	КонецЕсли;