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

dspam: added use lib, removed some parens

Browse Source
This commit is contained in:
Matt Simerson 2013-03-15 22:12:50 -07:00
parent a0212347bf
commit 537af7c095
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/dspam
View File

@ -200,6 +200,8 @@ ie, (Trust smtpd).
use strict;
use warnings;
use lib 'lib';
use Qpsmtpd::Constants;
use Qpsmtpd::DSN;
use IO::Handle;
@ -279,7 +281,7 @@ sub assemble_message {
$transaction->body_resetpos;
while (my $line = $transaction->body_getline) { $message .= $line; };
$message = join(CRLF, split/\n/, $message);
$message = join(CRLF, split /\n/, $message);
return $message . CRLF;
};
@ -517,11 +519,11 @@ sub get_dspam_results {
return;
};
my @bits = split(/,\s+/, $string); chomp @bits;
my @bits = split /,\s+/, $string; chomp @bits;
my $class = shift @bits;
my %d;
foreach (@bits) {
my ($key,$val) = split(/=/, $_);
my ($key,$val) = split /=/, $_;
$d{$key} = $val;
};
$d{class} = $class;