summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-24 08:53:00 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-24 08:53:00 +0000
commit2d4133ff240757edb14cf10b83bbbabb274772f3 (patch)
treeadbdd0c33b5ff160ed5a1eb80cdb47837c7e0b45 /perl-install/pkgs.pm
parent0925f92586a8a200a632eece658b2a45b09c9cc8 (diff)
downloaddrakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar
drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar.gz
drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar.bz2
drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.tar.xz
drakx-backup-do-not-use-2d4133ff240757edb14cf10b83bbbabb274772f3.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm22
1 files changed, 19 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 2d50d8712..cc3dd166e 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -14,14 +14,26 @@ use c;
$size_correction_ratio = 1.04;
-1;
-
+my @skip_list = qw(
+XFree86-8514 XFree86-AGX XFree86-Mach32 XFree86-Mach64 XFree86-Mach8 XFree86-Mono
+XFree86-P9000 XFree86-S3 XFree86-S3V XFree86-SVGA XFree86-W32 XFree86-I128
+XFree86-Sun XFree86-SunMono XFree86-Sun24 XFree86-3DLabs kernel-BOOT
+MySQL MySQL_GPL mod_php3 midgard postfix metroess metrotmpl
+hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers
+hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb
+);#)
sub Package {
my ($packages, $name) = @_;
$packages->{$name} or log::l("unknown package `$name'") && undef;
}
+sub allpackages {
+ my ($packages) = @_;
+ my %skip_list; @skip_list{@skip_list} = ();
+ grep { !exists $skip_list{$_->{name}} } values %$packages;
+}
+
sub select($$;$) {
my ($packages, $p, $base) = @_;
my ($n, $v);
@@ -221,7 +233,9 @@ sub setSelectedFromCompssList($$$$$) {
defined $ind or log::l("unknown install class $install_class in compssList"), return;
my @values = map { $_->{values}[$ind] } @packages;
- sort { $values[$b] <=> $values[$a] } 0 .. $#packages;
+ sort { $values[$b] <=> $values[$a] }
+ grep { $packages[$_]->{values}[$ind] } #- remove null values (won't get installed)
+ 0 .. $#packages;
};
foreach (@places) {
my $p = $packages[$_];
@@ -320,3 +334,5 @@ sub install($$) {
$_->{installed} = 1 foreach @$toInstall;
}
+
+1;