[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Solution anti-spam



Voici ma solution que j'appelle apocalispam:
j'utilise abook pour gerer ma liste de couriel.
=== /etc/init.d/abook-mutt =====
rm /home/zuthos/.mutt/aliases.rc
su zuthos -c"abook --convert --informat abook --outformat mutt --infile
/home/zuthos/.abook/addressbook --outfile ~/.mutt/aliases.rc"
/usr/local/bin/courrier.pl

=== /usr/local/bin/courrier.pl =====
#!/usr/bin/perl -w
# Zuthos 2005
open(MUTT,"<","/home/zuthos/.mutt/aliases.rc");
open(PROCMAIL,">","/home/zuthos/.procmail/abook.rc");
foreach $MUTT2 (<MUTT>) {
	chomp $MUTT2;
	# recherche de l'adresse compris entre "<" et ">"
	# l'adresse et stoqué dans $1
	$MUTT2 =~ /<([^x]*)>/ ;

	# Création du fichier contenant les régles
	print PROCMAIL ":0 H:\n";
	print PROCMAIL "* ^From.*$1.*\n";
	print PROCMAIL "Divers/Personnel/new\n";
	print PROCMAIL "\n";
	}
close(MUTT);
close(PROCMAIL);


Et bien sur une petite rêgle procmail:
LOGFILE=$HOME/.procmail/procmail.log
MAILDIR=$HOME/.Mail/
DEFAULT=$MAILDIR/.Mail/new
PMDIR=$HOME/.procmail
INCLUDERC=$PMDIR/abook.rc

et bien sur un petit:
maildirmake .Mail/
maildirmake .Mail/Divers/Personnel

Et voila, tous les messages reçus de personne connus sont classer dans
.Mail/Divers/Personnel/

tous le reste... du Spam on peut même faire une rêgle qui met le reste
dans la boîte /dev/null

Je reconnais n'avoir pas encore osé

-- 
()  campagne du ruban ascii -- contre les mails en html
/\  contre les pieces-jointes Microsoft

Attachment: signature.asc
Description: Digital signature


Reply to: