From 10b649b6503f47388f1548c8ba9391dd6ce0284e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 24 Aug 1999 19:02:16 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'perl-install/install_steps.pm')

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");;
 
-- 
cgit v1.2.1