diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-03-23 17:30:36 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-03-23 17:30:36 +0000 |
| commit | ed76955e239d467e996ea3d20e8ae14c13db0253 (patch) | |
| tree | f2166989b89a195fb7c55ec83bde252793f8d106 /perl-install/install_steps_newt.pm | |
| parent | 70e35bb3512a6b6022d784ccfcc752148d7cece7 (diff) | |
| download | drakx-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.pm | 22 |
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); |