[Summary view] [Print] [Text view]

   1  package Encode::MIME::Name;
   2  use strict;
   3  use warnings;
   4  our $VERSION = do { my @r = ( q$Revision: 1.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
   5  
   6  our %MIME_NAME_OF = (
   7      'AdobeStandardEncoding' => 'Adobe-Standard-Encoding',
   8      'AdobeSymbol'           => 'Adobe-Symbol-Encoding',
   9      'ascii'                 => 'US-ASCII',
  10      'big5-hkscs'            => 'Big5-HKSCS',
  11      'cp1026'                => 'IBM1026',
  12      'cp1047'                => 'IBM1047',
  13      'cp1250'                => 'windows-1250',
  14      'cp1251'                => 'windows-1251',
  15      'cp1252'                => 'windows-1252',
  16      'cp1253'                => 'windows-1253',
  17      'cp1254'                => 'windows-1254',
  18      'cp1255'                => 'windows-1255',
  19      'cp1256'                => 'windows-1256',
  20      'cp1257'                => 'windows-1257',
  21      'cp1258'                => 'windows-1258',
  22      'cp37'                  => 'IBM037',
  23      'cp424'                 => 'IBM424',
  24      'cp437'                 => 'IBM437',
  25      'cp500'                 => 'IBM500',
  26      'cp775'                 => 'IBM775',
  27      'cp850'                 => 'IBM850',
  28      'cp852'                 => 'IBM852',
  29      'cp855'                 => 'IBM855',
  30      'cp857'                 => 'IBM857',
  31      'cp860'                 => 'IBM860',
  32      'cp861'                 => 'IBM861',
  33      'cp862'                 => 'IBM862',
  34      'cp863'                 => 'IBM863',
  35      'cp864'                 => 'IBM864',
  36      'cp865'                 => 'IBM865',
  37      'cp866'                 => 'IBM866',
  38      'cp869'                 => 'IBM869',
  39      'cp936'                 => 'GBK',
  40      'euc-jp'                => 'EUC-JP',
  41      'euc-kr'                => 'EUC-KR',
  42      #'gb2312-raw'            => 'GB2312', # no, you're wrong, I18N::Charset
  43      'hp-roman8'             => 'hp-roman8',
  44      'hz'                    => 'HZ-GB-2312',
  45      'iso-2022-jp'           => 'ISO-2022-JP',
  46      'iso-2022-jp-1'         => 'ISO-2022-JP',
  47      'iso-2022-kr'           => 'ISO-2022-KR',
  48      'iso-8859-1'            => 'ISO-8859-1',
  49      'iso-8859-10'           => 'ISO-8859-10',
  50      'iso-8859-13'           => 'ISO-8859-13',
  51      'iso-8859-14'           => 'ISO-8859-14',
  52      'iso-8859-15'           => 'ISO-8859-15',
  53      'iso-8859-16'           => 'ISO-8859-16',
  54      'iso-8859-2'            => 'ISO-8859-2',
  55      'iso-8859-3'            => 'ISO-8859-3',
  56      'iso-8859-4'            => 'ISO-8859-4',
  57      'iso-8859-5'            => 'ISO-8859-5',
  58      'iso-8859-6'            => 'ISO-8859-6',
  59      'iso-8859-7'            => 'ISO-8859-7',
  60      'iso-8859-8'            => 'ISO-8859-8',
  61      'iso-8859-9'            => 'ISO-8859-9',
  62      #'jis0201-raw'           => 'JIS_X0201',
  63      #'jis0208-raw'           => 'JIS_C6226-1983',
  64      #'jis0212-raw'           => 'JIS_X0212-1990',
  65      'koi8-r'                => 'KOI8-R',
  66      'koi8-u'                => 'KOI8-U',
  67      #'ksc5601-raw'           => 'KS_C_5601-1987',
  68      'shiftjis'              => 'Shift_JIS',
  69      'UTF-16'                => 'UTF-16',
  70      'UTF-16BE'              => 'UTF-16BE',
  71      'UTF-16LE'              => 'UTF-16LE',
  72      'UTF-32'                => 'UTF-32',
  73      'UTF-32BE'              => 'UTF-32BE',
  74      'UTF-32LE'              => 'UTF-32LE',
  75      'UTF-7'                 => 'UTF-7',
  76      'utf8'                  => 'UTF-8',
  77      'utf-8-strict'          => 'UTF-8',
  78      'viscii'                => 'VISCII',
  79  );
  80  
  81  sub get_mime_name($) { $MIME_NAME_OF{$_[0]} };
  82  
  83  1;
  84  __END__
  85  
  86  =head1 NAME
  87  
  88  Encode::MIME::NAME -- internally used by Encode
  89  
  90  =head1 SEE ALSO
  91  
  92  L<I18N::Charset>
  93  
  94  =cut