summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 13:59:16 +0000
committerpad <pad@mandriva.com>1999-09-05 13:59:16 +0000
commitb2dcc1f05939631e7583740a36f3c41c87235639 (patch)
treebee0630d0f11935a8e812b8fed0798e1148d449f /perl-install/install_steps.pm
parenta7c17125164aa7fd336fdab93e49032239f2b626 (diff)
downloaddrakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.gz
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.bz2
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.xz
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.zip
clean graphical to use ask_from_entries
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm10
1 files changed, 2 insertions, 8 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 5f0044f88..9c5473c49 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -24,9 +24,6 @@ use network;
use fs;
-my @etc_pass_fields = qw(name password uid gid realname home shell);
-
-
my $o;
1;
@@ -85,11 +82,9 @@ sub errorInStep($$) {}
#-######################################################################################
#- Steps Functions
#-######################################################################################
-
#------------------------------------------------------------------------------
sub selectLanguage {
$o->{keyboard} ||= keyboard::lang2keyboard($o->{lang});
- #PAD CHOICE ||=
selectKeyboard($o);
}
#------------------------------------------------------------------------------
@@ -113,7 +108,6 @@ sub rebootNeeded($) {
exit "true";
}
-#------------------------------------------------------------------------------
sub choosePartitionsToFormat($$) {
my ($o, $fstab) = @_;
@@ -123,7 +117,6 @@ sub choosePartitionsToFormat($$) {
}
}
-#------------------------------------------------------------------------------
sub formatPartitions {
my $o = shift;
foreach (@_) {
@@ -136,7 +129,6 @@ sub choosePackages($$$) {
my ($o, $packages, $compss) = @_;
}
-#------------------------------------------------------------------------------
sub beforeInstallPackages {
my ($o) = @_;
@@ -207,7 +199,9 @@ sub printerConfig {
printer::configure_queue($o->{printer});
}
}
+
#------------------------------------------------------------------------------
+my @etc_pass_fields = qw(name password uid gid realname home shell);
sub setRootPassword($) {
my ($o) = @_;
my %u = %{$o->{superuser}};