Remove obsolete package selections, fixes, and workarounds.

7 files changed, 0 insertions, 156 deletions

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));
-}
diff --git a/files/compute-ooo-dicts.pl b/files/compute-ooo-dicts.pl
deleted file mode 100755
index d9968c5..0000000
--- a/files/compute-ooo-dicts.pl
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-use Getopt::Long;
-use lib qw(/usr/lib/libDrakX);
-use run_program;
-
-my $prefix;
-my $check_locale;
-GetOptions(
-    "prefix=s" => \$prefix,
-    "check-locale" => \$check_locale,
-);
-my $dictd = $ARGV[0] or die "syntax: $0 [--check-locale] [--prefix <prefix>] <dictionary dir>";
-
-my $dictf = "dictionary.lst";
-my $dicts = "dictionary.src";
-my $dictu = "dictionary.unused";
-
-my @dictl;
-my @unused;
-
-my @available_langs = map {
-    /^locales-(\S+)/ ? $1 : ();
-} chomp_(run_program::rooted_get_stdout($prefix, 'rpm', '-qa', '--provides', 'locales-*'));
-
-sub add_dict {
-    my ($type, $name, $file, $add) = @_;
-    my ($lang, $country) = $name =~ /^([^_]+)_([^_]+)/;
-    my ($root_name) = $file =~ /^(.*)\.(.*?)$/;
-    if (!$check_locale || member($lang, @available_langs)) {
-	push @dictl, [ $type, $lang, $country, $root_name ] if $add;
-    } else {
-	push @unused, "$dictd/$file";
-    }
-}
-
-rename("$prefix$dictd/$dictf", "$prefix$dictd/$dicts") if ! -e "$prefix$dictd/$dicts";
-foreach (all("$prefix/$dictd")) {
-    if (/^hyph_(.+)\.(.*?)$/) {
-	add_dict('HYPH', $1, $_, $2 eq 'dic');
-    } elsif (/^th_(.+)\.(.*?)$/) {
-	add_dict('THES', $1, $_, $2 eq 'idx');
-    } elsif (/^(.+_.+)\.(.*?)$/) {
-	add_dict('DICT', $1, $_, $2 eq 'dic');
-    }
-}
-
-output_p("$prefix$dictd/$dictf",
-	 join('', grep { /^#/ } cat_("$prefix$dictd/$dicts")),
-	 "\n",
-	 map { join(' ', @$_) . "\n" } @dictl,
-    );
-
-output_p("$prefix$dictd/$dictu", map { "$_\n" } @unused);
diff --git a/files/defaultspooler b/files/defaultspooler
deleted file mode 100644
index 462d36c..0000000
--- a/files/defaultspooler
+++ /dev/null
@@ -1 +0,0 @@
-cups
diff --git a/files/draklive-install.d/run.d/gdm-permissions.sh b/files/draklive-install.d/run.d/gdm-permissions.sh
deleted file mode 100755
index 62d37d1..0000000
--- a/files/draklive-install.d/run.d/gdm-permissions.sh
+++ /dev/null
@@ -1,5 +0,0 @@
-#!/bin/sh
-
-if [ -d "/var/lib/gdm" ]; then
-    /usr/bin/chown -R gdm:gdm /var/lib/gdm
-fi
diff --git a/files/draksnapshot.sysconfig b/files/draksnapshot.sysconfig
deleted file mode 100644
index cca41e8..0000000
--- a/files/draksnapshot.sysconfig
+++ /dev/null
@@ -1 +0,0 @@
-AUTOSTART=FALSE
diff --git a/files/kbluetoothrc b/files/kbluetoothrc
deleted file mode 100644
index 2680caa..0000000
--- a/files/kbluetoothrc
+++ /dev/null
@@ -1,5 +0,0 @@
-[General]
-AutoStart=false
-
-[Notification Messages]
-kbluepinLocInfo-usr-lib-kdebluetooth=false
diff --git a/files/live.modprobe b/files/live.modprobe
deleted file mode 100644
index 5bb2345..0000000
--- a/files/live.modprobe
+++ /dev/null
@@ -1 +0,0 @@
-install usblp /bin/true