gre-ilya/petidomo
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid rejection by MTA because of forwarding loop

Browse Source
This commit is contained in:
Ralf S. Engelschall 2002-01-13 09:25:23 +00:00
parent 878d7af037
commit 44371378ba
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
petidomo-approve
View File

@ -59,6 +59,7 @@ elsif ($mail =~ m|^Subject:\s+Petidomo:\s+BOUNCE|mi) {
close(FP); close(FP);
$mail =~ s|^.+?\n\n||s; $mail =~ s|^.+?\n\n||s;
$mail =~ s|^.+?\n>?From .+?\n||s; $mail =~ s|^.+?\n>?From .+?\n||s;
$mail =~ s|Delivered-To:\s*$list\s*\n||s;
$mail = "Approved: $password\n" . $mail; # best $mail = "Approved: $password\n" . $mail; # best
#$mail =~ s|^(.+?\n\n)(.*)$|$1Approved $password\n$2|s; # not good #$mail =~ s|^(.+?\n\n)(.*)$|$1Approved $password\n$2|s; # not good
open(SM, "|$sendmail $replyto") || die "cannot spawn $sendmail"; open(SM, "|$sendmail $replyto") || die "cannot spawn $sendmail";