default the header to "unknown"

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@164 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2003-07-08 03:12:04 +00:00
parent 9f857f845e
commit 199c2164a4

View File

@ -76,7 +76,9 @@ sub _uri_escape {
sub data_handler { sub data_handler {
my ($self, $transaction) = @_; my ($self, $transaction) = @_;
$transaction->header->add('Received-SPF' => $self->qp->connection->notes('spf_header'), 0); my $header = $self->qp->connection->notes('spf_header') || 'unknown';
$transaction->header->add('Received-SPF' => $header, 0);
return DECLINED; return DECLINED;
} }