Using OpenAudit to save my hair... :-)

Tue, 07 Nov 2006 21:25:52 GMT

Now that there won't be an OpenNTF session at Lotusphere 2007 I thought I would share how I just used Open Audit to implement auditing logging and hence save my hair... Furthermore I made to little hack in Open Audit that others might benefit from so I thought I would share.

AutoPurge for OpenLog

Wed, 16 Aug 2006 09:06:37 GMT

We are using the OpenLog logging framework written by Julian extensively in our applications but in logging intensive applications or when running with our custom DEBUG-level enabled you can generate a lot of logging documents. Cleaning these up should preferably be done automatically on a scheduled basis so I wrote a small agent to purge log documents older than 6 months and thought I would share:

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim dt As NotesDateTime
	
   Set dt = New NotesDateTime(session.International.Today)
   Call dt.AdjustMonth(-6)
   Set db = session.CurrentDatabase
   Set dc = db.Search(|Form="LogEvent" & LogEventTime<@TextToTime("| + dt.DateOnly + |")|, Nothing, 0)
   
   Call dc.RemoveAll(True)
End Sub

Really simple and nothing much to it...

lekkimworld.comopenlog

Using OpenAudit to save my hair... :-)

AutoPurge for OpenLog