Patch: FATAL PLUGIN ERROR [check_basicheaders]: ...
[email protected] (Charlie Brady)
| Newsgroups | perl.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
check_basicheaders fails if there are no headers at all:
http://bugs.contribs.org/show_bug.cgi?id=6345
--- a/plugins/check_basicheaders
+++ b/plugins/check_basicheaders
@@ -46,10 +46,11 @@ sub hook_data_post {
return (DENY, "You have to send some data first")
if $transaction->data_size == 0;
+ my $header = $transaction->header;
return (DENY, "Mail with no From header not accepted here")
- unless $transaction->header->get('From');
+ unless $header && $header->get('From');
- my $date = $transaction->header->get('Date');
+ my $date = $header->get('Date');
return (DENY, "Mail with no Date header not accepted here")
unless $date;