|
5 | 5 | Перем Лог; |
6 | 6 | Перем мВременныйКаталогУстановки; |
7 | 7 | Перем мЗависимостиВРаботе; |
| 8 | +Перем ЭтоWindows; |
8 | 9 | Перем мРежимУстановкиПакетов; |
9 | 10 |
|
10 | 11 | Процедура УстановитьПакетИзАрхива(Знач ФайлАрхива) Экспорт |
|
383 | 384 | ФС.ОбеспечитьКаталог(КаталогУстановкиСкриптовЗапускаПриложений); |
384 | 385 | КаталогУстановкиСкриптовЗапускаПриложений = Новый Файл(КаталогУстановкиСкриптовЗапускаПриложений).ПолноеИмя; |
385 | 386 | ИначеЕсли мРежимУстановкиПакетов = РежимУстановкиПакетов.Глобально Тогда |
386 | | - КаталогУстановкиСкриптовЗапускаПриложений = КаталогПрограммы(); |
| 387 | + КаталогУстановкиСкриптовЗапускаПриложений = ?(ЭтоWindows, КаталогПрограммы(), "/usr/bin"); |
387 | 388 | Иначе |
388 | 389 | ВызватьИсключение "Неизвестный режим установки пакетов <" + мРежимУстановкиПакетов + ">"; |
389 | 390 | КонецЕсли; |
390 | 391 |
|
391 | 392 | СоздатьСкриптЗапуска(ИмяСкриптаЗапуска, ОбъектФайл.ПолноеИмя, КаталогУстановкиСкриптовЗапускаПриложений); |
| 393 | + |
392 | 394 | КонецЦикла; |
393 | 395 |
|
394 | 396 | КонецПроцедуры |
395 | 397 |
|
396 | 398 | Процедура СоздатьСкриптЗапуска(Знач ИмяСкриптаЗапуска, Знач ПутьФайлаПриложения, Знач Каталог) Экспорт |
397 | 399 |
|
398 | | - СИ = Новый СистемнаяИнформация(); |
399 | | - ЭтоWindows = Найти(СИ.ВерсияОС, "Windows") > 0; |
400 | | - Если ЭтоWindows > 0 Тогда |
| 400 | + Если ЭтоWindows Тогда |
401 | 401 | ФайлЗапуска = Новый ЗаписьТекста(ОбъединитьПути(Каталог, ИмяСкриптаЗапуска + ".bat"), "cp866"); |
402 | 402 | ФайлЗапуска.ЗаписатьСтроку("@oscript.exe """ + ПутьФайлаПриложения + """ %*"); |
403 | 403 | ФайлЗапуска.ЗаписатьСтроку("@exit /b %ERRORLEVEL%"); |
|
406 | 406 |
|
407 | 407 | Если (ЭтоWindows И НастройкиПриложения.Получить().СоздаватьShСкриптЗапуска) ИЛИ НЕ ЭтоWindows Тогда |
408 | 408 | ПолныйПутьКСкриптуЗапуска = ОбъединитьПути(Каталог, ИмяСкриптаЗапуска); |
409 | | - ФайлЗапуска = Новый ЗаписьТекста(ПолныйПутьКСкриптуЗапуска, КодировкаТекста.UTF8NoBOM); |
| 409 | + ФайлЗапуска = Новый ЗаписьТекста(ПолныйПутьКСкриптуЗапуска, КодировкаТекста.UTF8NoBOM,,, Символы.ПС); |
410 | 410 | ФайлЗапуска.ЗаписатьСтроку("#!/bin/bash"); |
411 | 411 | СтрокаЗапуска = "oscript"; |
412 | 412 | Если ЭтоWindows Тогда |
|
470 | 470 | КонецФункции |
471 | 471 |
|
472 | 472 | Лог = Логирование.ПолучитьЛог("oscript.app.opm"); |
| 473 | +СИ = Новый СистемнаяИнформация(); |
| 474 | +ЭтоWindows = Найти(СИ.ВерсияОС, "Windows") > 0; |
473 | 475 | мРежимУстановкиПакетов = РежимУстановкиПакетов.Глобально; |
0 commit comments