Category BlogSphere
Bookmark :              



Lately I have been getting more and more "fake" responses created in my blog - these are responses created by spammers that are created without any "parent" document (i.e. they don't have a $REF field, etc.). They appear at the top of my Stories view, and they simply annoy me because I have to delete them all the time. So, I decided to write an agent to delete them for me - and I figured that others must be experiencing the same problem, so I thought I would share the agent here.

It is a really small agent - here's all the code:

Sub Initialize
	Dim s As New NotesSession
	Dim thisdb As NotesDatabase
	Dim col As NotesDocumentCollection
	Dim doc As NotesDocument,deldoc As NotesDocument
	
	On Error Goto errHandler
	
	Set thisdb = s.CurrentDatabase
	Set col = thisdb.UnprocessedDocuments
	If col.Count = 0 Then Exit Sub
	
	Set doc = col.getFirstDocument
	Do While Not(doc Is Nothing)
		If doc.GetItemValue("Form")(0) = "StoryResponse" Then
			If doc.HasItem("$REF") = False Then
				Set deldoc = doc
			End If
		End If
		Call s.UpdateProcessedDoc(doc)
		Set doc = col.GetNextDocument(doc)
		If Not(deldoc Is Nothing) Then Call deldoc.Remove(True)
	Loop
	
getOut:
	Exit Sub
errHandler:
	Msgbox Error$ & " (" & Err & ") [line: " & Erl & " in DeleteFakeResponses agent]",, "Error"
	Resume getOut
End Sub

Not much to it. The agent is scheduled to run "after documents are created or modified", and is set to run on my blog server. It gets a collection of unprocessed documents, then loops through all of them. It first checks the form to see if it is "StoryResponse", and if it is then it checks to see if it has a $REF item. If it does not, the doc is set to a deldoc handle, and is deleted after the next document handle is gotten (so that it loops correctly).

I tested it, and I am running it now with great success. Hopefully it will help you too.

Enjoy!

Rock
**Mr. Scott, there are always alternatives. --Mr. Spock, Star Trek