Skip Menu |
 

This queue is for tickets about the MailTools CPAN distribution.

Report information
The Basics
Id: 16253
Status: resolved
Priority: 0/
Queue: MailTools

People
Owner: Nobody in particular
Requestors: wurblzap [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 1.67
Fixed in: (no value)

Attachments


MIME-Version: 1.0
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Subject: Mailer/testfile.pm should write the sender address into the fake header
Content-Type: multipart/mixed; boundary="----------=_1133533209-2432-4"
Content-Length: 0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: iso-8859-1
Content-Length: 554
Download (untitled) / with headers
text/plain 554b
testfile.pm currently writes a header like this: test 1 Fri Dec 2 15:00:34 2005 to: me@here The to: information is what is being used as "rcpt to" information in the SMTP envelope for other mailing methods. For debugging purposes, it should write what is being used as "mail from" SMTP envelope information as well. I'm thinking of putting what Mail::Util::mailaddress() returns here. This would be of particular help when trying to find out what the SMTP method does by temporarily switching to testfile -- SMTP uses mailaddress() at all times.
Content-Type: text/plain; name="testfile.pm.diff"
Content-Disposition: inline; filename="testfile.pm.diff"
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: iso-8859-1
Content-Length: 791
Download testfile.pm.diff
text/x-diff 791b
--- testfile.pm.orig 2004-03-10 16:52:15.000000000 +0100 +++ testfile.pm.patched 2005-12-02 15:18:41.295039400 +0100 @@ -1,6 +1,7 @@ package Mail::Mailer::testfile; use vars qw(@ISA $VERSION %config); +use Mail::Util qw(mailaddress); require Mail::Mailer::rfc822; @ISA = qw(Mail::Mailer::rfc822); $VERSION = '0.02'; @@ -15,7 +16,8 @@ my($self, $exe, $args, $to) = @_; open F,'>>', $Mail::Mailer::testfile::config{outfile}; print F "\n===\ntest ", ++$num, " ", - (scalar localtime), "\nto: " . join(' ',@{$to}) . "\n\n"; + (scalar localtime), "\nfrom: " . + mailaddress() . "\nto: " . join(' ',@{$to}) . "\n\n"; close F; untie(*$self) if tied *$self; tie *$self, 'Mail::Mailer::testfile::pipe', $self;
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: binary
MIME-Version: 1.0
X-Mailer: MIME-tools 5.418 (Entity 5.418)
X-RT-Original-Encoding: iso-8859-1
Content-Length: 71
Will be added to next release (sorry, but just release 1.68 without it)
MIME-Version: 1.0
Subject: confermation
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Content-Disposition: inline
Message-Id: <rt-3.5.HEAD-11717-1148956696-1987.16253-0-0 [...] rt.cpan.org>
Content-Type: text/plain; charset="utf8"
Content-Transfer-Encoding: binary
From: payment [...] worldbank.com
X-RT-Original-Encoding: utf-8
X-RT-Original-Encoding: utf-8
Content-Length: 648
Download (untitled) / with headers
text/plain 648b
On Fri Dec 02 09:20:10 2005, guest wrote: Show quoted text
> testfile.pm currently writes a header like this: > > test 1 Fri Dec 2 15:00:34 2005 > to: me@here > > The to: information is what is being used as "rcpt to" information in > the SMTP envelope for other mailing methods. For debugging > purposes, it should write what is being used as "mail from" SMTP > envelope information as well. I'm thinking of putting what > Mail::Util::mailaddress() returns here. This would be of
particular Show quoted text
> help when trying to find out what the SMTP method does by > temporarily switching to testfile -- SMTP uses mailaddress() at
all Show quoted text
> times.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.