From 041bce7f1ab685a4290865e4eb2c2f5d2aaac285 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 23 Sep 2000 23:30:54 +0000 Subject: no_comment --- perl-install/ChangeLog | 22 ++++++++++++++++++++++ perl-install/any.pm | 3 --- perl-install/fs.pm | 1 + perl-install/install2.pm | 1 + perl-install/install_any.pm | 4 ++-- perl-install/install_steps.pm | 9 +++++++-- perl-install/partition_table.pm | 1 + perl-install/pkgs.pm | 7 +++---- perl-install/services.pm | 2 +- 9 files changed, 38 insertions(+), 12 deletions(-) diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 35940d19b..6c2346a73 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,25 @@ +2000-09-24 Pixel + + * fs.pm (umount): remove the ending "/" in the mntpoint. Otherwise + the mtab updating fails to update properly + +2000-09-23 Pixel + + * partition_table.pm (active): set the hd dirty + + * services.pm (services): patched to handle xinetd sub-services + + * install2.pm (formatPartitions): unset choosePackages done, so + that choosePackages is done again + + * install_steps.pm (doPartitionDisksBefore): close pkgs::LOG and + umount /mnt/proc so that going back to partitioning doesn't fail + because /mnt can't be umounted. + umount_all twice after a sleep (HACK) + + * pkgs.pm: updated $A, $B and $C for 7.2 (used by correctSize and + invCorrectSize) + 2000-09-23 dam's * netconnect.pm (isdn_detect): log NET_DEVICE when isdn too. diff --git a/perl-install/any.pm b/perl-install/any.pm index e4eed4c78..ca533b787 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -251,12 +251,9 @@ sub setAutologin { sub writeandclean_ldsoconf { my ($prefix) = @_; my $file = "$prefix/etc/ld.so.conf"; - - log::l("before: ", cat_($file)); output $file, grep { !m|^(/usr)?/lib$| } #- no need to have /lib and /usr/lib in ld.so.conf uniq cat_($file), "/usr/X11R6/lib\n"; - log::l("after: ", cat_($file)); } sub shells { diff --git a/perl-install/fs.pm b/perl-install/fs.pm index c29faae8a..5b13ea6a6 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -223,6 +223,7 @@ sub mount($$$;$) { #- takes the mount point to umount (can also be the device) sub umount($) { my ($mntpoint) = @_; + $mntpoint =~ s|/$||; log::l("calling umount($mntpoint)"); syscall_('umount', $mntpoint) or die _("error unmounting %s: %s", $mntpoint, "$!"); diff --git a/perl-install/install2.pm b/perl-install/install2.pm index fa074531b..03e0b591b 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -270,6 +270,7 @@ sub doPartitionDisks { } sub formatPartitions { + $o->{steps}{choosePackages}{done} = 0; unless ($o->{isUpgrade}) { $o->choosePartitionsToFormat($o->{fstab}); $o->formatMountPartitions($o->{fstab}) unless $::testing; diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index d992302a8..7a6814d03 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -253,7 +253,7 @@ sub getAvailableSpace_mounted { my ($prefix) = @_; my $dir = -d "$prefix/usr" ? "$prefix/usr" : "$prefix"; my (undef, $free) = common::df($dir) or return; - log::l("getAvailableSpace_mounted $free"); + log::l("getAvailableSpace_mounted $free KB"); $free * 1024 || 1; } sub getAvailableSpace_raw { @@ -694,7 +694,7 @@ sub getHds { sub log_sizes { my ($o) = @_; my @df = common::df($o->{prefix}); - log::l(sprintf "Installed: %dMB(df), %dMB(rpm)", ($df[0] - $df[1]) / 1024, sum(`rpm --root $o->{prefix} -qa --queryformat "%{size}\n"`) / sqr(1024)); + log::l(sprintf "Installed: %dMB(df), %dMB(rpm)", ($df[0] - $df[1]) / 1024, sum(`rpm --root $o->{prefix} -qa --queryformat "%{size}\n"`) / sqr(1024)) if -x "$o->{prefix}/bin/rpm"; } 1; diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 3845469b8..ab087233a 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -131,7 +131,12 @@ sub doPartitionDisksBefore { install_any::getFile("XXX"); #- close still opened filehandle eval { fs::umount("/tmp/hdimage") }; } - eval { fs::umount_all($o->{fstab}, $o->{prefix}) } if $o->{fstab} && !$::testing && !$::live; + eval { + close pkgs::LOG; + eval { fs::umount("$o->{prefix}/proc") }; + eval { fs::umount_all($o->{fstab}, $o->{prefix}) }; + eval { sleep 1; fs::umount_all($o->{fstab}, $o->{prefix}) } if $@; #- HACK + } if $o->{fstab} && !$::testing && !$::live; $o->{raid} ||= {}; } @@ -249,7 +254,7 @@ sub choosePackages { #- not be able to start (xfs at least). my $available = install_any::getAvailableSpace($o); my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024); - log::l("available size $available (corrected $availableCorrected)"); + log::l(sprintf "available size %dMB (corrected %dMB)", $available / sqr(1024), $availableCorrected / sqr(1024)); foreach (values %{$packages->[0]}) { pkgs::packageSetFlagSkip($_, 0); diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index d7d2c823f..e1b5b796a 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -486,6 +486,7 @@ sub active($$) { $_->{active} = 0 foreach @{$hd->{primary}{normal}}; $part->{active} = 0x80; + hd->{isDirty} = 1; } diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 62107d72c..d71ff768a 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -195,9 +195,9 @@ sub extractHeaders($$$) { #- a limit to change the approximation to use a linear one. #- for information above this point, we have the corrected size below the #- original size wich is absurd, this point is named D below. -my $A = -1.922e-05; -my $B = 1.18411; -my $C = 13.2; #- doesn't take hdlist's into account as getAvailableSpace will do it. +my $A = -1.21568e-05; +my $B = 1.21561; +my $C = -23.9889; #- doesn't take hdlist's into account as getAvailableSpace will do it. my $D = (-sqrt(sqr($B - 1) - 4 * $A * $C) - ($B - 1)) / 2 / $A; #- $A is negative so a positive solution is with - sqrt ... sub correctSize { $_[0] < $D ? ($A * $_[0] + $B) * $_[0] + $C : $_[0] } #- size correction in MB. sub invCorrectSize { $_[0] < $D ? (sqrt(sqr($B) + 4 * $A * ($_[0] - $C)) - $B) / 2 / $A : $_[0]; } #- size correction in MB. @@ -652,7 +652,6 @@ sub readCompssList { my %done; foreach (@$langs) { - log::l("readCompssList lang: $_"); my $p = packageByName($packages, "locales-$_") or next; foreach ($p, @{$p->{provides} || []}, map { packageByName($packages, $_) } @{$by_lang{$_} || []}) { next if !$_ || $done{$_}; $done{$_} = 1; diff --git a/perl-install/services.pm b/perl-install/services.pm index fd1ea51ce..319e4ff49 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -88,7 +88,7 @@ xfs => __("Starts and stops the X Font Server at boot time and shutdown."), sub services { my ($prefix) = @_; my $cmd = $prefix ? "chroot $prefix" : ""; - my @l = map { [ /(\S+)/, /:on/ ] } sort `LANGUAGE=C $cmd chkconfig --list`; + my @l = map { [ /([^\s:]+)/, /\bon\b/ ] } grep { !/:$/ } sort `LANGUAGE=C $cmd chkconfig --list`; [ map { $_->[0] } @l ], [ mapgrep { $_->[1], $_->[0] } @l ]; } -- cgit v1.2.1