diff options
| author | Olivier Blin <blino@mageia.org> | 2011-03-15 13:58:31 +0000 |
|---|---|---|
| committer | Olivier Blin <blino@mageia.org> | 2011-03-15 13:58:31 +0000 |
| commit | 4c4328833cb84e7e5e4eccbb385c9d4851bfd7b5 (patch) | |
| tree | f6d8d18d835eb7a25088d351663a29c5058532d5 /tools/langs-expand.pl | |
| download | draklive-config-4c4328833cb84e7e5e4eccbb385c9d4851bfd7b5.tar draklive-config-4c4328833cb84e7e5e4eccbb385c9d4851bfd7b5.tar.gz draklive-config-4c4328833cb84e7e5e4eccbb385c9d4851bfd7b5.tar.bz2 draklive-config-4c4328833cb84e7e5e4eccbb385c9d4851bfd7b5.tar.xz draklive-config-4c4328833cb84e7e5e4eccbb385c9d4851bfd7b5.zip | |
import initial live config
Diffstat (limited to 'tools/langs-expand.pl')
| -rwxr-xr-x | tools/langs-expand.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tools/langs-expand.pl b/tools/langs-expand.pl new file mode 100755 index 0000000..2d0797b --- /dev/null +++ b/tools/langs-expand.pl @@ -0,0 +1,6 @@ +#!/usr/bin/perl -l +use lib qw(/usr/lib/libDrakX); +use lang; +use MDK::Common; +my @langs = grep { member(lang::locale_to_main_locale($_), @ARGV) } lang::list_langs(); +print join("\n", map { lang::l2name($_) . " (" . $_ . ")" } sort(@langs)); |