43 lines
935 B
Perl
43 lines
935 B
Perl
#!perl -w
|
|
|
|
=head1 NAME
|
|
|
|
dont_require_anglebrackets
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
accept addresses in MAIL FROM:/RCPT TO: commands without surrounding <>
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
RFC821 requires that email addresses presented during the SMTP conversation
|
|
be enclosed in angle brackets. Like this:
|
|
|
|
MAIL FROM:<user@example.com>
|
|
|
|
This plugin relaxes that requirement, accepting messages in this format:
|
|
|
|
MAIL FROM:user@example.com
|
|
|
|
=cut
|
|
|
|
sub hook_mail_pre {
|
|
my ($self, $transaction, $addr) = @_;
|
|
unless ($addr =~ /^<.*>$/) {
|
|
$addr = '<' . $addr . '>';
|
|
$self->adjust_karma(-2);
|
|
$self->log(LOGINFO, "fail, added MAIL angle brackets");
|
|
}
|
|
return OK, $addr;
|
|
}
|
|
|
|
sub hook_rcpt_pre {
|
|
my ($self, $transaction, $addr) = @_;
|
|
unless ($addr =~ /^<.*>$/) {
|
|
$addr = '<' . $addr . '>';
|
|
$self->adjust_karma(-2);
|
|
$self->log(LOGINFO, "fail, added RCPT angle brackets");
|
|
}
|
|
return OK, $addr;
|
|
}
|