Merge branch 'develop'

Author: EvilBeaver

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("opm")
-		.Версия("0.5.0")
+		.Версия("0.5.1")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")
 		.ЗависитОт("tempfiles")

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