diff options
| author | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-07 12:43:00 +0900 |
|---|---|---|
| committer | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 12:49:20 +0900 |
| commit | e80540b71d7c150f048fd0ffa2bbd23340c95c6f (patch) | |
| tree | 8ae70943ea72d7e7721b316b47ba70d6e98e5d0f | |
| parent | 3c7c5ca2e975a37a7ace0042b8d0991dabb95812 (diff) | |
| download | fml8-e80540b71d7c150f048fd0ffa2bbd23340c95c6f.tar.gz fml8-e80540b71d7c150f048fd0ffa2bbd23340c95c6f.tar.bz2 fml8-e80540b71d7c150f048fd0ffa2bbd23340c95c6f.zip | |
define mime_header_decode_as_octets(). It returns printable form not Perl internal one.
| -rw-r--r-- | fml/lib/Mail/Message/Encode/Perl.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/fml/lib/Mail/Message/Encode/Perl.pm b/fml/lib/Mail/Message/Encode/Perl.pm index 6d5e76f2..e37784f6 100644 --- a/fml/lib/Mail/Message/Encode/Perl.pm +++ b/fml/lib/Mail/Message/Encode/Perl.pm @@ -132,6 +132,21 @@ sub mime_header_decode } +# Descriptions: decode mime header format string and return it as +# printable format not the Perl internal one. +# Arguments: OBJ($self) STR($hdr) +# Side Effects: none +# Return Value: STR +sub mime_header_decode_as_octets +{ + my ($self, $hdr) = @_; + + # XXX-TODO hard-coded now anyway. + my $code = "EUC-JP"; + encode($code, decode("MIME-Header", $hdr)); +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |