Country/region select

developerWorks

AIX and UNIX
Information Mgmt
Lotus
	New to Lotus
	Products
	How to buy
	Downloads
	Live demos
	Technical library
	Training
	Support
	Forums & community
	Events
Rational
Tivoli
WebSphere

Java™ technology
Linux
Open source
SOA and Web services
Web development
XML

My developerWorks
About dW
Submit content
Feedback

developerWorks > Lotus > Forums & community > Lotus Sandbox

Lotus Sandbox

User Review of ACL Scanner

Submitted by Luca Faccenda on 11/16/2001.

I found small problems into LogBasic routine.
My modifications are titled ".<lf01"
Thanks for your application .

'*****************
'* LOGBASICS
'*****************
Private Sub LogBasics( doc As NotesDocument, ACLEntry As NotesACLEntry, userName As Variant )
'****************************************************
'* Logs all entries in the NotesACLEntry class
'****************************************************
Select Case ACLEntry.level
Case 6 : doc.Level = "Manager"
Case 5 : doc.Level = "Designer"
Case 4 : doc.Level = "Editor"
Case 3 : doc.Level = "Author"
Case 2 : doc.Level = "Reader"
Case 1 : doc.Level = "Depositor"
Case 0 : doc.Level = "No Access"
End Select
If userName = "" Then
doc.Name = ACLEntry.Name
Else
doc.Name = userName
End If
doc.Roles = ACLEntry.Roles
doc.IsPublicWriter = Cstr(ACLEntry.IsPublicWriter) '.<lf01
doc.IsPublicReader = Cstr(ACLEntry.IsPublicReader) '.<lf01
doc.CanDeleteDocuments = Cstr(ACLEntry.CanDeleteDocuments) '.<lf01
doc.CanCreatePersonalFolder = Cstr(ACLEntry.CanCreatePersonalFolder) '.<lf01
doc.CanCreatePersonalAgent = Cstr(ACLEntry.CanCreatePersonalAgent) '<lf01
doc.CanCreateDocuments = Cstr(ACLEntry.CanCreateDocuments) '.<lf01
End Sub

Go back

Document options


		Print view

Sandbox views

	By Application Name
	By Category
	By Product
	By Audience
	By Date
	By Submitter
	Conferences

Resources

	developerWorks: Lotus Downloads
	alphaWorks Downloads

About IBM

Privacy

Contact