diff options
author | Thomas Backlund <tmb@mageia.org> | 2012-05-26 15:28:33 +0000 |
---|---|---|
committer | Thomas Backlund <tmb@mageia.org> | 2012-05-26 15:28:33 +0000 |
commit | 528a1fbedeffce036154955623c370b8f47c33bd (patch) | |
tree | 0865a6d7c1939082917acf5de3b4f85ba77bd09d /trunk/tools/live-lang | |
parent | 07cb265cf99918196a257585757a3c2bb175f57f (diff) | |
parent | 7eead25cd00a547753ec94f6b301c5b32968291b (diff) | |
download | draklive-config-distro/mga2.tar draklive-config-distro/mga2.tar.gz draklive-config-distro/mga2.tar.bz2 draklive-config-distro/mga2.tar.xz draklive-config-distro/mga2.zip |
new branch for mga2distro/mga2
Diffstat (limited to 'trunk/tools/live-lang')
-rw-r--r-- | trunk/tools/live-lang | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/trunk/tools/live-lang b/trunk/tools/live-lang deleted file mode 100644 index 6772648..0000000 --- a/trunk/tools/live-lang +++ /dev/null @@ -1,39 +0,0 @@ -#!/usr/bin/perl -# -# - -use strict; -use lib qw(/usr/lib/libDrakX); -use common; -use lang; - -my @chroot = @ARGV; - -@chroot or usage(); - -foreach my $path (@chroot) { - my %done; - my $qa = `chroot $path rpm -qa`; - my @list; - foreach my $rpm (split "\n", $qa) { - my $l; - if ($rpm =~ /locales-([^-]+)-/) { - #$l = $1 - } elsif ($rpm =~ /(?:i18n|l10n|aspell)-([^-]+)-/) { - $l = $1 - } - if ($l && $lang::langs{$l} && !$done{$l}) { - $done{$l} = 1; - push @list,@{$lang::langs{$l}}[0] - } - } - print "$path: ", join(", ", sort @list), "\n" -} - -exit; - -sub usage { - print "\nusage:\n\n\t\tlive-lang <chroot install>\n\n"; - exit -} - |