8fcb46177b
Hecker) git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@631 958fd67b-6ff1-0310-b445-bb7760255be9
20 lines
433 B
Plaintext
20 lines
433 B
Plaintext
#
|
|
# dont_require_anglebrackets - accept addresses in MAIL FROM:/RCPT TO:
|
|
# commands without surrounding <>
|
|
#
|
|
sub hook_mail_pre {
|
|
my ($self,$transaction, $addr) = @_;
|
|
unless ($addr =~ /^<.*>$/) {
|
|
$addr = "<".$addr.">";
|
|
}
|
|
return (OK, $addr);
|
|
}
|
|
|
|
sub hook_rcpt_pre {
|
|
my ($self,$transaction, $addr) = @_;
|
|
unless ($addr =~ /^<.*>$/) {
|
|
$addr = "<".$addr.">";
|
|
}
|
|
return (OK, $addr);
|
|
}
|