ovm/src/cmd/Классы/КомандаUninstall.os at e358cb8335dec0904748829670d5579f5ae4e571 · oscript-library/ovm · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
&ЛогOVM
Перем Лог;

&Пластилин
Перем ДеинсталляторOneScript;

&Пластилин
Перем ВерсииOneScript;

&Аргумент(
	Имя = "VERSION",
	Описание = "Удаляемая версия (версии) OneScript. Допустимо использовать трехномерные версии (1.0.17, 1.0.18), stable, dev. Может быть передано несколько значений"
)
&ТМассивСтрок
&ВОкружении("OVM_UNINSTALL_VERSION")
&ПоставщикДополнения("ПолучитьУстановленныеВерсии")
Перем МассивВерсийКУдалению;

&Опция(Имя = "force f", Описание = "Удалять даже текущую используемую версию")
&ПоУмолчанию(Ложь)
&ТБулево
&ВОкружении("OVM_UNINSTALL_FORCE")
Перем УдалятьТекущуюВерсию;

&Опция(Имя = "all a", Описание = "Удаление всех установленных версий OneScript")
&ПоУмолчанию(Ложь)
&ТБулево
&ВОкружении("OVM_UNINSTALL_ALL")
Перем УдалятьВсеВерсии;

&КомандаПриложения(Имя = "uninstall delete d", Описание = "Удалить OneScript указанных версий")
Процедура ПриСозданииОбъекта()
КонецПроцедуры

&ВыполнениеКоманды
Процедура ВыполнениеКоманды() Экспорт

	Если УдалятьВсеВерсии Тогда
		ДеинсталляторOneScript.УдалитьВсеВерсииOneScript();
	Иначе

		Для Каждого ВерсияКУдалению Из МассивВерсийКУдалению Цикл
			Если ВерсииOneScript.ЭтоТекущаяВерсия(ВерсияКУдалению) И НЕ УдалятьТекущуюВерсию Тогда
				Лог.Информация("Версия <%1> не удалена, т.к. является текущей.", ВерсияКУдалению);
				Продолжить;
			КонецЕсли;
			ДеинсталляторOneScript.УдалитьOneScript(ВерсияКУдалению);
		КонецЦикла;

	КонецЕсли;

КонецПроцедуры

Функция ПолучитьУстановленныеВерсии() Экспорт
	Возврат ВерсииOneScript.ПолучитьСписокАлиасовУстановленныхВерсий();
КонецФункции