Option Declare
Use "OpenLogFunctions"


Sub Click(Source As Button)
	
	On Error Goto ErrorHandler
	
	' The purpose of this routine is to log details of a user's access and roles
	' to help diagnose whatever problem they might be having.
	
	Dim sess As New NotesSession
	Dim CommonName As String
	CommonName = sess.CommonUserName
	
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.CurrentDocument
	Dim CurrDoc As NotesDocument
	Dim Message As String
	
	Dim RUSure As Integer
	RUSure = ws.Prompt(PROMPT_YESNO, "Write Access Details to Error Log", "Are you sure you want to do this?" _
	& Chr(10) & "Only select YES if you have been asked to select the 'Write Access Details' action.")
	
	If RUSure Then
		Message = "Access details logged by " & CommonName
		If uidoc Is Nothing Then
			Message = Message &  " (who does not have a document open)."
		Elseif uidoc.EditMode Then
			Set CurrDoc = uidoc.Document
			Message = Message &  " who was in Edit mode within Form " & CurrDoc.Form(0) & "."
		Else
			Set CurrDoc = uidoc.Document
			Message = Message &  " who was in View mode within Form " & CurrDoc.Form(0) & "."
		End If
		
		Call LogEvent (Message, "0", CurrDoc)
		
		Dim SpacePos As Integer
		SpacePos = Instr(CommonName, " ")
		If SpacePos > 1 Then
			Message = "Thanks " & Left(CommonName, SpacePos - 1) & ".  Access Details have been logged."
		Else			
			Message = "Thanks.  Your Access Details have been logged."
		End If
		Messagebox Message 
	Else
		Messagebox "OK.  Your Access Details have not been logged."
	End If
	
	Exit Sub
	
ErrorHandler:
	
	Call LogError()
	
	Select Case Err
	Case 9999
		Resume Next
	Case Else
		Messagebox Error$
		Resume ExitAfterError
	End Select
	
ExitAfterError:
End Sub