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
-}
-