byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

don't worry about trailing whitespace in reason

Browse Source
This commit is contained in:
Robert 2009-06-23 22:28:37 -07:00
parent c8b8e724bc
commit d6154ab945
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plugins/check_badmailfrom
View File

@ -24,6 +24,8 @@ stage, so store it until later.
=cut =cut
# TODO: add the ability to provide a custom default rejection reason
sub hook_mail { sub hook_mail {
my ($self, $transaction, $sender, %param) = @_; my ($self, $transaction, $sender, %param) = @_;
@ -37,7 +39,7 @@ sub hook_mail {
my $from = lc($sender->user) . '@' . $host; my $from = lc($sender->user) . '@' . $host;
for my $config (@badmailfrom) { for my $config (@badmailfrom) {
my ($bad, $reason) = $config =~ /^\s*(\S+)(?:\s*(.*)\s*)?$/; my ($bad, $reason) = $config =~ /^\s*(\S+)(?:\s*(.*))?$/;
$reason = "sorry, your envelope sender is in my badmailfrom list" unless $reason; $reason = "sorry, your envelope sender is in my badmailfrom list" unless $reason;
next unless $bad; next unless $bad;
$bad = lc $bad; $bad = lc $bad;