Comment clean-up: Remove $Id$, fix FSF address, copyright years
[deb/packages.git] / lib / Packages / I18N / LanguageNames.pm
1 # Taken from the webwml CVS tree (english/templates/language_names.wml)
2
3 package Packages::I18N::LanguageNames;
4
5 use strict;
6 use warnings;
7
8 use Exporter;
9 use Packages::I18N::Locale;
10
11 our @ISA = qw( Exporter );
12 our @EXPORT = qw( get_language_name get_all_languages );
13
14 my %ctrans = (
15         ar    => N_("Arabic"),
16         fi    => N_("Finnish"),
17         hr    => N_("Croatian"),
18         da    => N_("Danish"),
19         nl    => N_("Dutch"),
20         en    => N_("English"),
21         fr    => N_("French"),
22         de    => N_("German"),
23         it    => N_("Italian"),
24         ja    => N_("Japanese"),
25         ko    => N_("Korean"),
26         es    => N_("Spanish"),
27         pt_BR => N_("Portuguese (Brasilia)"),
28         pt_PT => N_("Portuguese (Portugal)"),
29         zh    => N_("Chinese"),
30         sv_SE => N_("Swedish"),
31         pl    => N_("Polish"),
32         'no'  => N_("Norwegian"),
33         tr    => N_("Turkish"),
34         ru    => N_("Russian"),
35         cs    => N_("Czech"),
36         eo    => N_("Esperanto"),
37         hu    => N_("Hungarian"),
38         ro    => N_("Romanian"),
39         sk    => N_("Slovak"),
40         el    => N_("Greek"),
41         ca    => N_("Catalan"),
42         lt    => N_("Lithuanian"),
43         sl    => N_("Slovene"),
44         bg    => N_("Bulgarian"),
45         uk    => N_("Ukrainian"),
46 );
47
48 sub get_language_name {
49     return $ctrans{$_[0]};
50 }
51
52 sub get_all_languages {
53     return %ctrans;
54 }
55
56 1;