On Tue, Dec 03, 2019 at 11:42:21AM +0100, Benny Pedersen wrote:
> On 2019-12-03 10:26, Henrik K wrote:
>
> >Tried with 3.4.2, 3.4.3, trunk, all result in DKIM_VALID
> >$ spamassassin -t -D dkim < benny.eml
>
> good
>
> >$ perl -MMail::DKIM::Verifier -e 'print $Mail::DKIM::Verifier::VERSION'
> >0
On 2019-12-03 10:26, Henrik K wrote:
Tried with 3.4.2, 3.4.3, trunk, all result in DKIM_VALID
$ spamassassin -t -D dkim < benny.eml
good
$ perl -MMail::DKIM::Verifier -e 'print $Mail::DKIM::Verifier::VERSION'
0.53
maked gentoo ebuild for 0.58 solved it for me :=)
in 3.4.3 set minimal vers
On Tue, Dec 03, 2019 at 10:17:23AM +0100, Benny Pedersen wrote:
> On 2019-12-03 10:10, Henrik K wrote:
>
> >Anyway, that code is not identical to SA, which goes like this in 3.4:
> >
> >my $msg = do { local $/; }; # Slurp
> >$msg =~ s/\012/\015\012/gs;
> >$dkim->PRINT($msg);
> >
> >Your code woul
On 2019-12-03 10:10, Henrik K wrote:
Anyway, that code is not identical to SA, which goes like this in 3.4:
my $msg = do { local $/; }; # Slurp
$msg =~ s/\012/\015\012/gs;
$dkim->PRINT($msg);
Your code would break with missing line terminator at message end I
think.
https://metacpan.org/po
On Tue, Dec 03, 2019 at 09:56:58AM +0100, Benny Pedersen wrote:
>
> # read an email from stdin, pass it into the verifier
> while ()
> {
> # remove local line terminators
> chomp;
> s/\015$//;
>
> # use SMTP line terminators
> $dkim->PRINT("$_\015\012");
> }
Anyway, that code
On Tue, Dec 03, 2019 at 09:56:58AM +0100, Benny Pedersen wrote:
>
> while this simple perl gives pass
>
> # how to use
> cat email | above.pl
>
> known problem ?
Impossible to know without SA version and sample message?
while this simple perl gives pass
# verify a message
use Mail::DKIM::Verifier;
# create a verifier object
my $dkim = Mail::DKIM::Verifier->new();
# read an email from stdin, pass it into the verifier
while ()
{
# remove local line terminators
chomp;
s/\015$//;
# use SMTP line
