|
Check-in Number:
|
1546 | |
| Date: |
2002-Jan-13 10:25:23 (local)
2002-Jan-13 09:25:23 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
avoid rejection by MTA because of forwarding loop |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/petidomo/petidomo-approve 1.1 -> 1.2
--- petidomo-approve 2001/01/18 15:31:30 1.1
+++ petidomo-approve 2002/01/13 09:25:23 1.2
@@ -59,6 +59,7 @@
close(FP);
$mail =~ s|^.+?\n\n||s;
$mail =~ s|^.+?\n>?From .+?\n||s;
+ $mail =~ s|Delivered-To:\s*$list\s*\n||s;
$mail = "Approved: $password\n" . $mail; # best
#$mail =~ s|^(.+?\n\n)(.*)$|$1Approved $password\n$2|s; # not good
open(SM, "|$sendmail $replyto") || die "cannot spawn $sendmail";
|
|
