Conversion d'un fichier Fetchmail vers Pullmail

Voici une opération bien embêtante à faire à la main et pratique lorsqu'on a un serveur MX secondaire sur lequel on veut récupérer des mails quant on a la ligne principale internet dead.

Bref, ce script permet de faire une conversion. Il est écrit en Perl :

#!/usr/bin/perl -W

use strict;

open(FILEW, "> /$USER/pullmail.bat");
open(FILER, "< /etc/fetchmailrc");

while (<FILER>){
       $_ =~ s/\'//ig;
       $_ =~ s/\"//ig;
       my @tableau = split (" ", $_);
       print FILEW "pullmail.exe pop.monprovider.fr $tableau[7]\@mondns.fr password $tableau[9] /s:serveur_exchange /le /li /t:10 /to:$tableau[11]\@mondns.fr\n";
}

close FILER;
close FILEW;

Adaptez ensuite ce script à vos besoins, rendez le exécutable et exécutez le :-)