diff options
| -rw-r--r-- | fml/lib/Mail/Message/Charset.pm | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message/Charset.pm b/fml/lib/Mail/Message/Charset.pm index ee08ba4d..753ea5ac 100644 --- a/fml/lib/Mail/Message/Charset.pm +++ b/fml/lib/Mail/Message/Charset.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2003,2004 Ken'ichi Fukamachi # -# $FML: Charset.pm,v 1.1 2003/10/18 04:43:52 fukachan Exp $ +# $FML: Charset.pm,v 1.2 2004/01/24 09:03:59 fukachan Exp $ # package Mail::Message::Charset; @@ -183,6 +183,18 @@ my %message_charset_map = ( 'english' => 'us-ascii', ); +my %rev_message_charset_map = ( + 'euc-jp' => 'ja', + 'euc' => 'ja', + 'sjis-jp' => 'ja', + 'sjis' => 'ja', + 'jis-jp' => 'ja', + 'jis' => 'ja', + 'iso-2022-jp' => 'ja', + + 'us-ascii' => 'en', + ); + # Descriptions: constructor. # Arguments: OBJ($self) @@ -243,6 +255,18 @@ sub language_to_message_charset } +# Descriptions: charset to language: e.g. iso-2022-jp => japanese. +# Arguments: OBJ($self) STR($charset) +# Side Effects: none +# Return Value: STR +sub message_charset_to_language +{ + my ($self, $charset) = @_; + + return( $rev_message_charset_map{ lc($charset) } || '' ); +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |