日志是开发系统时的有效工具和常见需求。它不仅可以在程序排错时提供调试信息,还可以记录系统运行的日常状况,以供需要时查询或集中起来分析。在一些主要的编程语言如Java中,都有不少日志框架可供选择。在LotusNotes里,在文档、代理、数据库和系统级别Notes本身记录和保留了很多信息,再加上Notes数据库功能和日志载体格式的限制,通用的日志程序和框架不发达。不过在OpenNtf.Org网站上,也至少有两个项目是用于日志的。一是广受好评的OpenLog,最大的特色就是只有一行调用函数就可以得到外观不错信息丰富的错误记录。另一个是鲜有人注意的Log4Dom特点是(从名称上也可以看出来)仿造Log4J的思路,创建了一套自定义类以记录日志。前者虽然方便,但是从笔者的角度看,记录的信息有些累赘,而且表单和视图都有特定的外观风格,不易整合进整个系统。如果是要记录错误信息,笔者觉得使用34. LotusScript中的错误处理程序一文中的代码就足够了。后者的思路和风格笔者却很喜欢。虽然它也有不少缺点,比如一味模仿Log4J,建立的几个日志载体类有些牵强,调用过程也不方便,并且重要的是还有几个bug影响使用。于是笔者对它作了一定的调整和修改,它遂变成开发中不可少的称手工具。

日志视图:

48. 面向对象的LotusScript(十四)之Log4Dom上-LMLPHP

单个日志文档:

48. 面向对象的LotusScript(十四)之Log4Dom上-LMLPHP

记录了错误信息的日志文档:

48. 面向对象的LotusScript(十四)之Log4Dom上-LMLPHP

在一个函数中使用Log4Dom记录错误信息到日志的样例如下:

Private Function SendUrgentMail(doc As NotesDocument)
Dim s As New NotesSession
Dim db As NotesDatabase
Set db=s.Currentdatabase
Dim logger As log4dom
Set logger = GetLogger(Nothing)
On Error GoTo ErrorHandler Dim sendTo As String
sendTo=GetMail(doc.PersonInCharge(0))
logger.debug("Sent an urgent PO to: " & sendTo)
If sendTo="" Then
Print "The mail of the current handler of the PO is not found."
GoTo ExitFunction
End If
Dim body As String, subject As String
body=GetMailBody(doc)
subject="An Urgent Purchasing Order Of No. " & doc.No(0) & " Is Appending For Your Handling."
Call SendHTMLMail(sendTo, subject, body)
'mark the documents
Call doc.ReplaceItemValue("SentSummary", "Y") ExitFunction:
Call logger.Close()
Exit Function
ErrorHandler:
Call logger.HandleError()
GoTo ExitFunction
End Function

开发中更多用到日志的是定时运行的代理,为此我们可以几个自定义类,在其中可以方便地直接使用一个作为对象字段的日志对象,而无需像上面那样专门定义和初始化日志实例。

Public Class UseLog
Private logger As log4Dom %REM
Sub New
Description: Comments for Sub
%END REM
Sub New()
Set logger=GetLogger(Nothing)
End Sub 'close the logger
Sub Delete()
Call logger.Close()
End Sub End Class Public Class AgentWithLog As UseLog
Private s As NotesSession
Private db As NotesDatabase %REM
Sub New
Description: Comments for Sub
%END REM
Sub New()
Set s=New NotesSession
Set db=s.CurrentDatabase
End Sub
End Class

下面是一个使用上面的UseLog或AgentWithLog类的样例。只保留了使用日志的部分代码。代码较长,只需注意调用日志对象记录信息和错误的语句。本文上面图片中的日志大部分就是由这个代理产生的。

Private Class Reminder As UseLog
Private s As NotesSession
Private db As NotesDatabase
Private view As NotesView
Private detailCols As Dictionary
Private detailHeads As Variant
Private detailFields As Variant Sub New()
On Error GoTo ErrorHandler
Set s=New NotesSession
Set db=s.Currentdatabase
Set view=db.Getview(VIEW_PO_BY_STATUS)
view.Autoupdate=False
Set me.detailCols=New Dictionary
With detailCols
Call .Add("Description", "Title")
Call .Add("Amount", "Amt_1")
Call .Add("Sub Expense Account", "expItem")
Call .Add("Employee", "Employee")
Call .Add("Office", "Office")
Call .Add("Department", "Dept")
End With
me.detailFields=me.detailCols.GetValues()
me.detailHeads=me.detailCols.GetKeys()
Exit Sub ErrorHandler:
Call logger.HandleError()
Exit Sub
End Sub Sub Delete()
view.Autoupdate=true
End Sub Private Function Notify(status As String, handler As String )
On Error GoTo ErrorHandler Dim keys(1) As String
Dim sendTo As Variant keys(0)=status 'status
keys(1)=handler 'handler
sendTo=GetCustomMail(keys(1), "OA\CTHR.nsf", "bySCRO", "Staff_EMail")
If sendTo="" Then
logger.info(keys(1) & "'s mail not found.")
Else
Dim vec As NotesViewEntryCollection
Set vec=view.Getallentriesbykey(keys, True)
Dim body As String, subject As String, copyTo As Variant
body=GetMailBody(vec)
subject=vec.Count & " Expenses Of Status " & keys(0) & " Are Pending For Your Handling"
Select Case keys(0)
Case "4.2 Rejected After Final Review"
'inform all the users Brad rejected the PO
copyTo=GetCustomMail(vec.Getfirstentry().Document.FlowReaders, _
"OA\CTHR.nsf", "bySCRO", "Staff_EMail")
logger.info("Copy to: " & Join(copyTo, ","))
Case Else
copyTo=""
End Select Call CCHTMLMail(sendTo, copyTo, "", subject, body)
If IsArray(sendTo) Then
sendTo=Join(sendTo, ", ")
End If
logger.info("Sent Expense Summary of '" & keys(0) & "' to " & sendTo)
'mark the documents
'Call dc.Stampall("SentSummary", "Y")
End If
Exit Function ErrorHandler:
Call logger.HandleError()
Exit Function
End Function End Class

下一片文章里,我们来详细看看这个背后的Log4Dom。

05-02 11:36