The admin doing dev again: clear all replication histories

Sub Initialize
	On Error Resume Next
	Dim Svrname As String
	Svrname = "Server/ORG"
	Dim dbdir As New notesdbdirectory(Svrname)
	Dim DB As NotesDatabase
	Dim rep As NotesReplication
	Set DB = dbdir.getfirstdatabase(database)

	While Not(DB Is Nothing)
		Call db.Open("","")
		Set rep = db.ReplicationInfo
		Call rep.ClearHistory()
		Call rep.Save()
		Set DB = dbdir.getnextdatabase
	Wend

End Sub