byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

spamassassin plugin

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@39 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-08-06 12:27:35 +00:00
parent 8ce8427bf9
commit 1e113721d0
3 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Changes
View File

@ -7,6 +7,17 @@ v0.10
All functionality not core to SMTP moved to plugins All functionality not core to SMTP moved to plugins
2002/08/06
Spool message bodies to a tmp file so we can support HUGE messages
API to read the message body (undocumented, subject to change)
data_post hook (undocumented)
SpamAssassin plugin (connects to spamd on localhost), see
plugins/spamassassin
2002/07/15 2002/07/15
DNS RBL and RHSBL support via plugins. DNS RBL and RHSBL support via plugins.

9
STATUS
View File

@ -19,13 +19,6 @@ plugin support;
proper access to the message body through the transaction proper access to the message body through the transaction
data command
how to spool message to a file when it grows large and still give
reasonable easy access to the data from plugins?
...
TRACE in Constants.pm is not actually being used. Should it? TRACE in Constants.pm is not actually being used. Should it?
@ -39,3 +32,5 @@ mail for one user but bounce it right away for another RCPT'er.
David Carraway has some thoughts for "user filters" David Carraway has some thoughts for "user filters"
http://nntp.perl.org/group/perl.qpsmtpd/2 http://nntp.perl.org/group/perl.qpsmtpd/2
Make it run as a mod_perl 2.0 connection handler module ...

12
plugins/spamassassin
View File

@ -1,3 +1,13 @@
#
# Requires the spamd patch attached to this spamassassin bug:
# http://bugzilla.spamassassin.org/show_bug.cgi?id=660
#
# ... or you can change YAREPORT to REPORT below; but the headers
# will be a bit different than you are used to.
#
#
use Socket qw(:DEFAULT :crlf); use Socket qw(:DEFAULT :crlf);
use IO::Handle; use IO::Handle;
@ -28,7 +38,7 @@ sub check_spam {
$transaction->body_resetpos; $transaction->body_resetpos;
print SPAMD "REPORT SPAMC/1.0" . CRLF; print SPAMD "YAREPORT SPAMC/1.0" . CRLF;
# or CHECK or REPORT or SYMBOLS # or CHECK or REPORT or SYMBOLS
while (my $line = $transaction->body_getline) { while (my $line = $transaction->body_getline) {