Takenoff Labs

NotesACL クラスの DeleteRole を実行すると、ロールを削除することができますが、ある条件によっては、違うロールが（見た目上）有効化されてしまうことがあるようです。

【再現手順】

1. ACL でロール [A]、[B]、[C] を作成します。

2. エントリのロール [A]、[B] を有効化します。（[C] は有効化しない。）

3. NotesACL.DeleteRole("B") を実行します。

Dim ss As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL

Set db = ss.CurrentDatabase
Set acl = db.ACL
Call acl.DeleteRole("B")
Call acl.Save()

4-1. ACL を表示すると、なぜか [C] ロールが有効化されています。

4-2. しかし、「グループとロール」ダイアログを表示すると、有効化されているのは [A] ロールだけです。

4-3. 以下のコードでエントリのロールを取得しても、[A] ロールのみ返ります。

Dim ss As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry

Set db = ss.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry("takenoff/takenoff")
Msgbox Join(entry.Roles, ",")

5. じゃあ、ということで、以下のコードでもう [B] ロールを追加すると……

Dim ss As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL

Set db = ss.CurrentDatabase
Set acl = db.ACL
Call acl.AddRole("B")
Call acl.Save()

6. エントリに [B] ロールが復活しました 😯

以上のことから、NotesACL.DeleteRole は、個々のエントリのロール情報までは変更していないことが解るかと思います。

これは NotesACL.DeleteRole のバグで、R7.0.3 で修正されているようです。

R7.0.3より低いバージョンでは、DeleteRole の前に全エントリの対象ロールを無効化する処理を入れるしかないですかね……○|￣|＿

• 検証バージョン: R6.0.4

(No Ratings Yet)

読み込み中...

トラックバックURL :