Domino Cluster and Replica Settings

Today i have a issue with thow clustered mail servers. Some databases are different and one server goes down. Some users complain about deletion documents still on their mail databases. I found the cause. I don’t know why yet, but replica setings was not the default settings (like the figure bellow) and deletions doesn’t replicate.

Hoje eu tive um problema com dois servidores clusterizados de correio. Algumas bases estavam diferentes e um dos servidores caiu. Alguns usuários reclamaram que emails antigos ainda estavam nas suas bases. Achei a causa mas não sei porquê estava assim. As definições de replcia estavam marcadas para não replicar deleções.

I have a lot of mail databases and then i use the agent bellow to make sure all databases has the same configuration as the screen above.

Como eu tenho muitas bases eu usei o agente abaixo para verificar as configurações.

Sub Initialize
Dim db As NotesDatabase
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim dbdir As NotesDbDirectory
Dim maildb As NotesDatabase
Dim server As String
Dim subdir As String
Dim rep As NotesReplication
Dim i As integer
        server = InputBox ( “Nome do Servidor) (Enter para Local)”)
        subdir = InputBox ( “Em qual subdiretório o agente deve procurar as bases? ( Enter para todos os diretórios) “)
If subdir <> ”“ Then subdir=subdir & ”“
Set db = ses.CurrentDatabase
Set dbdir = ses.GetDbDirectory(server)        
Set maildb = dbdir.GetFirstDatabase(DATABASE)
        i = 0
While Not (maildb Is Nothing)        
If InStr( 1,maildb.FilePath,subdir, 5)<> 0 Then

Call maildb.Open( “”, “”)
If maildb.IsOpen Then
Set rep = maildb.ReplicationInfo
If  rep.IgnoreDeletes Then
                                                                  rep.IgnoreDeletes = False
                                                                   i = i + 1
End If
Call rep.Save()
End If
End If
Set maildb = dbdir.getnextdatabase
Wend
MsgBox ( “Foi (ram) modificado (s)  “ + CStr(i) + ” banco(s) de dados!“ )
End Sub