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 2005/08/07 01:07:05 UTC
cvs commit: embperl/Embperl/Syntax Mail.pm
richter 2005/08/06 16:07:05
Modified: . Changes.pod
Embperl/Syntax Mail.pm
Log:
- Added attribute content-type to mail:send tag (Syntax Mail).
Patch from Axel Beckert.
Revision Changes Path
1.277 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.276
retrieving revision 1.277
diff -u -r1.276 -r1.277
--- Changes.pod 6 Aug 2005 22:59:57 -0000 1.276
+++ Changes.pod 6 Aug 2005 23:07:04 -0000 1.277
@@ -3,6 +3,8 @@
=head4 2.0.rc5
+ - Added attribute content-type to mail:send tag (Syntax Mail).
+ Patch from Axel Beckert.
- Fixed unresolved symbol when compiling under SuSE 9.3 (because SuSE
compiles Apache 2 in maintainer mode)
- Fixed strange output when Perl code inside of [$ sub $] returns
1.6 +6 -2 embperl/Embperl/Syntax/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Mail.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Mail.pm 6 Aug 2005 22:33:57 -0000 1.5
+++ Mail.pm 6 Aug 2005 23:07:04 -0000 1.6
@@ -68,7 +68,8 @@
my ($self) = @_ ;
$self -> AddTagBlock ('mail:send', ['from', 'to', 'cc', 'bcc', 'subject', 'reply-to',
- 'mailhost', 'mailhelo', 'maildebug'], undef, undef,
+ 'mailhost', 'mailhelo', 'maildebug', 'content-type'],
+ undef, undef,
{
removenode => 106,
compiletimeperlcode => q{
@@ -98,6 +99,7 @@
'mailhost' => %&'mailhost%,
'mailhelo' => %&'mailhelo%,
'maildebug' => %&'maildebug%,
+ 'mailheaders' => [ (( %&'content-type% ) ? ('Content-Type: '.%&'content-type%) : ()) ],
}) ;
}
},
@@ -172,6 +174,8 @@
=item maildebug
+=item content-type
+
=back
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org