41 lines
852 B
Perl
41 lines
852 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 =~ /^<.*>$/) {
|
|
$self->log(LOGINFO, "added MAIL angle brackets");
|
|
$addr = '<'.$addr.'>';
|
|
}
|
|
return (OK, $addr);
|
|
}
|
|
|
|
sub hook_rcpt_pre {
|
|
my ($self,$transaction, $addr) = @_;
|
|
unless ($addr =~ /^<.*>$/) {
|
|
$self->log(LOGINFO, "added RCPT angle brackets");
|
|
$addr = '<'.$addr.'>';
|
|
}
|
|
return (OK, $addr);
|
|
}
|