diff options
author | David Prévot <taffit> | 2011-12-25 05:06:57 +0000 |
---|---|---|
committer | David Prévot <taffit> | 2011-12-25 05:06:57 +0000 |
commit | e8730458145f9ef34ad41f74c371e4609c68eea2 (patch) | |
tree | 039364daf51753c8cc882ee5fb149dd044a2edde /Perl/Debian | |
parent | 51cd9350a717c45916cec01eec7d95d744347a81 (diff) |
Share %LanguageList
CVS version numbers
Perl/Debian/L10n/Db.pm: 1.3 -> 1.4
english/international/l10n/scripts/gen-files.pl: 1.82 -> 1.83
Diffstat (limited to 'Perl/Debian')
-rw-r--r-- | Perl/Debian/L10n/Db.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Perl/Debian/L10n/Db.pm b/Perl/Debian/L10n/Db.pm index 8975c44114c..ac72eb88f36 100644 --- a/Perl/Debian/L10n/Db.pm +++ b/Perl/Debian/L10n/Db.pm @@ -42,6 +42,34 @@ use Data::Dumper; # Do not use ``our'' to be compatible with Perl 5.005 use vars (qw($AUTOLOAD)); +# Define data that are used in various places: +# stattrans.pl, english/international/l10n/scripts/gen-files.pl + +use Exporter; +our @ISA=('Exporter'); +our @EXPORT_OK=('%LanguageList'); + +our %LanguageList = ( + AR => 'arabic', + CA => 'catalan', + CS => 'czech', + DE => 'german', + RU => 'russian', +# Used by the Smith project, not for translations +# EN => 'english', + ES => 'spanish', + FR => 'french', + GL => 'galician', +# Not supported yet by the robot. Not all messages are sent ot the list +# NL => 'dutch', + PT_BR => 'portuguese', + RO => 'romanian', + SK => 'slovak', + SV => 'swedish', +# Has not used pseudo-urls recently +# TR => 'turkish', +); + =item new This is the constructor, it only performs some initialization. |