develooper Front page | perl.perl5.porters | Postings from January 2011

[perl #82996] [PATCH] Use the user's from address as return-path in perlbug

Thread Next
From:
David Leadbeater
Date:
January 30, 2011 06:09
Subject:
[perl #82996] [PATCH] Use the user's from address as return-path in perlbug
Message ID:
rt-3.6.HEAD-20807-1296325627-534.82996-75-0@perl.org
# New Ticket Created by  David Leadbeater 
# Please include the string:  [perl #82996]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=82996 >


From: David Leadbeater <dgl@dgl.cx>

Many systems thesedays don't have a valid internet domain name and
perlbug@perl.org does not accept email with a return-path that does not
resolve. Therefore pass the user's address to sendmail so it's less
likely to get stuck in a mail queue somewhere.
---
 utils/perlbug.PL |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 2972ae7..368ce91 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -1164,8 +1164,8 @@ send to '$address' with your normal mail client.
 EOF
     }
 
-    open( SENDMAIL, "|$sendmail -t -oi" )
-        || die "'|$sendmail -t -oi' failed: $!";
+    open( SENDMAIL, "|-", $sendmail, "-t", "-oi", "-f", $from )
+        || die "'|$sendmail -t -oi -f $from' failed: $!";
     print SENDMAIL build_complete_message();
     if ( close(SENDMAIL) ) {
         print "\nMessage sent\n";
-- 
1.7.3.5


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About