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