Merge pull request #16 from Khorevaa/feature/ConfigurationRepositoryCopyUsers

API: Копирование пользователей из одного хранилища в другое

Author: nixel2007

src/v8runner.os

@@ -476,10 +476,9 @@
 	Если Не ЗначениеЗаполнено(Право) ТОгда
 		Право = ПраваПользователяХранилища.ТолькоЧтение;
 	КонецЕсли;
-	
+
     Параметры.Добавить(СтрШаблон("-Rights %1",Право));
-    
-	
+
     Если ВосстановитьУдаленного Тогда
         Параметры.Добавить("-RestoreDeletedUser");
     КонецЕсли;	
@@ -488,6 +487,49 @@
 
 КонецПроцедуры
 
+// Копирование пользователей из хранилища конфигурации. Копирование удаленных пользователей не выполняется. 
+//   Если пользователь с указанным именем существует, то пользователь не будет добавлен.
+// 
+//Параметры:
+//   СтрокаСоединения - Строка - Строка соединения с хранилищем конфигурации
+//   ПользовательХранилища - строка - Пользователь для подключения к хранилищю конфигурации
+//   ПарольХранилища - Строка - Пароль пользователь для подключения к хранилищю конфигурации
+//   СтрокаСоединенияХранилищаКопии - Строка - Путь к хранилищу, из которого выполняется копирование пользователей.
+//   ПользовательХранилищаКопии - Строка - Имя пользователя хранилища, из которого выполняется копирование пользователей.
+//   ПарольХранилищаКопии - Строка - Пароль пользователя хранилища, из которого выполняется копирование пользователей.
+//   ВосстановитьУдаленного - Булево - флаг небходимости востановления удаленных пользователей
+//		 
+Процедура КопироватьПользователейИзХранилища(Знач СтрокаСоединения, 
+                                        Знач ПользовательХранилища, 
+                                        Знач ПарольХранилища,
+                                        Знач СтрокаСоединенияХранилищаКопии,
+                                        Знач ПользовательХранилищаКопии,
+                                        Знач ПарольХранилищаКопии = "",
+                                        Знач ВосстановитьУдаленного = Ложь) Экспорт
+    
+    Параметры = СтандартныеПараметрыЗапускаКонфигуратора();
+
+    Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+"""");
+    Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+"""");
+    
+    Если Не ПустаяСтрока(ПарольХранилища) Тогда
+        Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+"""");
+    КонецЕсли;	
+
+    Параметры.Добавить("/ConfigurationRepositoryCopyUsers ");
+    Параметры.Добавить(СтрШаблон("-Path ""%1""",СтрокаСоединенияХранилищаКопии));
+    Параметры.Добавить(СтрШаблон("-User ""%1""",ПользовательХранилищаКопии));
+    Если Не ПустаяСтрока(ПарольХранилищаКопии) Тогда
+    	Параметры.Добавить(СтрШаблон("-Pwd ""%1""",ПарольХранилищаКопии));
+    КонецЕсли;	
+ 
+    Если ВосстановитьУдаленного Тогда
+        Параметры.Добавить("-RestoreDeletedUser");
+    КонецЕсли;	
+
+    ВыполнитьКоманду(Параметры);
+
+КонецПроцедуры
 
 Процедура ВыгрузитьКонфигурациюВФайлы(Знач КаталогВыгрузки, Знач ФорматВыгрузки = "") Экспорт
 

tests/v8runner-test.os

@@ -25,6 +25,7 @@
 	СписокТестов.Добавить("ТестДолжен_СоздатьХранилищеКонфигурации");
 	СписокТестов.Добавить("ТестДолжен_ПроверитьСозданиеФайловПоставки");
     СписокТестов.Добавить("ТестДолжен_ПроверитьФормированиеФайлаОтчетПоВерсиямХранилища");
+    СписокТестов.Добавить("ТестДолжен_СкопироватьПользователейИзХранилища");
 
 	Возврат СписокТестов;
 
@@ -207,6 +208,63 @@
     ВременныеФайлы.Удалить() 
 КонецПроцедуры
 
+
+Процедура ТестДолжен_СкопироватьПользователейИзХранилища() Экспорт
+    
+    ВременныйКаталог = ВременныеФайлы.СоздатьКаталог();
+    УправлениеКонфигуратором.КаталогСборки(ВременныйКаталог);
+
+    КаталогВременногоХранилища = ОбъединитьПути(ВременныйКаталог, "v8r_TempRepository");
+
+    ФайлКонфигурации = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "1.0\1Cv8.cf");
+        
+    
+    УправлениеКонфигуратором.ЗагрузитьКонфигурациюИзФайла(ФайлКонфигурации);
+    УправлениеКонфигуратором.СоздатьФайловоеХранилищеКонфигурации(
+                                    КаталогВременногоХранилища,
+                                    "Администратор");
+    Утверждения.ПроверитьИстину(УправлениеКонфигуратором.ХранилищеКонфигурацииСуществует(КаталогВременногоХранилища), "Временное хранилище конфигурации должно существовать");
+    
+    НовыйПользователь = "ТестовыйПользователь";
+    ПарольПользователя = "ТестПароль";
+    УправлениеКонфигуратором.ДобавитьПользователяВХранилище(КаталогВременногоХранилища, 
+                                                            "Администратор",
+                                                            ,
+                                                            НовыйПользователь,
+                                                            ПарольПользователя,
+                                                            ПраваПользователяХранилища.ТолькоЧтение,
+                                                            Истина);
+    
+    ПутьКФайлуВерсии = УправлениеКонфигуратором.ПолучитьВерсиюИзХранилища(КаталогВременногоХранилища, НовыйПользователь, ПарольПользователя);
+    
+    Утверждения.ПроверитьИстину(ФайлСуществует(ПутьКФайлуВерсии), "Файл конфигурации из хранилища должен существовать");
+    
+    КаталогВременногоХранилища2 = ОбъединитьПути(ВременныйКаталог, "v8r_TempRepository2");
+
+    ФайлКонфигурации = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", "1.0\1Cv8.cf");
+        
+    
+    УправлениеКонфигуратором.ЗагрузитьКонфигурациюИзФайла(ФайлКонфигурации);
+    УправлениеКонфигуратором.СоздатьФайловоеХранилищеКонфигурации(
+                                    КаталогВременногоХранилища,
+                                    "Администратор");
+    Утверждения.ПроверитьИстину(УправлениеКонфигуратором.ХранилищеКонфигурацииСуществует(КаталогВременногоХранилища2), "Временное хранилище 2 конфигурации должно существовать");
+    
+    УправлениеКонфигуратором.КопироватьПользователейИзХранилища(КаталогВременногоХранилища, 
+                                                            "Администратор",
+                                                            ,
+                                                            КаталогВременногоХранилища2,
+                                                            НовыйПользователь,
+                                                            ПарольПользователя,
+                                                            Истина);
+    
+    ПутьКФайлуВерсии = УправлениеКонфигуратором.ПолучитьВерсиюИзХранилища(КаталогВременногоХранилища2, НовыйПользователь, ПарольПользователя);
+    
+    Утверждения.ПроверитьИстину(ФайлСуществует(ПутьКФайлуВерсии), "Файл конфигурации из хранилища должен существовать");
+    
+    ВременныеФайлы.Удалить() 
+КонецПроцедуры
+
 Функция ХранилищеКонфигурацииСуществует(Знач ПапкаХранилища)
 	ФайлБазы = Новый Файл(ОбъединитьПути(ПапкаХранилища, "1cv8ddb.1CD"));