• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Проблема Invalid Approval Request note

S

Shandrik

Почему-то не получается заапрувить кодом админ-реквесты Approve Replica Deletion, созданные по
Call nap.DeleteReplicas(ndbMailArchLog.Server,ndbMailArchLog.FilePath)

Получаю Invalid Approval Request note.


Этим же агентом успешно удаляются реквесты Approve Mail File Deletion.
Не понимаю происходящего и прошу помощи.
 

Вложения

  • Снимок.JPG
    Снимок.JPG
    34,5 КБ · Просмотры: 383

Domino-Designer

Людям надо поморгать!
Lotus Team
06.12.2011
616
223
BIT
9
Lotus правильно ругается.

Включив телепатию я вот так вижу ваш код

Код:
Sub Initialize
    Dim noteid$
    Dim session As New NotesSession
    Dim adminp As NotesAdministrationProcess
    Set adminp = _
    session.CreateAdministrationProcess("ServerName/Domain")
    noteid$ = adminp.DeleteReplicas("ServerName/Domain", "mail/user004.nsf")
    If noteid$ <> "" Then
        Print noteID$
        Call adminp.ApproveReplicaDeletion( noteID$ )
    End If
End Sub

Результат:
---------------------------
IBM Domino Designer
---------------------------
Invalid Approval Request note.
---------------------------
ОК
---------------------------


Разберемся, чо за фигня:

1. noteid$ = adminp.DeleteReplicas("ServerName/Domain", "mail/user005.nsf")

Создан запрос noteid$ = A16:
*Action: Get Replica Information for Deletion
*Server(s) to perform the action: *
*Name(s) to perform the action on: User-004
*Action requested by: Domino Admin/Domain
*Name of process to perform action: Adminp


Подозрительный какой то запрос, да? Название совсем не о том, что мы хотели.

Пока я печатал, картина поменялась.

К A16 появился ответ от сервера noteid$ = A1E:
*Action: Get Replica Information for Deletion
*Link to request:
*Name(s) acted upon: User-004
*Action requested by: Domino Admin/Domain
*Server responding to request: ServerName/Domain
*Start time: 19:28:17 Сегодня
*End time: 19:28:17 Сегодня
*Databases processed: Title: User-004 Path: mail\user004.nsf

И Новый запрос noteid$ = A1A:
*Action: Approve Replica Deletion
*Server(s) to perform the action: ServerName/Domain
*Replica ID: 43258184:004EA26A
*Name(s) to perform the action on: User-004
*Action requested by: Domino Admin/Domain
*Name of process to perform action: Adminp
*Database name: mail\user004.nsf
*Database title: User-004
*Database ACL: The following have Manager access to this database; Domino Admin/Domain; agd-t/Domain; LocalDomainServers
*Database design template name: StdR9Mail

"Вот она, вот она, на #@& намотана"

В А1А есть поле ProxyOriginatingRequestUNID с UNID для A16

Отредактирую агент

Код:
    Dim noteid$
    Dim session As New NotesSession
    Dim adminp As NotesAdministrationProcess
    Set adminp = _
    session.CreateAdministrationProcess("ServerName/Domain")
    Call adminp.ApproveReplicaDeletion( "А1А" )

Отработал без ошибок.

Сформирован ответ к А1А:
*Action: Approve Replica Deletion
*Link to request:
*Name(s) acted upon: User-004
*Action completed by: Domino Admin/Domain
*Action requested by: Domino Admin/Domain
*Start time: 19:42:30 Сегодня
*End time: 19:42:30 Сегодня
*Databases processed: mail\user004.nsf

Сформирован запрос
*Action: Request Replica Deletion
*Server(s) to perform the action: Administration Server for the Domino Directory
Replica ID: 43258184:004EA26A
*Name(s) to perform the action on: User-004
*Action requested by: Domino Admin/Domain
*Name of process to perform action: Adminp
Database name: mail\user004.nsf
Database title: User-004

Не будем ждать
tell adminp process all

На консоле
[3AFC:0007-0C88] 05.10.2017 19:46:17 Admin Process: Received the following error performing a Get Replica Information
for Deletion request on User-004. The replica, belonging to 'User-004', does not exist on this server.

Да и хрен с ней.
... Мне пользователь User-004 звонит, говорит почта не открывается, я убежал.
 
  • Нравится
Реакции: Vertigo
S

Shandrik

Lotus правильно ругается.
Да и хрен с ней.
... Мне пользователь User-004 звонит, говорит почта не открывается, я убежал.
:)
[doublepost=1507293996,1507289399][/doublepost]Админ-реквесты я получал не по NoteId, по перебирая вьюшку.

Нашёл свою ошибку - раньше агент обрабатывал только Approve Mail File Deletion, а потом добавил ещё и Approve Replica Deletion, но метод вызывал один - ApproveMailFileDeletion.

Спасибо, можно ставить "Решено"!
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!