From 995ea591c5076d0a1f809f4b0c5d919db7510c88 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 6 Aug 2000 23:22:23 +0000 Subject: no_comment --- perl-install/ChangeLog | 20 ++++++++++++ perl-install/fs.pm | 29 ++++++++++++++++++ perl-install/install_any.pm | 64 ++++++++++++++++++++++++++++++--------- perl-install/install_steps.pm | 53 ++++++++++++++++++-------------- perl-install/install_steps_gtk.pm | 12 ++++---- perl-install/resize_fat/main.pm | 17 +++++++---- 6 files changed, 145 insertions(+), 50 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 85d13b581..e2e37708b 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,5 +1,25 @@ 2000-08-06 Pixel + * interactive.pm (ask_from_listf): created this GREAT function + that should have been created a long time ago. + * any.pm, install_any.pm, install_steps_gtk.pm, + install_steps_interactive.pm: a lot of rewrite to use the new + ask_from_listf, a lot of nice cleanup! + + * fs.pm (df): created, returns the free space of the part. Save it + in $part->{free} + + * install_steps_gtk.pm (doPartitionDisks): ensure the closing of + the device in case of error + * resize_fat/main.pm (new): ensure the closing of the device in + case of error + + * install_any.pm (partitionWizard): the great partitioning wizard + is created. Not finished yet (nor called from anywhere) + + * install_steps.pm (doPartitionDisksLnx4win): created function out + of doPartitionDisks + * install_steps_gtk.pm (installPackages): removed the displaying of size to install (people are bothered cuz not the same size) diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 9d3c38049..3d9628071 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -305,6 +305,35 @@ sub umount_all($;$) { } } +sub df { + my ($part, $prefix) = @_; + my $dir = "/tmp/tmp_fs_df"; + + return $part->{free} if exists $part->{free}; + + if ($part->{isMounted}) { + $dir = ($prefix || '') . $part->{mntpoint}; + } elsif ($part->{notFormatted} && !$part->{isFormatted}) { + return; #- won't even try! + } else { + mkdir $dir; + eval { mount($part->{device}, $dir, type2fs($part->{type}), 'readonly') }; + if ($@) { + unlink $dir; + return; + } + } + my (undef, $free) = common::df($dir); + + if (!$part->{isMounted}) { + umount($dir); + unlink($dir) + } + + $part->{free} = 2 * $free if defined $free; + $part->{free}; +} + #- do some stuff before calling write_fstab sub write($$$$) { my ($prefix, $fstab, $manualFstab, $useSupermount) = @_; diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index e972e8c5a..5bd607909 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -873,27 +873,61 @@ sub generate_ks_cfg { sub partitionWizard { my ($o, $hds, $fstab, $readonly) = @_; + my $wizlog; my @solutions; + my $min_linux = 500 << 11; + my $min_freewin = 100 << 11; + # each solutions is a [ text, function ], where the function retunrs true if succeeded - if (fsedit::free_space(@$hds) > 500 << 11 && !$readonly) { + if (fsedit::free_space(@$hds) > $min_linux and !$readonly) { push @solutions, [ _("Use free space"), sub { fsedit::auto_allocate($hds, $o->{partitions}); 1 } ]; - } elsif (my @l = grep { isTrueFS($_) } @$fstab) { + } else { + $wizlog .= _("Not enough free space to allocate new partitions"); + } + + if (my @l = grep { isTrueFS($_) } @$fstab) { push @solutions, [ _("Use existing partition"), sub { $o->ask_mntpoint_s($o->{fstab}) } ]; - } elsif (@l = grep { isFat($_) } @$fstab) { + } else { + $wizlog .= _("There is no existing linux partition to use"); + } + + if (my @l = grep { isFat($_) } @$fstab) { + fs::df($_) foreach @l; + my @ok_forloopback = sort { $b->{free} <=> $a->{free} } grep { $_->{free} > $min_linux + $min_freewin } @l + or $wizlog .= _("There is not enough space left on the FAT partition(s) (or the FAT partition is corrupted)"); + + push @solutions, [ _("Use the FAT partition for loopback"), + sub { $o->doPartitionDisksLnx4win(@ok_forloopback) } ]; + + my @ok_forresizing = grep { + !$readonly && eval { + my $resize_fat = resize_fat::main->new($_->{device}, devices::make($_->{device})); + my $min_win = $resize_fat->min_size; + $_->{size} > $min_linux + $min_freewin + $min_win; + } && !$@; + } @ok_forloopback or $wizlog .= _("The FAT resizer can't find enough space left on the FAT partition(s)"); + } else { + $wizlog .= _("There is no FAT partitions to resize or to use as loopback"); + } + + if (@$fstab && !$readonly) { + require diskdrake; + push @solutions, + [ _("Take over the hard drive (beware!)"), + sub { + my $hd = $o->ask_from_listf('', _("You have more than one hard drive, which one do you install linux on?"), + \&partition_table_raw::description, @$hds) or return; + $o->ask_okcancel('', _("All existing partitions and their data will be lost on drive %s", $hd->{device})) or return; + partition_table_raw::zero_MBR($hd); + fsedit::auto_allocate($hds, $o->{partitions}); + 1; + } ]; + } + if (!$readonly) { + push @solutions, + [ _("Use diskdrake"), sub { diskdrake::main($hds, $o->{raid}, interactive_gtk->new, $o->{partitions}); 1 } ]; } - require diskdrake; - push @solutions, - [ _("Take over the hard drive (beware!)"), - sub { - my $hd = $o->ask_from_listf('', _("You have more than one hard drive, which one do you install linux on?"), - \&partition_table_raw::description, @$hds) or return; - $o->ask_okcancel('', _("All existing partitions and their data will be lost on drive %s", $hd->{device})) or return; - partition_table_raw::zero_MBR($hd); - fsedit::auto_allocate($hds, $o->{partitions}); - 1; - } ], - [ _("Use diskdrake"), sub { diskdrake::main($hds, $o->{raid}, interactive_gtk->new, $o->{partitions}); 1 } ], } 1; diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 9b3b9b8db..2b7c44417 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -127,36 +127,43 @@ sub doPartitionDisks { my ($o, $hds) = @_; if ($o->{lnx4win}) { - my @l = sort { $a->{device_windobe} cmp $b->{device_windobe} } - grep { isFat($_) } fsedit::get_fstab(@{$o->{hds}}) or die "wow, lnx4win with no fat partitions! hard times :("; - my $real_part = $o->doPartitionDisksLnx4winDev(\@l) || $l[0]; + my @fat_parts = grep { isFat($_) } fsedit::get_fstab(@$hds) or die "wow, lnx4win with no fat partitions! hard times :("; + doPartitionDisksLnx4win($o, @fat_parts); + } else { + unless ($::testing) { + partition_table::write($_) foreach @$hds; + } + } +} + +#------------------------------------------------------------------------------ +sub doPartitionDisksLnx4win { + my ($o, @fat_parts) = @_; - my $handle = loopback::inspect($real_part, '', 'rw') or die _("This partition can't be used for loopback"); - my $size = loopback::getFree($handle->{dir}, $real_part); + my $real_part = $o->doPartitionDisksLnx4winDev(@fat_parts) or return; - my $max_linux = 1000 << 11; $max_linux *= 10 if $::expert; - my $min_linux = 300 << 11; $min_linux /= 3 if $::expert; - my $min_freewin = 100 << 11; $min_freewin /= 10 if $::expert; + my $handle = loopback::inspect($real_part, '', 'rw') or die _("This partition can't be used for loopback"); + my $size = loopback::getFree($handle->{dir}, $real_part); - my $swap = { type => 0x82, loopback_file => '/lnx4win/swapfile', mntpoint => 'swap', size => 64 << 11, device => $real_part, notFormatted => 1 }; - my $root = { type => 0x83, loopback_file => '/lnx4win/linuxsys.img', mntpoint => '/', size => 0, device => $real_part, notFormatted => 1 }; - $root->{size} = min($size - $swap->{size} - $min_freewin, $max_linux); - log::l("lnx4win $root->{size} <= $min_linux (minlinux), $size (minavail) - $swap->{size} (swapsize) - $min_freewin (minfreewin), $max_linux (maxlinux)"); - $root->{size} > $min_linux or die "not enough room on that partition for lnx4win"; + my $max_linux = 1000 << 11; $max_linux *= 10 if $::expert; + my $min_linux = 300 << 11; $min_linux /= 3 if $::expert; + my $min_freewin = 100 << 11; $min_freewin /= 10 if $::expert; + + my $swap = { type => 0x82, loopback_file => '/lnx4win/swapfile', mntpoint => 'swap', size => 64 << 11, device => $real_part, notFormatted => 1 }; + my $root = { type => 0x83, loopback_file => '/lnx4win/linuxsys.img', mntpoint => '/', size => 0, device => $real_part, notFormatted => 1 }; + $root->{size} = min($size - $swap->{size} - $min_freewin, $max_linux); + log::l("lnx4win $root->{size} <= $min_linux (minlinux), $size (minavail) - $swap->{size} (swapsize) - $min_freewin (minfreewin), $max_linux (maxlinux)"); + $root->{size} > $min_linux or die "not enough room on that partition for lnx4win"; - $o->doPartitionDisksLnx4winSize(\$root->{size}, \$swap->{size}, $size - 2 * $swap->{size}, 2 * $swap->{size}); + $o->doPartitionDisksLnx4winSize(\$root->{size}, \$swap->{size}, $size - 2 * $swap->{size}, 2 * $swap->{size}) or return; - unlink "$handle->{dir}$_" foreach "/lnx4win/swapfile", "/lnx4win/linuxsys.img"; + unlink "$handle->{dir}$_" foreach "/lnx4win/swapfile", "/lnx4win/linuxsys.img"; - push @{$real_part->{loopback}}, $root, $swap; - } else { - unless ($::testing) { - partition_table::write($_) foreach @$hds; - } - } + push @{$real_part->{loopback}}, $root, $swap; + 1; } -sub doPartitionDisksLnx4winDev {} -sub doPartitionDisksLnx4winSize {} +sub doPartitionDisksLnx4winDev { my ($o, $fat_part) = @_; $fat_part } +sub doPartitionDisksLnx4winSize { 1 } #------------------------------------------------------------------------------ diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 77ad2c850..0e613a620 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -240,6 +240,7 @@ When sure, press Ok."))) { partition_table::adjust_main_extended($hd); local *log::l = sub { $w->set(join(' ', @_)) }; + my $b = before_leaving { close $resize_fat->{fd} }; eval { $resize_fat->resize($part->{size}) }; if ($@) { $part->{size} = $oldsize; @@ -269,14 +270,14 @@ When sure, press Ok."))) { } sub doPartitionDisksLnx4winDev { - my ($o, $l) = @_; - return if $::beginner; - $o->ask_from_listf('', _("Which partition do you want to use to put Linux4Win?"), \&partition_table_raw::description, @$l); + my ($o, @l) = @_; + return $l[0] if $::beginner; + $o->ask_from_listf('', _("Which partition do you want to use to put Linux4Win?"), \&partition_table_raw::description, \@l); } sub doPartitionDisksLnx4winSize { my ($o, $root_size, $swap_size, $max_root_size, $max_swap_size) = @_; - return if $::beginner; + return 1 if $::beginner; my $w = my_gtk->new(''); @@ -301,8 +302,7 @@ _("Choose the sizes"), $w->main(sub { $$root_size = $root_spin->get_value_as_int << 11; $$swap_size = $swap_spin->get_value_as_int << 11; - }); - + }); } #------------------------------------------------------------------------------ diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm index 0c94586ec..c3eee9381 100644 --- a/perl-install/resize_fat/main.pm +++ b/perl-install/resize_fat/main.pm @@ -41,12 +41,17 @@ sub new($$$) { my ($type, $device, $fs_name) = @_; my $fs = { device => $device, fs_name => $fs_name } ; - resize_fat::io::open($fs); - resize_fat::boot_sector::read($fs); - $resize_fat::isFAT32 and eval { resize_fat::info_sector::read($fs) }; - resize_fat::fat::read($fs); - resize_fat::any::flag_clusters($fs); - + eval { + resize_fat::io::open($fs); + resize_fat::boot_sector::read($fs); + $resize_fat::isFAT32 and eval { resize_fat::info_sector::read($fs) }; + resize_fat::fat::read($fs); + resize_fat::any::flag_clusters($fs); + }; + if ($@) { + close $fs->{fd}; + die; + } bless $fs, $type; } -- cgit v1.2.1