Merge pull request #33 from ZhdanovR/feature/set-database

Подключение существующей ИБ как рабочей

Author: EvilBeaver

.gitignore

@@ -2,3 +2,4 @@ tests.xml
 *.ospx
 oscript_modules/
 src/oscript.cfg
+.packman

README.md

@@ -20,9 +20,17 @@
 ## Инструкция по применению
 
     packman help
-    
+
+## Важно!
+
+При использовании существующей ИБ в качестве рабочей (например, формирование поставки непосредственно с тестового или боевого контура), будьте внимательны при использовании команд:
+ - load-storage - Выгрузить из хранилища
+ - drop-support - Снять с поддержки
+ так как эти команды вносят изменения непосредственно в информационную базу
+
 ### Более подробная инструкция
 
 На текущий момент отсутствует, как класс. Спрашивайте в [gitter](https://gitter.im/EvilBeaver/oscript-library)
 
 Есть бесплатный вебинар [Открытый инструментарий счастливого 1С-ника](http://infostart.ru/webinars/564258/)
+

packagedef

@@ -10,6 +10,7 @@
 		.ЗависитОт("tool1cd")
 		.ЗависитОт("strings")
 		.ЗависитОт("tempfiles")
+		.ЗависитОт("fs")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tools/СборИнформацииОМетаданных.epf")
 		.ВключитьФайл("tools/ПомощникСозданияМанифестаПоставки.epf")

src/Классы/КомандаПодключитьИнформационнуюБазу.os

@@ -0,0 +1,43 @@
+#Использовать logos
+
+Перем Лог;
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+	ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Подключение существующей ИБ как рабочей");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "ibconnection", "Строка подключения к БД (/FfilePath или /SserverPath)	Например, для файловых баз --ibconnection /FC:\base1 или --ibconnection /F./base1 или --ibconnection /Fbase1 Или для серверных баз --ibconnection /Sservername\basename"); // позиционный
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-db-user", "Пользователь БД");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-db-pwd", "Пароль БД");
+	Парсер.ДобавитьКоманду(ОписаниеКоманды);
+КонецПроцедуры
+
+// Выполняет логику команды
+// 
+// Параметры:
+//   ПараметрыКоманды - Соответствие ключей командной строки и их значений
+//
+Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
+	ПутьКФайлуКонфигурации = ОкружениеСборки.ПолучитьПутьКФайлуКонфигурации();
+	СтрокаПодключения = ПараметрыКоманды["ibconnection"];
+	ПользовательИБ = ПараметрыКоманды["-db-user"];
+	ПарольИБ = ПараметрыКоманды["-db-pwd"];
+	
+	ТекстовыйДокумент = Новый ТекстовыйДокумент;
+	ТекстовыйДокумент.ДобавитьСтроку("СтрокаПодключения" + "=" + СтрокаПодключения);
+	Если ПользовательИБ <> Неопределено Тогда
+		ТекстовыйДокумент.ДобавитьСтроку("ПользовательИБ" + "=" + ПользовательИБ);
+		Если ПарольИБ <> Неопределено  Тогда
+			ТекстовыйДокумент.ДобавитьСтроку("ПарольИБ" + "=" + ПарольИБ);
+		КонецЕсли;
+	КонецЕсли;
+			
+	ТекстовыйДокумент.Записать(ПутьКФайлуКонфигурации);
+
+	Лог.Информация("Файл настройки подключения создан. %1", ПутьКФайлуКонфигурации);
+	Возврат 0;
+	
+КонецФункции
+
+Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());

src/Модули/ОкружениеСборки.os

@@ -1,7 +1,9 @@
 #Использовать v8runner
 #Использовать strings
+#Использовать fs
 
 Перем мРабочийКаталогСборки;
+Перем Лог;
 
 // Возвращает значение рабочего каталога, глобальное для всех шагов сборки
 //
@@ -17,6 +19,8 @@
         КонецЕсли;
     КонецЕсли;
 
+    ФС.ОбеспечитьКаталог(мРабочийКаталогСборки);
+    
     Возврат мРабочийКаталогСборки;
 
 КонецФункции // РабочийКаталог() Экспорт
@@ -26,12 +30,36 @@
 Функция ПолучитьКонфигуратор() Экспорт
 
     УК = Новый УправлениеКонфигуратором();
+    
+    ИмяКонфигурационногоФайла = ПолучитьПутьКФайлуКонфигурации();
+    Если ФС.ФайлСуществует(ИмяКонфигурационногоФайла) Тогда
+        Лог.Отладка("Файл настройки подключения найден.");
+        УстановитьКонтекстПодключения(УК, ИмяКонфигурационногоФайла);
+    Иначе
+        Лог.Отладка("Файл настройки подключения не найден");
+    КонецЕсли;
     УК.КаталогСборки(РабочийКаталог());
 
     Возврат УК;
 
 КонецФункции
 
+Процедура УстановитьКонтекстПодключения(УК, ИмяКонфигурационногоФайла)
+    ПараметрыПодключения = ПрочитатьДанныеИзФайла(ИмяКонфигурационногоФайла);
+    СтрокаПодключения = ПараметрыПодключения.СтрокаПодключения;
+    Лог.Отладка("Строка подключения из файла %1", СтрокаПодключения);
+    ПользовательИБ = "";
+    ПарольИБ = "";
+    Если ПараметрыПодключения.Свойство("ПользовательИБ") Тогда
+        ПользовательИБ = ПараметрыПодключения.ПользовательИБ;
+    КонецЕсли;  
+    Если ПараметрыПодключения.Свойство("ПарольИБ") Тогда
+        ПарольИБ = ПараметрыПодключения.ПарольИБ;
+    КонецЕсли;  
+    
+    УК.УстановитьКонтекст(СтрокаПодключения, ПользовательИБ, ПарольИБ);
+КонецПроцедуры
+
 Процедура ПрименитьВерсию1С(Знач УправлениеКонфигуратором, Знач Версия1С) Экспорт
     Если ЗначениеЗаполнено(Версия1С) Тогда
         УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы(Версия1С);
@@ -50,11 +78,48 @@
     Возврат "v8-metadata.info";
 КонецФункции // ИмяФайлаИнформацииОМетаданных()
 
+Функция ИмяКонфигурационногоФайла() Экспорт
+    Возврат "packman.conf";
+КонецФункции // ИмяФайлаИнформацииОМетаданных()
+
+Функция ПолучитьПутьКФайлуКонфигурации() Экспорт
+    Возврат ОбъединитьПути(РабочийКаталог(), ИмяКонфигурационногоФайла());
+КонецФункции
+
 Функция ПрочитатьИнформациюОМетаданных(Знач ИмяФайла) Экспорт
 
+    Результат = ПрочитатьДанныеИзФайла(ИмяФайла); 
+    Если Не Результат.Свойство("Версия") Тогда
+        ВызватьИсключение "Не найдено поле Версия в файле метаданных";
+    КонецЕсли;
+    
+    // Предустановленное окружение
+    Переменные = ПолучитьПеременнуюСреды("VPACKMAN_BUILDVARS");
+    Если Переменные <> Неопределено Тогда
+    Лог.Отладка("Обнаружена переменная VPACKMAN_BUILDVARS");
+    Лог.Отладка("VPACKMAN_BUILDVARS=" + Переменные);
+    Строки = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(Переменные, ";");
+    Для Каждого Стр Из Строки Цикл
+        Лог.Отладка("Прочитано: " + Стр);
+         Позиция = Найти(Стр, "=");
+         Если Позиция = 0 Тогда
+            Продолжить;
+        КонецЕсли;
+            
+        Результат.Вставить(Лев(Стр, Позиция-1), Сред(Стр, Позиция+1));
+        КонецЦикла;
+    Иначе
+        Лог.Отладка("Переменная окружения VPACKMAN_BUILDVARS не найдена");
+    КонецЕсли;
+    
+    Возврат Результат;
+    
+КонецФункции // ПрочитатьИнформациюОМетаданных()
+
+Функция ПрочитатьДанныеИзФайла(ИмяФайла)
+    
     Результат = Новый Структура();
     ЧтениеТекста = Новый ЧтениеТекста(ИмяФайла);
-    Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());
     Лог.Отладка("Читаю информацию о метаданных");
     Пока Истина Цикл
         Стр = ЧтениеТекста.ПрочитатьСтроку();
@@ -71,54 +136,31 @@
 
     КонецЦикла;
 
-    Если Не Результат.Свойство("Версия") Тогда
-        ЧтениеТекста.Закрыть();
-        ВызватьИсключение "Не найдено поле Версия в файле метаданных";
-    КонецЕсли;
-    
     ЧтениеТекста.Закрыть();
-
-    // Предустановленное окружение
-    Переменные = ПолучитьПеременнуюСреды("VPACKMAN_BUILDVARS");
-    Если Переменные <> Неопределено Тогда
-    	Лог.Отладка("Обнаружена переменная VPACKMAN_BUILDVARS");
-		Лог.Отладка("VPACKMAN_BUILDVARS=" + Переменные);
-		Строки = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(Переменные, ";");
-		Для Каждого Стр Из Строки Цикл
-			Лог.Отладка("Прочитано: " + Стр);
-			Позиция = Найти(Стр, "=");
-			Если Позиция = 0 Тогда
-				Продолжить;
-			КонецЕсли;
-			
-			Результат.Вставить(Лев(Стр, Позиция-1), Сред(Стр, Позиция+1));
-		КонецЦикла;
-	Иначе
-		Лог.Отладка("Переменная окружения VPACKMAN_BUILDVARS не найдена");
-    КонецЕсли;
 
     Возврат Результат;
-    
-КонецФункции // ПрочитатьИнформациюОМетаданных()
+КонецФункции
 
 Функция ОпределитьСтандартноеИмяКаталогаШаблона(Знач ИнформацияОМетаданных) Экспорт
-	
-	Перем ВерсияМетаданных;
-	Перем НомерКоммита;
-	Перем НомерСборкиСервера;
-
-	ВерсияМетаданных = ИнформацияОМетаданных.Версия;
-	ИнформацияОМетаданных.Свойство("НомерВерсииХранилища", НомерКоммита);
-	ИнформацияОМетаданных.Свойство("НомерСборкиСервера", НомерСборкиСервера);
-	
-	Возврат ВерсияМетаданных + НеобязательныйСуффикс("-", НомерКоммита) + НеобязательныйСуффикс(".", НомерСборкиСервера);
-
+    
+    Перем ВерсияМетаданных;
+    Перем НомерКоммита;
+    Перем НомерСборкиСервера;
+    
+    ВерсияМетаданных = ИнформацияОМетаданных.Версия;
+    ИнформацияОМетаданных.Свойство("НомерВерсииХранилища", НомерКоммита);
+    ИнформацияОМетаданных.Свойство("НомерСборкиСервера", НомерСборкиСервера);
+    
+    Возврат ВерсияМетаданных + НеобязательныйСуффикс("-", НомерКоммита) + НеобязательныйСуффикс(".", НомерСборкиСервера);
+    
 КонецФункции // ОпределитьСтандартноеИмяКаталогаШаблона()
 
 Функция НеобязательныйСуффикс(Знач Разделитель, Знач Значение)
-	Если Не ПустаяСтрока(Значение) Тогда
-		Возврат Разделитель + Значение;
-	КонецЕсли;
+    Если Не ПустаяСтрока(Значение) Тогда
+        Возврат Разделитель + Значение;
+    КонецЕсли;
+    
+    Возврат "";
+КонецФункции
 
-	Возврат "";
-КонецФункции
+Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());

src/Модули/ПараметрыСистемы.os

@@ -10,6 +10,7 @@
     КлассыРеализацииКоманд["help"]           = "КомандаСправкаПоПараметрам";
     КлассыРеализацииКоманд["version"]        = "КомандаВерсия";
     КлассыРеализацииКоманд["load-storage"]   = "КомандаВыгрузитьИзХранилища";
+    КлассыРеализацииКоманд["set-database"]   = "КомандаПодключитьИнформационнуюБазу";
     КлассыРеализацииКоманд["drop-support"]   = "КомандаСнятьСПоддержки";
     КлассыРеализацииКоманд["load-src"]       = "КомандаСобратьИзИсходныхФайлов";
     КлассыРеализацииКоманд["make-cf"]        = "КомандаСоздатьФайлыПоставки";
@@ -41,6 +42,6 @@
 
 Функция ВерсияПродукта() Экспорт
 
-    Возврат "0.6";
+    Возврат "0.7";
 
 КонецФункции // ВерсияПродукта() Экспорт

tests/create-distr.os

@@ -15,6 +15,7 @@
     Список.Добавить("Тест_ДолженПроверитьЧтоВерсияПолученаСПомощьюTool1CD");
     Список.Добавить("Тест_ДолженПроверитьЧтоВерсияПолученаСПомощьюTool1CDИЕстьФайлПараметров");
     Список.Добавить("Тест_ДолженПроверитьЧтоКаталогСборкиОчищается");
+    Список.Добавить("Тест_ДолженПроверитьЧтоПодключаетсяВнешняяИБ");
 
     Возврат Список;
 
@@ -207,5 +208,42 @@
 
 КонецПроцедуры // ИмяПроцедуры()
 
+Процедура Тест_ДолженПроверитьЧтоПодключаетсяВнешняяИБ() Экспорт
+    КонфигурационныйФайл = Новый Файл(ОкружениеСборки.ПолучитьПутьКФайлуКонфигурации());
+    ФайлПоставки = Новый Файл(ОбъединитьПути(ОкружениеСборки.РабочийКаталог(), "1cv8.cf"));
+    
+    ВременноеХранилище = СоздатьВременноеТестовоеХранилище();
+    КаталогСборки = ВременныеФайлы.СоздатьКаталог();
+    Параметры = Новый Соответствие;
+
+    Параметры.Вставить("АдресХранилища", ВременноеХранилище);
+    Параметры.Вставить("-storage-user","Администратор");
+    Параметры.Вставить("-storage-pwd", "");
+    Параметры.Вставить("-storage-v", "18");
+    Параметры.Вставить("-use-tool1cd", Ложь);
+
+    
+    КомандаыгрузитьИзХранилища = Новый КомандаВыгрузитьИзХранилища;
+    УправлениеКонфигуратором = Новый УправлениеКонфигуратором;
+    УправлениеКонфигуратором.КаталогСборки(КаталогСборки);
+
+    КомандаыгрузитьИзХранилища.ВыполнитьКоманду(Параметры);
+
+    КомандаПодключитьИнформационнуюБазу = Новый КомандаПодключитьИнформационнуюБазу;
+    Параметры = Новый Соответствие;
+
+    Сообщить("Каталог сборки - отладка" + ОкружениеСборки.РабочийКаталог());
+    Параметры.Вставить("ibconnection", "/F" + ОбъединитьПути(ОкружениеСборки.РабочийКаталог(), "v8r_TempDB/"));
+
+    КомандаПодключитьИнформационнуюБазу.ВыполнитьКоманду(Параметры);
+
+    КомандаСоздатьФайлыПоставки = Новый КомандаСоздатьФайлыПоставки;
+    КомандаСоздатьФайлыПоставки.ВыполнитьКоманду(Новый Соответствие());
+
+    Сообщить("Файл поставки " + ФайлПоставки);
+    Ожидаем.Что(ФайлПоставки.Существует()).ЕстьИстина();
+
+КонецПроцедуры
+
 Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы());
 Лог.УстановитьУровень(УровниЛога.Отладка);