Merge pull request #25 from oscript-library/develop

1.2.1

packagedef

@@ -1,5 +1,5 @@
 Описание.Имя("ovm")
-	.Версия("1.2.0")
+	.Версия("1.2.1")
 	.Автор("Nikita Gryzlov")
 	.АдресАвтора("nixel2007@gmail.com")
 	.Описание("OneScript Version Manager")
@@ -10,10 +10,9 @@
 	.ЗависитОт("fs")
 	.ЗависитОт("tempfiles")
 	.ЗависитОт("strings")
-	.ЗависитОт("decorator", "1.5.2")
 	.ЗависитОт("autumn", "3.2.0")
 	.ЗависитОт("autumn-logos", "1.1.1")
-	.ЗависитОт("autumn-cli", "1.0.3")
+	.ЗависитОт("autumn-cli", "1.0.5")
 	.ЗависитОт("collectionos", "0.3.0")
 	.РазработкаЗависитОт("1bdd", "1.13.0")
 	.ИсполняемыйФайл("src/cmd/ovm.os", "ovm")

src/core/Классы/ВерсииOneScript.os

@@ -119,7 +119,8 @@
 		ПутьКИсполняемомуФайлу = ПутьКИсполняемомуФайлу + ".exe";
 	ИначеЕсли ЭтоWindows Тогда
 		ПутьКИсполняемомуФайлу = ПутьКИсполняемомуФайлу + ".bat";
-	ИначеЕсли ФС.ФайлСуществует(ПутьКИсполняемомуФайлу + ".sh") Тогда
+	ИначеЕсли ФС.ФайлСуществует(ПутьКИсполняемомуФайлу + ".sh")
+		И Не ФС.ФайлСуществует(ПутьКИсполняемомуФайлу) Тогда
 		ПутьКИсполняемомуФайлу = ПутьКИсполняемомуФайлу + ".sh";
 	КонецЕсли; // BSLLS:IfElseIfEndsWithElse-off
 

src/core/Классы/ПараметрыПриложения.os

@@ -12,5 +12,5 @@
 КонецФункции
 
 Функция ВерсияПриложения() Экспорт
-	Возврат "1.2.0";
+	Возврат "1.2.1";
 КонецФункции

src/core/Классы/УстановщикOneScript.os

@@ -107,6 +107,7 @@
 
 		УстановитьOneScriptИзZipАрхива(ФайлУстановщика, КаталогУстановкиВерсии);
 		ДобавитьSHСкриптыПриНеобходимости(КаталогУстановкиВерсии);
+		УстановитьРазрешениеДляSHСкриптовПриНеобходимости(КаталогУстановкиВерсии);
 	Исключение
 		УдалитьФайлы(КаталогУстановкиВерсии);
 		ВызватьИсключение ОписаниеОшибки();	
@@ -264,17 +265,41 @@
 
 	ЗаписьТекста.Записать(ТекстСкрипта);
 	ЗаписьТекста.Закрыть();
-
-	Лог.Отладка("Установка флага выполнения...");
 
-	Команда = Новый Команда;
-	Команда.УстановитьКоманду("chmod");
-	Команда.ДобавитьПараметр("+x");
-	Команда.ДобавитьПараметр(ПутьКСкрипту);
-	Команда.УстановитьПравильныйКодВозврата(0);
+КонецПроцедуры
+
+Процедура УстановитьРазрешениеДляSHСкриптовПриНеобходимости(КаталогУстановкиВерсии)
 
-	Команда.Исполнить();
-	Лог.Отладка(Команда.ПолучитьВывод());
+	Если ЭтоWindows Тогда
+		Возврат;
+	КонецЕсли;
+
+	ФайлыДляУстановкиРазрешений = Новый Массив;
+	ФайлыДляУстановкиРазрешений.Добавить("opm");
+	ФайлыДляУстановкиРазрешений.Добавить("opm.sh");
+	ФайлыДляУстановкиРазрешений.Добавить("oscript");
+	ФайлыДляУстановкиРазрешений.Добавить("oscript.sh");
+
+	Для каждого Файл Из ФайлыДляУстановкиРазрешений Цикл
+
+		ПутьКСкрипту = ОбъединитьПути(КаталогУстановкиВерсии, "bin", Файл);
+
+		Если Не ФС.ФайлСуществует(ПутьКСкрипту) Тогда
+			Продолжить;
+		КонецЕсли;
+
+		Лог.Отладка("Установка флага выполнения %1", ПутьКСкрипту);
+
+		Команда = Новый Команда;
+		Команда.УстановитьКоманду("chmod");
+		Команда.ДобавитьПараметр("+x");
+		Команда.ДобавитьПараметр(ПутьКСкрипту);
+		Команда.УстановитьПравильныйКодВозврата(0);
+
+		Команда.Исполнить();
+		Лог.Отладка(Команда.ПолучитьВывод());
+
+	КонецЦикла;
 
 КонецПроцедуры