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.

Image:Domino Cluster and Replica Settings

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