[PATCH 5/7] anglebrackets: emit log entry when change made
[email protected] (Matt Simerson) Fri, 18 May 2012 04:25:09 -0400
| Newsgroups | perl.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
--- plugins/dont_require_anglebrackets | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/plugins/dont_require_anglebrackets b/plugins/dont_require_anglebrackets index 7bb1eea..000030a 100644 --- a/plugins/dont_require_anglebrackets +++ b/plugins/dont_require_anglebrackets @@ -24,7 +24,8 @@ MAIL FROM:[email protected] sub hook_mail_pre { my ($self,$transaction, $addr) = @_; unless ($addr =~ /^<.*>$/) { - $addr = "<".$addr.">"; + $self->log(LOGINFO, "added MAIL angle brackets"); + $addr = '<'.$addr.'>'; } return (OK, $addr); } @@ -32,7 +33,8 @@ sub hook_mail_pre { sub hook_rcpt_pre { my ($self,$transaction, $addr) = @_; unless ($addr =~ /^<.*>$/) { - $addr = "<".$addr.">"; + $self->log(LOGINFO, "added RCPT angle brackets"); + $addr = '<'.$addr.'>'; } return (OK, $addr); } -- 1.7.9.6