Merge branch 'opmconfigold' of github.com:asosnoviy/opm into opmconfig

Author: asosnoviy

src/opm.os

@@ -56,4 +56,5 @@
 
 Лог = Логирование.ПолучитьЛог("oscript.app.opm");
 
+НастройкиПриложения.УстановитьФайлНастроек(ОбъединитьПути(СтартовыйСценарий().Каталог, "opm.cfg"));
 ВыполнитьКоманду(АргументыКоманднойСтроки);

src/Классы/ДиспетчерКомандПриложения.os

@@ -10,6 +10,7 @@
 	ДобавитьКомандуInstall(Парсер);
 	ДобавитьКомандуUpdate(Парсер);
 	ДобавитьКомандуApp(Парсер);
+	ДобавитьКомандуConfig(Парсер);
 	ДобавитьКомандуHelp(Парсер);
 КонецПроцедуры
 
@@ -52,6 +53,17 @@
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
+Процедура ДобавитьКомандуConfig(Знач Парсер)
+ 	Команда = Парсер.ОписаниеКоманды("config", "Задать пользовательские настройки");
+ 	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "-proxyusedefault","Использовать ПроксиПоУмолчанию (системные настройки)");
+ 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyserver", "Адресс прокси");
+ 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyport", "Порт прокси");
+ 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxyuser", "Пользователь прокси ");
+ 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-proxypass", "Пароль прокси");
+ 	Парсер.ДобавитьКоманду(Команда);
+ КонецПроцедуры
+
+
 Процедура ДобавитьКомандуHelp(Знач Парсер) Экспорт
 	Команда = Парсер.ОписаниеКоманды("help", "Справка по командам");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяКоманды", "Имя команды по которой надо получить справку");
@@ -71,6 +83,8 @@
 		ОбновитьПакет(ЗначенияПараметров);
 	ИначеЕсли ПараметрыКоманды.Команда = "app" Тогда
 		СоздатьСкриптЗапуска(ЗначенияПараметров["ИмяСкрипта"], ЗначенияПараметров["Каталог"], ЗначенияПараметров["-name"]);
+	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
+ 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);		
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;

src/Классы/УстановкаПакета.os

@@ -171,13 +171,17 @@
 
 	Сервер = СерверУдаленногоХранилища();
 	Ресурс = "/download/" + ИмяПакета + "/" + ФайлПакета;
-	Если НастройкиПриложения.Получить().ИспользоватьПрокси = Истина Тогда
-		Прокси = Новый ИнтернетПрокси(Истина);
+
+	НастройкиПрокси = НастройкиПриложения.Получить().Прокси;
+	Если НастройкиПрокси.ИспользоватьПрокси = Истина Тогда
+		Прокси = Новый ИнтернетПрокси(НастройкиПрокси.ПроксиПоУмолчанию);
+ 		Если НастройкиПрокси.ПроксиПоУмолчанию = Ложь Тогда
+ 			Прокси.Установить("HTTP",НастройкиПрокси.Сервер,НастройкиПрокси.Порт,НастройкиПрокси.Пользователь,НастройкиПрокси.Пароль);
+ 		КонецЕсли;	
+		Соединение = Новый HTTPСоединение(Сервер,,,Прокси);
 	Иначе
-		Прокси = Новый ИнтернетПрокси(Ложь);
+		Соединение = Новый HTTPСоединение(Сервер);
 	КонецЕсли;
-
-	Соединение = Новый HTTPСоединение(Сервер,,,,Прокси);
 
 	Запрос = Новый HTTPЗапрос(Ресурс);
 	Лог.Информация("Скачиваю файл: " + ФайлПакета);

src/Модули/НастройкиПриложения.os

@@ -38,7 +38,7 @@
 	Текст = ПрочитатьФайл(мПутьФайлаНастроек);
 
 	Чтение = Новый ПарсерJSON;
-	Настройки = Чтение.ПрочитатьJSON(Текст);
+	Настройки = Чтение.ПрочитатьJSON(Текст,,,Истина);
 
 	// TODO сделать конвертацию терминов json в русские свойства настроек
 
@@ -56,11 +56,66 @@
 
 КонецФункции
 
+Процедура СохранитьФайл(Знач Текст,Знач Путь)
+ 
+ 	Запись = Новый ЗаписьТекста(Путь);
+ 	Запись.ЗаписатьСтроку(Текст);
+ 	Запись.Закрыть();
+ 
+ КонецПроцедуры
+
 Процедура УстановитьНастройкиПоУмолчанию()
 	мНастройки = Новый Структура;
-	мНастройки.Вставить("ИспользоватьПрокси", Ложь);
+	НастройкиПроксиПоУмолчанию = НастройкиПроксиПроксиПоУмолчанию();
+	мНастройки.Вставить("Прокси", НастройкиПроксиПоУмолчанию);
 КонецПроцедуры
 
+Функция НастройкиПроксиПроксиПоУмолчанию()
+
+	СтруктураПрокси = Новый Структура();
+	СтруктураПрокси.Вставить("ИспользоватьПрокси", Ложь);
+	СтруктураПрокси.Вставить("ПроксиПоУмолчанию", Истина);
+	СтруктураПрокси.Вставить("Сервер");
+	СтруктураПрокси.Вставить("Порт");
+	СтруктураПрокси.Вставить("Пользователь");
+	СтруктураПрокси.Вставить("Пароль");
+
+	Возврат СтруктураПрокси;
+КонецФункции	
+
+Процедура СохранитьНастройки(Знач Параметры) Экспорт
+	Получить();
+	ЗаполнитьНастройкиИзПараметров(Параметры);
+	Текст = СформироватьТекстНастроек(мНастройки);
+	СохранитьФайл(Текст,мПутьФайлаНастроек);
+КонецПроцедуры
+  
+Функция СформироватьТекстНастроек(Знач Настройки)
+	ТекстНастроек = "";
+	Json =  Новый ПарсерJSON;
+	ТекстНастроек = Json.ЗаписатьJSON(Настройки);
+
+	Возврат ТекстНастроек;
+КонецФункции
+
+Процедура ЗаполнитьНастройкиИзПараметров(знач ЗначенияПараметров)
+	
+	мНастройки.Прокси.ПроксиПоУмолчанию = НЕ ЗначенияПараметров["-proxyusedefault"] = Неопределено;
+	мНастройки.Прокси.Сервер = ?(ЗначенияПараметров["-proxyserver"] = Неопределено,	мНастройки.Прокси.Сервер,ЗначенияПараметров["-proxyserver"]);
+	мНастройки.Прокси.Порт = ?(ЗначенияПараметров["-proxyport"] = Неопределено,	мНастройки.Прокси.Порт,ЗначенияПараметров["-proxyport"]);
+	мНастройки.Прокси.Пользователь = ?(ЗначенияПараметров["-proxyuser"] = Неопределено,	мНастройки.Прокси.Пользователь,ЗначенияПараметров["-proxyuser"]);
+	мНастройки.Прокси.Пароль = ?(ЗначенияПараметров["-proxypass"] = Неопределено,	мНастройки.Прокси.Пароль,ЗначенияПараметров["-proxypass"]);
+	
+	Если мНастройки.Прокси.ПроксиПоУмолчанию Тогда
+			мНастройки.Прокси.Сервер = "";
+			мНастройки.Прокси.Порт = "";
+			мНастройки.Прокси.Пользователь = "";
+			мНастройки.Прокси.Пароль = "";
+	КонецЕсли;	
+
+	мНастройки.Прокси.ИспользоватьПрокси =  мНастройки.Прокси.ПроксиПоУмолчанию ИЛИ мНастройки.Прокси.Сервер <> ""
+
+КонецПроцедуры
 //------------
 
 Лог = Логирование.ПолучитьЛог("oscript.app.opm");