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

"chomp" DEBUG output - for logging/file

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@956 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Hanno Hecker 2008-11-04 18:37:21 +00:00 committed by Ask Bjørn Hansen
parent 26f689191d
commit e7bcc3fcf9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plugins/spamassassin
View File

@ -168,6 +168,7 @@ sub hook_data_post { # check_spam
$self->log(LOGDEBUG, "check_spam: finished sending to spamd"); $self->log(LOGDEBUG, "check_spam: finished sending to spamd");
my $line0 = <SPAMD>; # get the first protocol lines out my $line0 = <SPAMD>; # get the first protocol lines out
if ($line0) { if ($line0) {
$line0 =~ s/\r?\n$//;
$self->log(LOGDEBUG, "check_spam: spamd: $line0"); $self->log(LOGDEBUG, "check_spam: spamd: $line0");
$self->_cleanup_spam_header($transaction, 'X-Spam-Check-By'); $self->_cleanup_spam_header($transaction, 'X-Spam-Check-By');
@ -178,6 +179,7 @@ sub hook_data_post { # check_spam
my ($flag, $hits, $required); my ($flag, $hits, $required);
while (<SPAMD>) { while (<SPAMD>) {
s/\r?\n$//;
$self->log(LOGDEBUG, "check_spam: spamd: $_"); $self->log(LOGDEBUG, "check_spam: spamd: $_");
#warn "GOT FROM SPAMD1: $_"; #warn "GOT FROM SPAMD1: $_";
last unless m/\S/; last unless m/\S/;