|
107 | 107 |
|
108 | 108 | УстановитьOneScriptИзZipАрхива(ФайлУстановщика, КаталогУстановкиВерсии); |
109 | 109 | ДобавитьSHСкриптыПриНеобходимости(КаталогУстановкиВерсии); |
| 110 | + УстановитьРазрешениеДляSHСкриптовПриНеобходимости(КаталогУстановкиВерсии); |
110 | 111 | Исключение |
111 | 112 | УдалитьФайлы(КаталогУстановкиВерсии); |
112 | 113 | ВызватьИсключение ОписаниеОшибки(); |
|
264 | 265 |
|
265 | 266 | ЗаписьТекста.Записать(ТекстСкрипта); |
266 | 267 | ЗаписьТекста.Закрыть(); |
267 | | - |
268 | | - Лог.Отладка("Установка флага выполнения..."); |
269 | 268 |
|
270 | | - Команда = Новый Команда; |
271 | | - Команда.УстановитьКоманду("chmod"); |
272 | | - Команда.ДобавитьПараметр("+x"); |
273 | | - Команда.ДобавитьПараметр(ПутьКСкрипту); |
274 | | - Команда.УстановитьПравильныйКодВозврата(0); |
| 269 | +КонецПроцедуры |
| 270 | + |
| 271 | +Процедура УстановитьРазрешениеДляSHСкриптовПриНеобходимости(КаталогУстановкиВерсии) |
275 | 272 |
|
276 | | - Команда.Исполнить(); |
277 | | - Лог.Отладка(Команда.ПолучитьВывод()); |
| 273 | + Если ЭтоWindows Тогда |
| 274 | + Возврат; |
| 275 | + КонецЕсли; |
| 276 | + |
| 277 | + ФайлыДляУстановкиРазрешений = Новый Массив; |
| 278 | + ФайлыДляУстановкиРазрешений.Добавить("opm"); |
| 279 | + ФайлыДляУстановкиРазрешений.Добавить("opm.sh"); |
| 280 | + ФайлыДляУстановкиРазрешений.Добавить("oscript"); |
| 281 | + ФайлыДляУстановкиРазрешений.Добавить("oscript.sh"); |
| 282 | + |
| 283 | + Для каждого Файл Из ФайлыДляУстановкиРазрешений Цикл |
| 284 | + |
| 285 | + ПутьКСкрипту = ОбъединитьПути(КаталогУстановкиВерсии, "bin", Файл); |
| 286 | + |
| 287 | + Если Не ФС.ФайлСуществует(ПутьКСкрипту) Тогда |
| 288 | + Продолжить; |
| 289 | + КонецЕсли; |
| 290 | + |
| 291 | + Лог.Отладка("Установка флага выполнения %1", ПутьКСкрипту); |
| 292 | + |
| 293 | + Команда = Новый Команда; |
| 294 | + Команда.УстановитьКоманду("chmod"); |
| 295 | + Команда.ДобавитьПараметр("+x"); |
| 296 | + Команда.ДобавитьПараметр(ПутьКСкрипту); |
| 297 | + Команда.УстановитьПравильныйКодВозврата(0); |
| 298 | + |
| 299 | + Команда.Исполнить(); |
| 300 | + Лог.Отладка(Команда.ПолучитьВывод()); |
| 301 | + |
| 302 | + КонецЦикла; |
278 | 303 |
|
279 | 304 | КонецПроцедуры |
280 | 305 |
|
|
0 commit comments