#-*- perl -*-
#
# Copyright (C) 2003,2004 Ken'ichi Fukamachi
#
# $FML: Charset.pm,v 1.3 2004/02/06 13:29:47 fukachan Exp $
#

package Mail::Message::Charset;
use strict;

=head1 NAME

Mail::Message::Charset - charset map

=head1 SYNOPSIS

    use Mail::Message::Charset;
    my $mh = new Mail::Message::Charset;

=head1 DESCRIPTION

=head1 METHODS

=cut


1;

my %language_code =  (
		      "aa"  => "Afar",
		      "ab"  => "Abkhazian",
		      "af"  => "Afrikaans",
		      "am"  => "Amharic",
		      "ar"  => "Arabic",
		      "as"  => "Assamese",
		      "ay"  => "Aymara",
		      "az"  => "Azerbaijani",
		      "ba"  => "Bashkir",
		      "be"  => "Belarusian",
		      "bg"  => "Bulgarian",
		      "bh"  => "Bihari",
		      "bi"  => "Bislama",
		      "bn"  => "Bengali",
		      "bnt" => "Bantu",
		      "bo"  => "Tibetan",
		      "br"  => "Breton",
		      "ca"  => "Catalan",
		      "co"  => "Corsican",
		      "cs"  => "Czech",
		      "cy"  => "Welsh",
		      "da"  => "Danish",
		      "de"  => "German",
		      "div" => "Maldivian",
		      "dz"  => "Bhutani",
		      "el"  => "Greek",
		      "en"  => "English",
		      "eo"  => "Esperanto",
		      "es"  => "Spanish",
		      "et"  => "Estonian",
		      "eu"  => "Basque",
		      "fa"  => "Farsi/Persian",
		      "fi"  => "Finnish",
		      "fj"  => "Fijian",
		      "fo"  => "Faroese",
		      "fr"  => "French",
		      "fy"  => "Frisian",
		      "ga"  => "Irish",
		      "gd"  => "Scottish",
		      "gl"  => "Galician",
		      "gn"  => "Guarani",
		      "gu"  => "Gujarati",
		      "ha"  => "Hausa",
		      "he"  => "Hebrew",
		      "hi"  => "Hindi",
		      "hr"  => "Croatian",
		      "hu"  => "Hungarian",
		      "hy"  => "Armenian",
		      "id"  => "Indonesian",
		      "ik"  => "Inupiaq",
		      "is"  => "Icelandic",
		      "it"  => "Italian",
		      "ja"  => "Japanese",
		      "jv"  => "Javanese",
		      "ka"  => "Georgian",
		      "kk"  => "Kazakh",
		      "kl"  => "Greenlandic",
		      "km"  => "Cambodian/Khmer",
		      "kn"  => "Kannada",
		      "ko"  => "Korean",
		      "ks"  => "Kashmiri",
		      "ku"  => "Kurdish",
		      "ky"  => "Kirghiz",
		      "ln"  => "Lingala",
		      "lo"  => "Laothian",
		      "lt"  => "Lithuanian",
		      "lv"  => "Latvian",
		      "mg"  => "Malagasy",
		      "mi"  => "Maori",
		      "mk"  => "Macedonian",
		      "ml"  => "Malayalam",
		      "mn"  => "Mongolian",
		      "mo"  => "Moldavian",
		      "mr"  => "Marathi",
		      "ms"  => "Malay",
		      "mt"  => "Maltese",
		      "my"  => "Burmese",
		      "na"  => "Nauru",
		      "ne"  => "Nepali",
		      "nl"  => "Dutch",
		      "no"  => "Norwegian",
		      "oc"  => "Occitan",
		      "om"  => "Oromo",
		      "or"  => "Oriya",
		      "pa"  => "Punjabi",
		      "pap" => "Papiamento",
		      "pl"  => "Polish",
		      "ps"  => "Pushto",
		      "pt"  => "Portuguese",
		      "qu"  => "Quechua",
		      "rm"  => "Raeto-Romance",
		      "rn"  => "Kurundi",
		      "ro"  => "Romanian",
		      "ru"  => "Russian",
		      "rw"  => "Kinyarwanda",
		      "sa"  => "Sanskrit",
		      "sd"  => "Sindhi",
		      "sg"  => "Sangho",
		      "sh"  => "Serbo-Croatian",
		      "si"  => "Singhalese",
		      "sk"  => "Slovak",
		      "sl"  => "Slovenian",
		      "sm"  => "Samoan",
		      "sn"  => "Shona",
		      "so"  => "Somali",
		      "sq"  => "Albanian",
		      "sr"  => "Serbian",
		      "ss"  => "Siswati",
		      "st"  => "Sesotho",
		      "su"  => "Sundanese",
		      "sv"  => "Swedish",
		      "sw"  => "Swahili",
		      "ta"  => "Tamil",
		      "te"  => "Telugu",
		      "tg"  => "Tajik",
		      "th"  => "Thai",
		      "ti"  => "Tigrinya",
		      "tk"  => "Turkmen",
		      "tl"  => "Tagalog",
		      "tn"  => "Setswana",
		      "to"  => "Tonga",
		      "tr"  => "Turkish",
		      "ts"  => "Tsonga",
		      "tt"  => "Tatar",
		      "tw"  => "Twi",
		      "uk"  => "Ukrainian",
		      "ur"  => "Urdu",
		      "uz"  => "Uzbek",
		      "vi"  => "Vietnamese",
		      "vo"  => "Volapuk",
		      "wo"  => "Wolof",
		      "xh"  => "Xhosa",
		      "yi"  => "Yiddish",
		      "yo"  => "Yoruba",
		      "zh"  => "Chinese",
		      "zu"  => "Zulu",
		      );


my %internal_charset_map = (
			    'ja'       => 'euc-jp',
			    'japanese' => 'euc-jp',

			    'en'       => 'us-ascii',
			    'english'  => 'us-ascii',
			    );


my %message_charset_map  = (
			    'ja'       => 'iso-2022-jp',
			    'japanese' => 'iso-2022-jp',

			    'en'       => 'us-ascii',
			    '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)
# Side Effects: none
# Return Value: OBJ
sub new
{
    my ($self) = @_;
    my ($type) = ref($self) || $self;
    my $me     = {};
    return bless $me, $type;
}


# Descriptions: return default charset.
#    Arguments: OBJ($self)
# Side Effects: none
# Return Value: OBJ
sub internal_default_charset
{
    my ($self) = @_;
    return 'us-ascii';
}


# Descriptions: return default charset.
#    Arguments: OBJ($self)
# Side Effects: none
# Return Value: OBJ
sub message_default_charset
{
    my ($self) = @_;
    return 'us-ascii';
}


# Descriptions: get charset info: e.g. japanese => euc-jp.
#    Arguments: OBJ($self) STR($language)
# Side Effects: none
# Return Value: STR
sub language_to_internal_charset
{
    my ($self, $language) = @_;

    return( $internal_charset_map{ lc($language) } || '' );
}


# Descriptions: get charset info: e.g. ja or japanese => iso-2022-jp.
#    Arguments: OBJ($self) STR($language)
# Side Effects: none
# Return Value: STR
sub language_to_message_charset
{
    my ($self, $language) = @_;

    return( $message_charset_map{ lc($language) } || '' );
}


# Descriptions: charset to language: e.g. iso-2022-jp => ja.
#    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.

=head1 AUTHOR

Ken'ichi Fukamachi

=head1 COPYRIGHT

Copyright (C) 2003,2004 Ken'ichi Fukamachi

All rights reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.

=cut


1;
