"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/DKIM/ARC/Signer.pm" between
Mail-DKIM-0.54.tar.gz and Mail-DKIM-0.55.tar.gz

About: Mail-DKIM Perl module for implementing the DKIM (DomainKeys Identified Mail) message-signing and verifying standard for Internet mail.

Signer.pm  (Mail-DKIM-0.54):Signer.pm  (Mail-DKIM-0.55)
skipping to change at line 15 skipping to change at line 15
# This program is free software; you can redistribute it and/or # This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself. # modify it under the same terms as Perl itself.
use strict; use strict;
use warnings; use warnings;
use Mail::DKIM::PrivateKey; use Mail::DKIM::PrivateKey;
use Mail::DKIM::ARC::MessageSignature; use Mail::DKIM::ARC::MessageSignature;
use Mail::DKIM::ARC::Seal; use Mail::DKIM::ARC::Seal;
use Mail::AuthenticationResults::Parser;
use Mail::AuthenticationResults::Header::AuthServID;
=head1 NAME =head1 NAME
Mail::DKIM::ARC::Signer - generates a DKIM signature for a message Mail::DKIM::ARC::Signer - generates a DKIM signature for a message
=head1 SYNOPSIS =head1 SYNOPSIS
use Mail::DKIM::ARC::Signer; use Mail::DKIM::ARC::Signer;
use Mail::DKIM::TextWrap; #recommended use Mail::DKIM::TextWrap; #recommended
skipping to change at line 160 skipping to change at line 162
List-Id List-Help List-Unsubscribe List-Subscribe List-Id List-Help List-Unsubscribe List-Subscribe
List-Post List-Owner List-Archive List-Post List-Owner List-Archive
=back =back
=cut =cut
package Mail::DKIM::ARC::Signer; package Mail::DKIM::ARC::Signer;
use base 'Mail::DKIM::Common'; use base 'Mail::DKIM::Common';
use Carp; use Carp;
our $VERSION = 0.54; our $VERSION = 0.55;
# PROPERTIES # PROPERTIES
# #
# public: # public:
# #
# $signer->{Algorithm} # $signer->{Algorithm}
# identifies what algorithm to use when signing the message # identifies what algorithm to use when signing the message
# default is "rsa-sha256" # default is "rsa-sha256"
# #
# $signer->{Domain} # $signer->{Domain}
skipping to change at line 251 skipping to change at line 253
# add the AAR header # add the AAR header
my @aar; my @aar;
my @ams; my @ams;
my @as; my @as;
my $ar; my $ar;
foreach my $header ( @{ $self->{headers} } ) { foreach my $header ( @{ $self->{headers} } ) {
$header =~ s/[\r\n]+$//; $header =~ s/[\r\n]+$//;
if ( $header =~ m/^Authentication-Results:/ ) { if ( $header =~ m/^Authentication-Results:/ ) {
my ( $ardom, $arval ) = $header =~ my ( $arval ) = $header =~ m/^Authentication-Results:[^;]*;\s*(.*)/i
m/^Authentication-Results:\s*([-.0-9a-z]+)\s*;\s*(.*)/is; s;
my $parsed = Mail::AuthenticationResults::Parser->new->parse( $heade
r );
my $ardom = $parsed->value->value;
next next
unless "\L$ardom" eq $self->{SrvId}; # make sure it's our domain unless "\L$ardom" eq $self->{SrvId}; # make sure it's our domain
$arval =~ s/;?\s*$//; # ignore trailing semicolon and whitespace $arval =~ s/;?\s*$//; # ignore trailing semicolon and whitespace
if ($ar) { if ($ar) {
$ar .= "; $arval"; $ar .= "; $arval";
} }
else { else {
$ar = "$ardom; $arval"; $ar = "$ardom; $arval";
 End of changes. 3 change blocks. 
3 lines changed or deleted 8 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)