Re: Spamassassin, Procmail und die Last

1 Jul 2002

      Am 01.07.2002 um 10:27 schrieb Jörg Zimmermann:
...
man spamd
man spamc
Danke. Soetwas hatte ich gesucht. Mein Hauptgedanke war auch,
dass der größte Overhead dadurch entsteht, dass für jede
Spamassassin-Instanz ein eigener Perl-Prozess angestoßen wird,
der seinerseits erst das Skript prüfen, übersetzen usw. muss. 

Ich hatte mir jetzt schon ein kleines Perl-Skript gebastelt,
dass die eMails per POP3 abholt, mit Spamassassin prüft und an
Procmail übergibt. So funktionierts auch recht flott.

MfG, 
Dennis

--snip--

#!/usr/bin/perl

use strict;
use Mail::POP3Client;
use Mail::SpamAssassin;

system('ssh -f -x -P -L 1100:xx.xx.xx.xx:110 -l user xx.xx.xx.xx sleep 10');
sleep 2;

my ($status, $mail);
my $spamtest = Mail::SpamAssassin->new({ local_tests_only => 1 });
$spamtest->compile_now();

my $pop = new Mail::POP3Client( USER      => "user",
								PASSWORD  => "password",
								HOST      => "127.0.0.1",
								PORT      => "1100",
								AUTH_MODE => "PASS" );

my $count = $pop->Count();

if(!$count) {
	print "No messages\n";
	exit;
}

for(1..$count) {
	$mail = $pop->Retrieve($_);
	$pop->Delete($_);
	print "Retrieving message $_ of $count\n";
	$mail =~ s/\r\n/\n/gm;

    $status = $spamtest->check_message_text($mail);
	if($status->is_spam()) { 
		my $nil = $status->rewrite_mail();
		$mail = $status->get_full_message_as_text();
	}

	open(PROCMAIL, "|procmail -f -");
	print PROCMAIL $mail;
	close(PROCMAIL);
}
$pop->Close();

-- 
Dennis Stosberg
  eMail: dennis@stosberg.net
pgp key: http://stosberg.net/dennis.asc
    icq: 63537718