diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-24 19:02:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-24 19:02:16 +0000 |
| commit | 10b649b6503f47388f1548c8ba9391dd6ce0284e (patch) | |
| tree | 6bc1fe238a7a28721cfd15b52946e67d236c8277 /perl-install/install_steps.pm | |
| parent | ed18d4ad1743445dc1c49d65b5a64a0c73510edd (diff) | |
| download | drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.gz drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.bz2 drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.xz drakx-10b649b6503f47388f1548c8ba9391dd6ce0284e.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 7184dde74..5c4a189fb 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -118,12 +118,6 @@ sub choosePackages($$$) { my ($o, $packages, $compss) = @_; } -sub beforeInstallPackages($) { - mkdir "$o->{prefix}/$_", 0755 foreach qw(dev etc home mnt tmp var var/tmp var/lib var/lib/rpm); - network::add2hosts("$o->{prefix}/etc/hosts", "127.0.0.1", "localhost.localdomain"); - pkgs::init_db($o->{prefix}, $o->{isUpgrade}); -} - sub installPackages($$) { my ($o, $packages) = @_; my $toInstall = [ grep { $_->{selected} && !$_->{installed} } values %$packages ]; @@ -143,7 +137,7 @@ sub mouseConfig($) { #TODO } -sub finishNetworking($) { +sub configureNetwork($) { my ($o) = @_; my $etc = "$o->{prefix}/etc"; # @@ -162,7 +156,7 @@ sub servicesConfig {} sub setRootPassword($) { my ($o) = @_; - my %u = %{$o->default("superuser")}; + my %u = %{$o->{superuser}}; my $p = $o->{prefix}; $u{password} = crypt_($u{password}) if $u{password}; @@ -185,7 +179,7 @@ sub setRootPassword($) { sub addUser($) { my ($o) = @_; - my %u = %{$o->default("user")}; + my %u = %{$o->{user}}; my $p = $o->{prefix}; my @passwd = cat_("$p/etc/passwd");; |