Dans cet article, je vais montrer comment synchroniser les contacts, les tâches et l’agenda avec Mdaemon.

Nous aurons besoin d’installer l’outil de synchronisation d’évolution nommé : SyncEvolution

Aller dans la logithèque d’Ubuntu et taper : Sync evolution :

Installer Sync.

Ouvrez l’application synchronisation

puis cliquez sur “Changer ou modifier le service de synchronisation”

Créer un nouveau fournisseur de services du nom de “Mdaemon” et remplissez les informations comme suit :

Sauvegardez.

A ce stade, l’agenda ne fonctionnera pas. Il faut modifier le fichier config.ini du calendrier pour faire fonctionner la synchronisation.

Voici son emplacement :

vi /home/utilisateur/.config/syncevolution/default/peers/mdaemon/sources/calendar/config.ini

Aller à la fin du fichier (:$) et remplacer :

type = calendar

par :

type = calendar:text/x-vcalendar!

Puis tester la synchronisation

Commande :

Il peut être utile de connaitre le nombre de messages en queue sur un serveur de messagerie. Il est même souhaitable de le superviser.

Voici la commande permettant de connaitre le nombre d’emails en queue :

mailq  | tail -1 | awk ‘{print $5}’

Script Nagios

Voici un petit script nagios à utiliser avec nrpe permettant de superviser le nombre de messages en queue :

resultat=`mailq | tail -1 | awk ‘{print $5}’`
if [ $resultat -lt 500 ]
then
   echo "OK – La queue est de $resultat"
   exit 0
else
  echo "CRITICAL – La queue comporte $resultat mails"
  exit 2
fi

Ici, j’ai décidé d’être alerté lorsque la queue comporte plus de 500 messages.

Cause d’un nombre de message élevé :

Si le nombre de message augmente rapidement en peu de temps, il est possible que vous soyez spammé ou que vous spammiez.

Il est également possible que le serveur de messagerie situé derrière votre relai postfix soit inaccessible. De ce fait, postfix ne peut plus libérer sa queue.

Si le nombre de message de la queue augmente lentement ( semaine, mois), il est peut-être intéressant de regarder ce qu’il y’a en queue et de faire un peut de ménage grâce à ces commandes :

http://www.croc-informatique.fr/2010/02/queue-postfix/

http://www.croc-informatique.fr/2010/11/commande-permettant-de-supprimer-tous-les-messages-mailer-daemon-de-la-queue-postfix/

Bonne continuation

Voici la commande :

mailq | grep MAILER-DAEMON | awk ‘{print $1}’ | tr -d ‘*’ | postsuper -d -

Avec Mdaemon, vous tout est fichier. Un email est un fichier de type msg. Mdaemon fourni un utilitaire qui se nome AccountPrune.exe qui permet d’effectuer des tâches journalière (à minuit).

Dans cet article, nous allons expliquer la manière d’utiliser cet outil pour supprimer les vieux emails dans le répertoire d’un utilisateur ou dans toutes les boites aux lettres du serveur.

Le fichier d’aide de l’outil se site dans le répertoire app du dossier Mdaemon. Il se nomme : AccountPrune.txt

Supression des emails des éléments supprimés pour un utilisateur

Voici un exemple d’utilisation de l’outil :

Pour supprimer les mails appartenant aux dossier éléments supprimés vieux de plus de 30 jours dans le répertoire de l’utilisateur test@mail.net :

D:\MDaemon\App\AccountPrune.exe /m /d=30 /p= »&AMk-l&AOk-ments supprim&AOk-s.IMAP » /U=test@mail.net

/d permet de diffinir le nombre de jour

/p permet de spécifier le répertoire à analyser

/m permet la supression des emails

/U permet d’effectuer l’action sur un utilisateur

Tester une commande

Pour tester la commande avant de supprimer définitivement les emails, vous pouvez ajouter l’argument /L. Cet argument va logger dans le fichier “D:\MDaemon\Logs\AccountPrune.log” l’ensemble des actions qui vont être effectuées.

exemple :

D:\MDaemon\App\AccountPrune.exe /m /d=30 /p= »&AMk-l&AOk-ments supprim&AOk-s.IMAP » /U=test@mail.net /L

Supression des emails des éléments supprimés pour tous les utilisateurs

Appliquer cette commande à l’ensemble des utilisitateurs

D:\MDaemon\App\AccountPrune.exe /m /d=30 /p= »&AMk-l&AOk-ments supprim&AOk-s.IMAP »

Je mets ce script ici pour me permettre de le retrouver si je perds la mémoire :p. Peut-être que ça servira à quelqu’un.

Il a été intégré à Nagios grâce au code erreur en sortie puis exécuté par le check_nrpe. Ce script est au format wsf.

<package>
<job id="Application Script">

<comment>
          File: Application.wsf
          Description: Ce script permet de savoir si une application récupère bien
          les emails via POP sur Mdaemon
          Réalisé par Olivier Legras

</comment>
<runtime>

<description>
          Il liste les fichiers msg sur le serveur Mdaemon des comptes ActesWeb
</description>

<example>
          CScript ActesWebtest.wsf numero_partenaire //nologo
</example>

</runtime>

<script language="VBScript">
‘Déclaration des variables
‘__________________________________
‘Constantes
Option Explicit
Const TempsMaximum = 60
Const Extension = "msg"
Const intOK = 0
Const intWarning = 1
Const intCritical = 2

‘Variables
Dim Ville
Dim fso, fichier, fileItem
Dim i, imax, z, valeur, cible, liste, i2, strMessage, intExit
Dim DifferenceMinute , PathMDB, Nom_rep

‘Objets
Set fso = CreateObject("Scripting.FileSystemObject")

‘Initialisation
strMessage = ""
imax = 0

‘Test de l’argument Partenaire (1 argument obligatoire)
If WScript.Arguments.Count <> 1 Then
    strMessage = "Critical: Mettre le partenaire en argument"
    intExit = intCritical
    WScript.Echo strMessage
    WScript.Quit(intExit)
End If

‘Récupération de contenu de l’argument
Ville = WScript.Arguments.Item(0)

‘Attribution du répertoire en fonction du partenaire
Select Case Ville
Case "10"
    PathMDB = "D:MDaemonUsersdomaineapplication10"
Case "11"
    PathMDB = "D:MDaemonUsersdomaineapplication11"
Case "12"
    PathMDB = "D:MDaemonUsersdomaineapplication12"
Case "13"
    PathMDB = "D:MDaemonUsersdomaineapplication13"
Case "14"
    PathMDB = "D:MDaemonUsersdomaineapplication14"
Case Else
    strMessage = "Critical: Partenaire Inconnu : "& Ville
    intExit = intCritical
    WScript.Echo strMessage
    WScript.Quit(intExit)
End Select

‘On test que le chemin est valide
If Not (fso.FolderExists(PathMDB)) Then
    strMessage = "Critical: Repertoire inaccessible :"& PathMDB
    intExit = intCritical
    WScript.Echo strMessage
    WScript.Quit(intExit)
End If

‘On récupère la liste des fichiers du répertoire
‘début de l’énumération
For Each fichier In fso.GetFolder(PathMDB).Files
Set fileItem = fso.GetFile(fichier)

imax = imax + 1
ReDim Preserve Tableau(3, imax)
Tableau(1, imax) = Fichier.Name
Tableau(2, imax) = FileItem.DateLastModified
Tableau(3, imax) = fso.GetExtensionName (Fichier.Name)

‘—trier les fichiers par ordre décroissant de création —
Do
Valeur = 0
For i = 0 To imax – 1
If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
For z = 1 To 3
Cible = Tableau(z, i)
Tableau(z, i) = Tableau(z, i + 1)
Tableau(z, i + 1) = Cible
Next
Valeur = 1
End If
Next
Loop While Valeur = 1
Set fileItem = nothing
Next
imax=UBound(Tableau,2)

‘On récupère seulement les fichiers avec l extension de notre choix
i2=1
ReDim Preserve Tableau_final(3,imax)
For i = 1 To imax – 1
If Tableau(3, i)=Extension Then
    ‘For z = 1 To 3
    Tableau_final(1, i2) = Tableau(1, i)
    Tableau_final(3, i2) = Tableau(3, i)
    Tableau_final(2, i2) = CDate(Tableau(2, i))
    i2 = i2 +1
    Valeur = 1
End If
Next

‘Comparer les date de création des fichiers msg
DifferenceMinute = DateDiff("n",Cdate(Tableau_final(2,i2-1)),Now )

‘On vérifie que la date n’est pas nulle
If (Cdate(Tableau_final(2,i2-1)) <> "00:00:00") Then
    ‘On vérifie que le courrier est bien récupérer avant 60 minutes
    If DifferenceMinute > TempsMaximum then
        intExit = intCritical
        strMessage = "Critical: Les mails ne sont pas recuperes depuis le "& Cdate(Tableau_final(2,i2-1))
    End If
Else
    intExit = intOk
    strMessage = "Ok: Fonctionnement Normal"
End If

Set fso = Nothing

WScript.Echo strMessage
WScript.Quit(intExit)

</script>
</job>
</package>