Решено Как снять копии шаблона(дизайна) со списка баз? создать ntf

[Ruslan280]

Подскажите пожалуйста - возникла необходимость снять шаблон с большого количества баз.
хотелось бы автоматизировать процесс.
пытался сделать из ОС батником

FOR %%G IN (d:\lotus\domino\data\baza\*.nsf) DO (
echo %%~nxG
nserver.exe -c "cl copy baza\%%~nxG templates\%%~nG.ntf template"
)

также пытался создать текстовый файл с командами ( cl copy по каждой базе) и запустить его в консоли лотус-- в обоих случаях шаблоны создаются через раз. иногда пустые. иногда не все.

кто-нибудь знает правильное решение?

 

[ToxaRat]

тю, открываешь любую базу, достаешь док иконку и затираешь там это поле с название шаблона

 

[odyssey]

и затираешь там это поле с название шаблона

ИМХО тут стоит немного другая задача - автоматом с рабочих баз нагенерить шаблонов

 

[ToxaRat]

ИМХО тут стоит немного другая задача - автоматом с рабочих баз нагенерить шаблонов

это как?
что подразумевается в данном случае под шаблоном?
наделать копии без доков?

 

[garrick]

Сделать копию базы можно с помощью метода CreateCopy, но "назначить" её шаблоном метода нет.

обоих случаях шаблоны создаются через раз. иногда пустые. иногда не все.

Потому, что файлы баз могут быть заблокированы сервером и с консоли OC могут не скопироваться. И к тому же процесс копирования всех элементов базы может занимать продолжительное время, может просто подождать надо пока файл "наполнится"?

 

[savl]

Ну... я генерю ntf так:

fPath = StrLeftBack(db.Filepath,".")
If InStr(fPath, {\}) Then fPath = StrRightBack(fPath,{\})
 
Set templateDb = db.Createcopy("",fPath & ".ntf")
 
Call templateDb.Grantaccess(ses.Username, 6)

А вот тут целую базы создают для создания списка шаблонов

Ссылка скрыта от гостей

 

[garrick]

Ну... я генерю ntf так:

Ну, так это будет обычная база, только с расширением NTF. В свойствах базы она же не будет значится шаблоном.

 

[Ruslan280]

Ну... я генерю ntf так:

fPath = StrLeftBack(db.Filepath,".")
If InStr(fPath, {\}) Then fPath = StrRightBack(fPath,{\})
 
Set templateDb = db.Createcopy("",fPath & ".ntf")
 
Call templateDb.Grantaccess(ses.Username, 6)

А вот тут целую базы создают для создания списка шаблонов

Ссылка скрыта от гостей

спасибо - то что надо

а они, интересно, зашифрованные создаются?

 

[Ruslan280]

это как?
что подразумевается в данном случае под шаблоном?
наделать копии без доков?

да,точно-копии без документов

 

[savl]

@garrick, согласен, но у нас служба Design отключена.
Вместо refresh делаем Replace, программно.
А чтобы проставить галку, надо четко понимать что такого храниться в $Flags у иконки базы.
Иконку можно получить так: Set doc = db.GetDocumentByID("FFFF0010")
Для одной моей базы, если она не является шаблоном там значение: J7SF2
А вот если является, то: J7F2
Таким образом надо найти все возможности DBIcon и можно делать почти что угодно...

 

[rinsk]

про темплейты тут:

Ссылка скрыта от гостей

 

[Ruslan280]

всё отлично работает . отключил шифрование по умолчанию так
File - Security --> User Security --> Notes Data --> Databases --> "Do not locally encrypt"

 

[Ruslan280]

возможно кому-то будет интересно - vbs-скрипт для снятия копий шаблонов с баз в папке
копирует в папку лотус-клиента - data/годмесяцдень

server="domino/ru"
password=""
folder="papka"
 
Dim s, dir, db,ndb
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize(password)
Set dir = s.GetDbDirectory(server)
Set db = dir.GetFirstDatabase(1247)
 
dest=DatePart("yyyy",Now)& DatePart("m",Now) & DatePart("d",Now) & "/templates/"
While Not (db Is Nothing)
 
pos=InStr(UCase(db.FilePath),UCase(folder))
If pos=1 Then
 
WScript.Echo db.Title& "  " & db.FilePath
Set ndb=dir.OpenDatabase(db.FilePath)
 
If ndb.isopen Then
Set tdb=ndb.CreateCopy("",dest & db.Filename)
WScript.echo "ok"
Else
ers=ers & " " & db.title
WScript.echo db.title & " !!! error"
End If
 
End If
Set db = dir.GetNextDatabase
 
Wend
 
WScript.Echo "done.  errors: " & ers

 

[lmike]

vbs-скрипт для снятия копий шаблонов

фейерично будет работать на линухах, аиксах, ос390
почему это не агент, а какой-то виндятский скрипт, да еще вызывает КОМ нотусни...
страшное глюкало будет

 

[Ruslan280]

фейерично будет работать на линухах, аиксах, ос390
почему это не агент, а какой-то виндятский скрипт, да еще вызывает КОМ нотусни...
страшное глюкало будет

ну да - глючить может. просто возможно кому-то пригодится для примера.
скрипт из агента и сделан. - там разница только в Set s = CreateObject("Lotus.NotesSession").

агент занимает клиента лотус во время работы

 

[lmike]

агент занимает клиента лотус во время работы

ну так БД создается не "просто-так" , вполне нормальная ситуация - подождать (или запускать на сервере - если ответ "не нужен")

 

[Ruslan280]

ну так БД создается не "просто-так" , вполне нормальная ситуация - подождать (или запускать на сервере - если ответ "не нужен")

или запустить скрипт и он всё что нужно сделает в фоне
вариантов масса. кому как нравится. я из скрипта этого сделал hta - там можно только несколько баз выбрать и видно прогресс.
удобно

 

[lmike]

или запустить скрипт

скрипт платформенно не переносИм