diff options
author | Thomas Backlund <tmb@mageia.org> | 2012-05-26 15:24:36 +0000 |
---|---|---|
committer | Thomas Backlund <tmb@mageia.org> | 2012-05-26 15:24:36 +0000 |
commit | 07cb265cf99918196a257585757a3c2bb175f57f (patch) | |
tree | 834d1a087b069104babdd124681c59045636d3f3 /trunk/tools/live-lang | |
parent | c8f4f11fd9e32b4b87197de0e0b63a4ed500f6ad (diff) | |
download | draklive-config-07cb265cf99918196a257585757a3c2bb175f57f.tar draklive-config-07cb265cf99918196a257585757a3c2bb175f57f.tar.gz draklive-config-07cb265cf99918196a257585757a3c2bb175f57f.tar.bz2 draklive-config-07cb265cf99918196a257585757a3c2bb175f57f.tar.xz draklive-config-07cb265cf99918196a257585757a3c2bb175f57f.zip |
branch for mga 1
Diffstat (limited to 'trunk/tools/live-lang')
-rw-r--r-- | trunk/tools/live-lang | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/trunk/tools/live-lang b/trunk/tools/live-lang new file mode 100644 index 0000000..6772648 --- /dev/null +++ b/trunk/tools/live-lang @@ -0,0 +1,39 @@ +#!/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 +} + |