Customize Blogsphere

From WIKI for BlogSphere, a Lotus Domino Blog

There's a LOT of customizing one can do, since the design is open source. One of the things I like to do is to customize the agent that sends notification of new comments. I add this code so that many bogus comments are deleted before I ever even see them:

       ' Delete the doc if it's a blank or bogus document
       strURL = Trim$(doc.txtURL(0))
       strEmail = Trim$(doc.txtEmail(0))
       strParentUNID = Trim$(doc.txtParentUNID(0))
       strHttpReferrer = doc.HTTP_Referer(0)
       If (Trim$(doc.GetFirstItem("Body").Text) = "") _
       Or (strURL = "" And strEmail = "" And strParentUNID = "") _
       Or (strHttpReferrer = "") Then
         Call body.AppendText("Looks like a bogus document. Deleting...")
         Call body.AddNewLine( 1 )
         Call body.AppendText("From: " & doc.NAMEAUTHOR(0) & "    " & doc.txtEmail(0) )
         Call body.AddNewLine( 1 )
         
         If strURL <> "" Then
         ' Write author's web site address
           Call body.AppendText("Web site: " &amp; doc.txtURL(0) )
           Call body.AddNewLine( 1 )
         End If
         Call body.AppendText( doc.HTTP_Referer(0) )
         Call body.AddNewLine( 2 )
         Call doc.Remove( True )
         intNewComments = intNewComments + 1

...If you look at the agent, you'll see where it would make sense to add this code :-)