diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
| commit | 69907ed1e861483d4063a1eec3662690681651a7 (patch) | |
| tree | 57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/install_any.pm | |
| parent | 0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff) | |
| download | drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.gz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2 drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.tar.xz drakx-backup-do-not-use-69907ed1e861483d4063a1eec3662690681651a7.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 58fde0abd..48b0d0863 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -11,11 +11,13 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK); @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; use common qw(:common :system); +use pkgs; +use smp; use log; 1; -sub fileInBase { member($_[0], qw(compss depslist)); } +sub fileInBase { member($_[0], qw(compss depslist hdlist)); } sub imageGetFile { fileInBase($_[0]) and return "/tmp/rhimage/Mandrake/base/$_[0]"; @@ -71,15 +73,29 @@ sub spawnShell { sub mouse_detect() { my %l; - @l{qw(type xtype device)} = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed"; + @l{qw(MOUSETYPE XMOUSETYPE DEVICE)} = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed"; \%l; } sub shells($) { my ($o) = @_; my @l = grep { -x "$o->{prefix}$_" } @{$o->{default}{shells}}; - @l or die "no shell available"; - @l; + @l ? @l : "/bin/bash"; +} + +sub setPackages { + my ($o) = @_; + + eval { $o->{packages} = pkgs::psUsingHdlist() }; + $@ and $o->{packages} = pkgs::psUsingDirectory(); + pkgs::getDeps($o->{packages}); + + $o->{compss} = pkgs::readCompss($o->{packages}); + push @{$o->{base}}, "kernel-smp" if smp::detect(); + + $o->{packages}{$_}{base} = 1 foreach @{$o->{base}}; + + pkgs::setCompssSelected($o->{compss}, $o->{packages}, $o->{installClass}); } sub addToBeDone(&$) { |