use MDK::Common; my %shifts = ( 'af' => 1, 'am' => 1, 'ar' => 0, 'az' => 1, 'be' => 2, 'bg' => 2, 'bn' => 1, 'br' => 2, 'bs' => 2, 'ca' => 2, 'cs' => 2, 'cy' => 2, 'da' => 2, 'de' => 2, 'el' => 2, 'en_GB' => 2, 'en_US' => 2, 'eo' => 2, 'es' => 2, 'et' => 2, 'eu' => 2, 'fa' => 0, 'fi' => 1, 'fo' => 2, 'fr' => 2, 'ga' => 2, 'gd' => 2, 'gl' => 2, 'gv' => 2, 'he' => 0, 'hi' => 1, 'hr' => 2, 'hu' => 2, 'hy' => 1, 'ia' => 2, 'id' => 1, 'is' => 1, 'it' => 1, 'iu' => 1, 'ja' => 3, 'ka' => 1, 'kn' => 1, 'ko' => 1, 'kw' => 0, 'lo' => 0, 'lt' => 0, 'lv' => 0, 'mi' => 0, 'mk' => 0, 'mn' => 0, 'mr' => 0, 'ms' => 0, 'mt' => 0, 'nb' => 0, 'nl' => 0, 'nn' => 0, 'no' => 0, 'oc' => 0, 'pl' => 0, 'pt_BR' => 0, 'pt' => 0, 'ro' => 0, 'ru' => 0, 'sk' => 0, 'sl' => 0, 'sp' => 0, 'sq' => 0, 'sr' => 0, 'sv' => 0, 'ta' => 1, 'te' => 1, 'tg' => 0, 'th' => 0, 'tr' => 0, 'tt' => 1, 'uk' => 0, 'ur' => 1, 'uz' => 0, 'vi' => 0, 'wa' => 0, 'yi' => 0, 'zh_CN' => 0, 'zh_TW' => 0, ); foreach (glob("lang*.png")) { /lang-(.*)\.png/; exists $shifts{$1} or die "doesn't exist for $_"; $shifts{$1} or next; print "./a.out $_ l.png $shifts{$1}\n"; system("./a.out $_ l.png $shifts{$1}"); renamef('l.png', $_); } o/mdv2010.0'>distro/mdv2010.0 Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/share/po
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-01-17 13:33:16 +0000
committerThierry Vignaud <tv@mandriva.org>2008-01-17 13:33:16 +0000
commit7c4b02d1c414d545d36333ae3ca48ea0f7bfcad3 (patch)
tree3fbe80edfa54b91b66541c5f9462979a3969abb1 /perl-install/share/po
parent1d941a327bfc861301b18d125e051cfb4f0206ad (diff)
downloaddrakx-7c4b02d1c414d545d36333ae3ca48ea0f7bfcad3.tar
drakx-7c4b02d1c414d545d36333ae3ca48ea0f7bfcad3.tar.gz
drakx-7c4b02d1c414d545d36333ae3ca48ea0f7bfcad3.tar.bz2
drakx-7c4b02d1c414d545d36333ae3ca48ea0f7bfcad3.tar.xz
drakx-7c4b02d1c414d545d36333ae3ca48ea0f7bfcad3.zip
sync with code
Diffstat (limited to 'perl-install/share/po')