dkim: corrected log entry, added comment

This commit is contained in:
Matt Simerson 2013-03-27 20:09:42 -04:00
parent d5fd8d24e3
commit ce0d2b80ef

View File

@ -80,9 +80,7 @@ use Socket qw(:DEFAULT :crlf);
sub init { sub init {
my ($self, $qp) = (shift, shift); my ($self, $qp) = (shift, shift);
$self->{_args} = { @_ }; $self->{_args} = { @_ };
$self->{_args}{reject} = 1 if ! defined $self->{_args}{reject}; $self->{_args}{reject} = 1 if ! defined $self->{_args}{reject};
$self->{_args}{reject_type} ||= 'perm'; $self->{_args}{reject_type} ||= 'perm';
} }
@ -196,7 +194,7 @@ sub handle_sig_invalid {
elsif ( $prs->{reject} ) { elsif ( $prs->{reject} ) {
return $self->get_reject( return $self->get_reject(
"invalid DKIM signature: " . $dkim->result_detail, "invalid DKIM signature: " . $dkim->result_detail,
"fail, invalid signature, reject policy" "invalid signature, reject policy"
); );
} }
@ -332,6 +330,7 @@ sub add_header {
my $self = shift; my $self = shift;
my $header = shift or return; my $header = shift or return;
# consider adding Authentication-Results header here as well
$self->qp->transaction->header->add( 'X-DKIM-Authentication', $header, 0 ); $self->qp->transaction->header->add( 'X-DKIM-Authentication', $header, 0 );
} }