From dc16c1eb290c8642614f25d09972ad0a546123bc Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 4 Mar 2018 20:06:20 +0000
Subject: Remove obsolete package selections, fixes, and workarounds.

---
 files/compute-i18n-list.pl | 88 ----------------------------------------------
 1 file changed, 88 deletions(-)
 delete mode 100755 files/compute-i18n-list.pl

(limited to 'files/compute-i18n-list.pl')

diff --git a/files/compute-i18n-list.pl b/files/compute-i18n-list.pl
deleted file mode 100755
index 914585b..0000000
--- a/files/compute-i18n-list.pl
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-use Getopt::Long;
-use lib qw(/usr/lib/libDrakX);
-use run_program;
-
-# alleged i18n packages for french (useful to spot missing requires on locales-fr)
-# rpm -qa \*-fr\* --qf '%{name}\n' | perl -n -e '/^(.*)-fr(_.+)?$/ and print "$1\n"' | sort -u
-# my @packages = (
-#  aspell
-#  kde-i18n
-#  locales
-#  mozilla-firefox
-#  myspell
-#  myspell-hyph
-#  openoffice.org-l10n
-# ); 
-
-my ($prefix, $ooo_version);
-GetOptions(
-    "prefix=s" => \$prefix,
-    "ooo=s" => \$ooo_version,
-);
-
-my @misowned_dirs = qw(
-/usr/lib/ooo-${ooo_version}
-/usr/lib/ooo-${ooo_version}/help
-/usr/share/apps
-/usr/share/apps/khangman
-/usr/share/apps/khangman/data
-/usr/share/apps/ktuberling
-/usr/share/apps/ktuberling/sounds
-/usr/share/doc/HTML
-/usr/share/locale
-);
-
-my @dirs = qw(
-/usr/share/man
-/usr/share/doc/HTML
-);
-
-my @files = qw(
-/usr/lib/ooo-${ooo_version}/share/dict/$L.*
-/usr/lib/ooo-${ooo_version}/share/dict/$L_comb.*
-/usr/lib/ooo-${ooo_version}/share/dict/hyph_$L.*
-/usr/lib/ooo-${ooo_version}/share/dict/th_$L.*
-/usr/lib/ooo-${ooo_version}/share/dict/th_$L_v2.*
-);
-
-my %per_locale_files = (
-    zh => [
-        #- disables anti-aliasing by default
-        '/etc/fonts/conf.d/99-ttf-arphic-uming-bitmaps.conf'
-    ],
-);
-
-my @locale_packages = run_program::rooted_get_stdout($prefix, 'rpm', '-qa', 'locales-*', '--qf', '%{name}\n');
-my @locales = sort(map { s/^locales-//; chomp; $_ } @locale_packages);
-
-sub expand_files {
-    my ($p, $o_lang) = @_;
-    $p =~ s/\$L/$o_lang/ if $o_lang;
-    map { s/^$prefix//; $_ } grep { -e $_ } glob($prefix . $p);
-}
-
-foreach my $l (@locales) {
-    my @list;
-    my $locale_pkg = "locales-$l";
-    #my $l_pattern = qr/^$l([_.@].+)?$/;
-    #my @l_packages = map { ("$_-$l", "$_-${l}_*") } @packages;
-    my @l_packages = chomp_(run_program::rooted_get_stdout($prefix, 'rpm', '-q', '--qf', '%{name}\n', '--whatrequires', $locale_pkg));
-    unshift @l_packages, $locale_pkg;
-    my @list = chomp_(run_program::rooted_get_stdout($prefix, 'rpm', '-ql', @l_packages));
-    my @all_locales = map { m!^/usr/share/locale/([^/]+)$! } chomp_(run_program::rooted_get_stdout($prefix, 'rpm', '-ql', $locale_pkg));
-    # skip misowned directories such as /usr/share/locale
-    @list = grep { ! -d $prefix . $_ || member(basename($_), @all_locales) } @list;
-    #@list = difference2(\@list, \@misowned_dirs);
-    foreach my $l2 (@all_locales) {
-	foreach my $d (@dirs) {
-	    my $l_d = $d . '/' . $l2;
-	    push @list, $l_d if -e $prefix . $l_d;
-	}
-	push @list, expand_files($_, $l2) foreach @files;
-    }
-    push @list, expand_files($_) foreach @{$per_locale_files{$l} || []};
-    output_p($prefix . "/root/drakx/i18n-$l.lst", map { "$_\n" } sort(@list));
-}
-- 
cgit v1.2.1