Merge branch 'master' of github.com:msimerson/qpsmtpd-dev
This commit is contained in:
commit
1a7f2c26a5
@ -200,6 +200,8 @@ ie, (Trust smtpd).
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
|
use lib 'lib';
|
||||||
|
|
||||||
use Qpsmtpd::Constants;
|
use Qpsmtpd::Constants;
|
||||||
use Qpsmtpd::DSN;
|
use Qpsmtpd::DSN;
|
||||||
use IO::Handle;
|
use IO::Handle;
|
||||||
@ -517,11 +519,11 @@ sub get_dspam_results {
|
|||||||
return;
|
return;
|
||||||
};
|
};
|
||||||
|
|
||||||
my @bits = split(/,\s+/, $string); chomp @bits;
|
my @bits = split /,\s+/, $string; chomp @bits;
|
||||||
my $class = shift @bits;
|
my $class = shift @bits;
|
||||||
my %d;
|
my %d;
|
||||||
foreach (@bits) {
|
foreach (@bits) {
|
||||||
my ($key,$val) = split(/=/, $_);
|
my ($key,$val) = split /=/, $_;
|
||||||
$d{$key} = $val;
|
$d{$key} = $val;
|
||||||
};
|
};
|
||||||
$d{class} = $class;
|
$d{class} = $class;
|
||||||
|
Loading…
Reference in New Issue
Block a user