diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-16 17:30:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-16 17:30:46 +0000 |
| commit | 81068b4c188a82c0ae486665617f385997e619cd (patch) | |
| tree | 485035ca8ecab31f9012e5b38c59c25434a0b676 /perl-install/install_any.pm | |
| parent | 1609027e73313dc16a5109e3d3f56d6b1c9b20ad (diff) | |
| download | drakx-backup-do-not-use-81068b4c188a82c0ae486665617f385997e619cd.tar drakx-backup-do-not-use-81068b4c188a82c0ae486665617f385997e619cd.tar.gz drakx-backup-do-not-use-81068b4c188a82c0ae486665617f385997e619cd.tar.bz2 drakx-backup-do-not-use-81068b4c188a82c0ae486665617f385997e619cd.tar.xz drakx-backup-do-not-use-81068b4c188a82c0ae486665617f385997e619cd.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 2cab51528..07480df6c 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -38,7 +38,6 @@ sub getFile($) { *install_any::getFile = \&ftp::getFile; } else { *install_any::getFile = sub($) { - print ">>>>>> /tmp/rhimage/" . relGetFile($_[0]), "\n"; open getFile, "/tmp/rhimage/" . relGetFile($_[0]) or sleep(1000), return; \*getFile; }; @@ -115,24 +114,26 @@ sub getAvailableSpace { sub setPackages($$) { my ($o, $install_classes) = @_; - unless ($o->{packages}) { + if ($o->{packages}) { + $_->{selected} = 0 foreach values %{$o->{packages}}; + } else { my $useHdlist = $o->{method} !~ /nfs|hd/; eval { $o->{packages} = pkgs::psUsingHdlist() } if $useHdlist; $o->{packages} = pkgs::psUsingDirectory() if !$useHdlist || $@; pkgs::getDeps($o->{packages}); - $o->{compss} = pkgs::readCompss ($o->{packages}); + $o->{compss} = pkgs::readCompss($o->{packages}); $o->{compssListLevels} = pkgs::readCompssList($o->{packages}); $o->{compssListLevels} ||= $install_classes; push @{$o->{base}}, "kernel-smp" if detect_devices::hasSMP(); - - do { - my $p = $o->{packages}{$_} or log::l(), next; - pkgs::select($o->{packages}, $p, 1); - } foreach @{$o->{base}}; } + do { + my $p = $o->{packages}{$_} or log::l("missing base package $_"), next; + pkgs::select($o->{packages}, $p, 1); + } foreach @{$o->{base}}; + pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang}); pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang}); } |