Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

anglebrackets: increase penalty, prefix log msgs

  • Loading branch information...
commit 45316487e3c2e383b11e42af12e84199561a6790 1 parent bcc6ada
Matt Simerson msimerson authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 plugins/dont_require_anglebrackets
8 plugins/dont_require_anglebrackets
View
@@ -24,9 +24,9 @@ MAIL FROM:user@example.com
sub hook_mail_pre {
my ($self, $transaction, $addr) = @_;
unless ($addr =~ /^<.*>$/) {
- $self->log(LOGINFO, "added MAIL angle brackets");
$addr = '<' . $addr . '>';
- $self->adjust_karma(-1);
+ $self->adjust_karma(-2);
+ $self->log(LOGINFO, "fail, added MAIL angle brackets");
}
return (OK, $addr);
}
@@ -34,9 +34,9 @@ sub hook_mail_pre {
sub hook_rcpt_pre {
my ($self, $transaction, $addr) = @_;
unless ($addr =~ /^<.*>$/) {
- $self->log(LOGINFO, "added RCPT angle brackets");
$addr = '<' . $addr . '>';
- $self->adjust_karma(-1);
+ $self->adjust_karma(-2);
+ $self->log(LOGINFO, "fail, added RCPT angle brackets");
}
return (OK, $addr);
}
Please sign in to comment.
Something went wrong with that request. Please try again.