summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-03-23 17:30:36 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-03-23 17:30:36 +0000
commited76955e239d467e996ea3d20e8ae14c13db0253 (patch)
treef2166989b89a195fb7c55ec83bde252793f8d106 /perl-install/install_steps_newt.pm
parent70e35bb3512a6b6022d784ccfcc752148d7cece7 (diff)
downloaddrakx-backup-do-not-use-ed76955e239d467e996ea3d20e8ae14c13db0253.tar
drakx-backup-do-not-use-ed76955e239d467e996ea3d20e8ae14c13db0253.tar.gz
drakx-backup-do-not-use-ed76955e239d467e996ea3d20e8ae14c13db0253.tar.bz2
drakx-backup-do-not-use-ed76955e239d467e996ea3d20e8ae14c13db0253.tar.xz
drakx-backup-do-not-use-ed76955e239d467e996ea3d20e8ae14c13db0253.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_newt.pm')
-rw-r--r--perl-install/install_steps_newt.pm22
1 files changed, 20 insertions, 2 deletions
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index b35d47e9d..015de1c05 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -11,6 +11,8 @@ use vars qw(@ISA);
#-######################################################################################
use install_steps_interactive;
use interactive_newt;
+use install_any;
+use devices;
use common qw(:common);
my $banner = __();
@@ -29,11 +31,27 @@ sub new($$) {
banner('');
Newt::PushHelpLine(_(" <Tab>/<Alt-Tab> between elements | <Space> selects | <F12> next screen "));
- $o->{partitioning}{readonly} = 1; #- needed til diskdrake is graphic only...
-
(bless {}, ref $type || $type)->SUPER::new($o);
}
+sub doPartitionDisks($$) {
+ my ($o, $hds, $raid) = @_;
+
+ Newt::Suspend();
+ foreach (@$hds) {
+ print
+_("You can now partition your %s hard drive
+When you are done, don't forget to save using `w'", $_->{device});
+ print "\n\n";
+ my $pid = fork or exec "fdisk", devices::make($_->{device});
+ waitpid($pid, 0);
+ }
+ Newt::Resume();
+
+ install_any::getHds($o);
+ $o->ask_mntpoint_s($o->{fstab});
+}
+
sub enteringStep {
my ($o, $step) = @_;
$o->SUPER::enteringStep($step);