summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-04 14:17:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-04 14:17:15 +0000
commitf7bee8d26d4395332b6fdbf3722ae55c31e0238f (patch)
tree1ce4beb1715ca60f1fa22d45e5cc7b82d4aa3ad0 /perl-install/pkgs.pm
parenta8d2318343b50494f5d458ef89474ee5287f5302 (diff)
downloaddrakx-backup-do-not-use-f7bee8d26d4395332b6fdbf3722ae55c31e0238f.tar
drakx-backup-do-not-use-f7bee8d26d4395332b6fdbf3722ae55c31e0238f.tar.gz
drakx-backup-do-not-use-f7bee8d26d4395332b6fdbf3722ae55c31e0238f.tar.bz2
drakx-backup-do-not-use-f7bee8d26d4395332b6fdbf3722ae55c31e0238f.tar.xz
drakx-backup-do-not-use-f7bee8d26d4395332b6fdbf3722ae55c31e0238f.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm26
1 files changed, 22 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8e3ecf63f..660f55965 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -69,6 +69,7 @@ sub select($$;$) {
my ($packages, $p, $base) = @_;
my %preferred; @preferred{@preferred} = ();
my ($n, $v);
+# print "## $p->{name}\n";
unless ($p->{installed}) { #- if the same or better version is installed, do not select.
$p->{base} ||= $base;
$p->{selected} = -1; #- selected by user
@@ -88,6 +89,8 @@ sub select($$;$) {
$i->{deps} or log::l("missing deps for $n");
unless ($i->{installed}) {
unless ($i->{selected}) {
+# print ">> $i->{name}\n";
+# /gnome-games/ and print ">>> $i->{name}\n" foreach @{$i->{deps} || []};
$l{$_} ||= 0 foreach @{$i->{deps} || []};
}
$i->{selected}++ unless $i->{selected} == -1;
@@ -134,6 +137,19 @@ sub unselect_all($) {
$_->{selected} = $_->{base} foreach values %$packages;
}
+sub size_selected {
+ my ($packages) = @_;
+ my $nb = 0; foreach (values %$packages) {
+ $nb += $_->{size} if $_->{selected};
+ }
+ $nb;
+}
+
+sub skip_set {
+ my ($packages, @l) = @_;
+ $_->{skip} = 1 foreach @l, grep { $_ } map { Package($packages, $_) } map { @{$_->{provides} || []} } @l;
+}
+
sub psUsingDirectory(;$) {
my $dirname = $_[0] || "/tmp/rhimage/Mandrake/RPMS";
my %packages;
@@ -230,6 +246,7 @@ sub readCompssList($$$) {
local $_ = <$f>;
my $level = [ split ];
+ my $nb_values = 3;
my $e;
foreach (<$f>) {
/^\s*$/ || /^#/ and next;
@@ -251,7 +268,7 @@ sub readCompssList($$$) {
foreach ($locales, @{$p->{provides} || []}, @{$by_lang{$_} || []}) {
next if $done{$_}; $done{$_} = 1;
my $p = $packages->{$_} or next;
- $p->{values} = [ map { $_ + 70 } @{$p->{values}} ];
+ $p->{values} = [ map { $_ + 90 } @{$p->{values} || [ (0) x $nb_values ]} ];
}
}
$level;
@@ -289,7 +306,7 @@ sub readCompssUsers {
#- }
sub setSelectedFromCompssList {
- my ($compssListLevels, $packages, $min_level, $max_size, $install_class, $isUpgrade) = @_;
+ my ($compssListLevels, $packages, $min_level, $max_size, $install_class) = @_;
my ($ind);
my @packages = allpackages($packages);
@@ -302,15 +319,16 @@ sub setSelectedFromCompssList {
};
foreach (@places) {
my $p = $packages[$_];
+ next if $p->{skip};
last if $p->{values}[$ind] < $min_level;
- &select($packages, $p) unless $isUpgrade;
+ &select($packages, $p);
my $nb = 0; foreach (@packages) {
$nb += $_->{size} if $_->{selected};
}
if ($nb > $max_size) {
- unselect($packages, $p) unless $isUpgrade;
+ unselect($packages, $p);
$min_level = $p->{values}[$ind];
last;
}