blob: 2d0797b7ec09772919cb71d57532ad47810ac959 (
plain)
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));
|