cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm
[email protected] (Matt Sergeant)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 03/11/04 14:52:49
Modified: config plugins
lib/Qpsmtpd SMTP.pm
Log:
Split received header so it doesn't exceed 78 chars
Revision Changes Path
1.10 +0 -33 qpsmtpd/config/plugins
Index: plugins
===================================================================
RCS file: /cvs/public/qpsmtpd/config/plugins,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- plugins 30 Aug 2003 15:13:04 -0000 1.9
+++ plugins 4 Nov 2003 22:52:48 -0000 1.10
@@ -6,41 +6,8 @@
# plugins/http_config for details.
# http_config http://localhost/~smtpd/config/ http://www.example.com/smtp.pl?config=
-quit_fortune
-
-check_earlytalker
-count_unrecognized_commands 4
-
-require_resolvable_fromhost
-
-rhsbl
-dnsbl
-check_badmailfrom
-check_badrcptto
-check_spamhelo
-
-# sender_permitted_from
-
# this plugin needs to run after all other "rcpt" plugins
check_relay
-
-# content filters
-klez_filter
-
-
-# You can run the spamassassin plugin with options. See perldoc
-# plugins/spamassassin for details.
-#
-spamassassin
-
-# rejects mails with a SA score higher than 20 and munges the subject
-# of the score is higher than 10.
-#
-# spamassassin reject_threshold 20 munge_subject_threshold 10
-
-
-# run the clamav virus checking plugin
-# clamav
# queue the mail with qmail-queue
queue/qmail-queue
1.19 +6 -5 qpsmtpd/lib/Qpsmtpd/SMTP.pm
Index: SMTP.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- SMTP.pm 1 Nov 2003 10:05:23 -0000 1.18
+++ SMTP.pm 4 Nov 2003 22:52:49 -0000 1.19
@@ -382,9 +382,10 @@
my $smtp = $self->connection->hello eq "ehlo" ? "ESMTP" : "SMTP";
+
$header->add("Received", "from ".$self->connection->remote_info
." (HELO ".$self->connection->hello_host . ") (".$self->connection->remote_ip
- . ") by ".$self->config('me')." (qpsmtpd/".$self->version
+ . ")\n by ".$self->config('me')." (qpsmtpd/".$self->version
.") with $smtp; ". (strftime('%a, %d %b %Y %H:%M:%S %z', localtime)),
0);