Bonjour,
Ayant récemment eu des problèmes avec la récupération de messages sur
free, je joint un petit script perl pour la suppression des messages sur
le serveur pop.
Explication:
N'ayant pas vérifier les logs du serveur depuis 3 jours, la
récupération des messages étant automatisé (tous les 10mn),
je me suis retrouvé avec plus de 500 courriers identiques en triple
exemplaire; Ceci parce qu'un message (n°500) avait une entête mal formée
et que fetchmail bloquait sur ce message (arrêt sans 'quit')...
Résultat, plus de 3000 messages en attente sur le serveur pop de free
dont plusieurs avec des entêtes mal formées (robot de spam= un fléau :-)
Je ne me voyais pas récupérer, par telnet, 3000 messages en effaçant
les mauvais (bad header), j'ai donc utilisé un script perl pour la
suppression des messages (jusqu'au message bloquant la récupération des
suivants).
Au cas où cela vous serait utile, voici ce script: free.pl
Bonnes fêtes à tous :-))
@+
--
Michel Luc mluc@cern91.net | http://www.cern91.net/
GAULE, LUG de l'Essonne: http://gaule.org/
-*-*-*-*-*-*-* GnuPG v1.0.6 (GNU/Linux) *-*-*-*-*-*-*-*-
<admin@cern91.net>
GPG: 1024D/3D07B881
KFP: 155C 2287 2084 33E0 4263 8AC9 B10F 03CB 3D07 B881
--------------------------------------------------------
Attachment:
free.pl
Description: Perl program
Attachment:
signature.asc
Description: Ceci est une partie de message =?ISO-8859-1?Q?num=E9riquement?= =?ISO-8859-1?Q?_sign=E9e?=