trunk/tools/langs-expand.pl


1
2
3
4
5
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));