You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/08/15 05:28:35 UTC
cvs commit: embperl/Embperl Mail.pm
richter 01/08/14 20:28:35
Modified: . Changes.pod
Embperl Mail.pm
Log:
- Make sure the HTML::Embperl::Mail generates correct line endings
Revision Changes Path
1.180 +4 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -r1.179 -r1.180
--- Changes.pod 2001/08/10 19:33:05 1.179
+++ Changes.pod 2001/08/15 03:28:34 1.180
@@ -17,9 +17,12 @@
- Fixed a bug that cause file-uploads to fail for the first
request to a file when running under EmbperlObject. Reported
by Thoren Johne.
+ - Added possibilities to add the session id as argument to any URL,
+ instead of using cookies.
+ - Added new hash %sdat which holds temporary sessins data.
- Added options optAddUserSessionToLinks, optAddStatusSessionToLinks
and optNoSessionCookies to control how the session id is passed.
- - Added new hash %sdat which holds temporary sessins data.
+ - Make sure the HTML::Embperl::Mail generates correct line endings
=head1 1.3.3 (RELEASE) 6. Juni 2001
1.33 +10 -10 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- Mail.pm 2001/08/13 10:53:45 1.32
+++ Mail.pm 2001/08/15 03:28:35 1.33
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.32 2001/08/13 10:53:45 richter Exp $
+# $Id: Mail.pm,v 1.33 2001/08/15 03:28:35 richter Exp $
#
###################################################################################
@@ -108,21 +108,21 @@
$smtp -> to (@$to, @$cc, @$bcc) ;
$smtp->data() or die "smtp data failed" ;
- $smtp->datasend("Reply-To: $req->{'reply-to'}\r\n") or die "smtp data failed" if ($req->{'reply-to'}) ;
- $smtp->datasend("From: $from\r\n") if ($from) ;
- $smtp->datasend("To: " . join (', ', @$to) . "�r\n") or die "smtp datasend failed" ;
- $smtp->datasend("Cc: " . join (', ', @$cc) . "\r\n") or die "smtp datasend failed" if ($req -> {'cc'}) ;
- $smtp->datasend("Subject: $req->{subject}\r\n") or die "smtp datasend failed" ;
+ $smtp->datasend("Reply-To: $req->{'reply-to'}\n") or die "smtp data failed" if ($req->{'reply-to'}) ;
+ $smtp->datasend("From: $from\n") if ($from) ;
+ $smtp->datasend("To: " . join (', ', @$to) . "\n") or die "smtp datasend failed" ;
+ $smtp->datasend("Cc: " . join (', ', @$cc) . "\n") or die "smtp datasend failed" if ($req -> {'cc'}) ;
+ $smtp->datasend("Subject: $req->{subject}\n") or die "smtp datasend failed" ;
if (ref ($headers) eq 'ARRAY')
{
foreach (@$headers)
{
- $smtp->datasend("$_\r\n") or die "smtp datasend failed" ;
+ $smtp->datasend("$_\n") or die "smtp datasend failed" ;
}
}
- $smtp->datasend("\r\n") or die "smtp datasend failed" ;
- # make sure we have correct \r\n line endings
- $data =~ s/((?<!\r)\n)|(\r(?!\n))/\r\n/g ;
+ $smtp->datasend("\n") or die "smtp datasend failed" ;
+ # make sure we have only \n line endings (is made to \r\n by Net::SMTP)
+ $data =~ s/\r//g ;
$smtp->datasend($data) or die "smtp datasend failed" ;
$smtp->quit or die "smtp quit failed" ;
} ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org