anglebrackets: emit log entry when change made

This commit is contained in:
Matt Simerson 2012-05-18 04:25:09 -04:00 committed by Robert
parent 691955c60f
commit edacbf914c

View File

@ -24,7 +24,8 @@ MAIL FROM:user@example.com
sub hook_mail_pre { sub hook_mail_pre {
my ($self,$transaction, $addr) = @_; my ($self,$transaction, $addr) = @_;
unless ($addr =~ /^<.*>$/) { unless ($addr =~ /^<.*>$/) {
$addr = "<".$addr.">"; $self->log(LOGINFO, "added MAIL angle brackets");
$addr = '<'.$addr.'>';
} }
return (OK, $addr); return (OK, $addr);
} }
@ -32,7 +33,8 @@ sub hook_mail_pre {
sub hook_rcpt_pre { sub hook_rcpt_pre {
my ($self,$transaction, $addr) = @_; my ($self,$transaction, $addr) = @_;
unless ($addr =~ /^<.*>$/) { unless ($addr =~ /^<.*>$/) {
$addr = "<".$addr.">"; $self->log(LOGINFO, "added RCPT angle brackets");
$addr = '<'.$addr.'>';
} }
return (OK, $addr); return (OK, $addr);
} }