diff options
| author | fukachan <fukachan> | 2004-02-06 13:29:47 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-02-06 13:29:47 +0000 |
| commit | 3a26895db9cec6a3a76aa862ac3b4e96a53f7b66 (patch) | |
| tree | 838b84501fb9051eff625f3a889e8f020099c16f /fml/lib/Mail/Message | |
| parent | 0069f7aca7a36b75df43bf7a988527e049f76aa7 (diff) | |
| download | fml8-3a26895db9cec6a3a76aa862ac3b4e96a53f7b66.tar.gz fml8-3a26895db9cec6a3a76aa862ac3b4e96a53f7b66.tar.bz2 fml8-3a26895db9cec6a3a76aa862ac3b4e96a53f7b66.zip | |
implement message_charset_to_language() method.
Diffstat (limited to 'fml/lib/Mail/Message')
| -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. |