summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog7
-rw-r--r--perl-install/Xconfig.pm1
-rw-r--r--perl-install/Xconfigurator.pm2
-rw-r--r--perl-install/fsedit.pm3
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_any.pm18
-rw-r--r--perl-install/install_steps.pm9
-rw-r--r--perl-install/install_steps_interactive.pm3
-rw-r--r--perl-install/pkgs.pm13
-rw-r--r--perl-install/share/compssList4
-rw-r--r--perl-install/share/compssUsers3
11 files changed, 45 insertions, 20 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 0a26b3797..aed10f757 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,10 @@
+2000-05-05 Pixel <pixel@mandrakesoft.com>
+
+ * pkgs.pm (correctSize): updated for 7.1
+
+ * install_any.pm (getAvailableSpace): move the removing of
+ $minAvailableSize here.
+
2000-05-04 Pixel <pixel@mandrakesoft.com>
* install2.pm (configurePrinter): give clicked to printerConfig
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm
index d87e32d88..925c836e0 100644
--- a/perl-install/Xconfig.pm
+++ b/perl-install/Xconfig.pm
@@ -120,6 +120,7 @@ sub getinfoFromDDC {
$? == 0 or return $o;
$o->{card}{memory} ||= to_int($m);
+ local $_;
while (($_ = shift @l) ne "\n") {
my ($depth, $x, $y) = split;
$depth = int(log($depth) / log(2));
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index ce37bdacf..3f7d6e00b 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -223,7 +223,7 @@ sub monitorConfiguration(;$$) {
if ($useFB) {
#- use smallest values for monitor configuration since FB is used,
#- BIOS initialize graphics, current X server will not refuse that.
- $monitor->{hsyncrange} ||= $hsyncranges[0];
+ $monitor->{hsyncrange} ||= $hsyncranges[1];
$monitor->{vsyncrange} ||= $vsyncranges[0];
add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown" });
} else {
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 2c5e90aa2..844762905 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -177,6 +177,7 @@ sub suggest_part($$$;$) {
my ($hd, $part, $hds, $suggestions) = @_;
$suggestions ||= \@suggestions;
+
my $has_swap = grep { isSwap($_) } get_fstab(@$hds);
my ($best, $second) =
@@ -184,7 +185,7 @@ sub suggest_part($$$;$) {
grep { $_->{size} <= ($part->{maxsize} || $part->{size}) }
grep { !has_mntpoint($_->{mntpoint}, $hds) || isSwap($_) && !$has_swap }
grep { !$_->{hd} || $_->{hd} eq $hd->{device} }
- grep { !$part->{type} || $part->{type} == $_->{type} }
+ grep { !$part->{type} || $part->{type} == $_->{type} || isTrueFS($part->{type}) && isTrueFS($_->{type}) }
@$suggestions or return;
#- if (arch() =~ /^i386/) {
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 37b0f75d2..cd3d7c464 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -436,7 +436,7 @@ sub configureTimezone {
#------------------------------------------------------------------------------
sub configureServices { $::expert and $o->servicesConfig }
#------------------------------------------------------------------------------
-sub configurePrinter { $o->printerConfig }
+sub configurePrinter { $o->printerConfig($_[0]) }
#------------------------------------------------------------------------------
sub setRootPassword {
return if $o->{isUpgrade};
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a9696327a..cff5446ab 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -227,13 +227,25 @@ sub shells($) {
sub getAvailableSpace {
my ($o) = @_;
- do { $_->{mntpoint} eq '/usr' and return int($_->{size} * 512 / 1.07) } foreach @{$o->{fstab}};
- do { $_->{mntpoint} eq '/' and return int($_->{size} * 512 / 1.07) } foreach @{$o->{fstab}};
+ #- make sure of this place to be available for installation, this could help a lot.
+ #- currently doing a very small install use 36Mb of postinstall-rpm, but installing
+ #- these packages may eat up to 90Mb (of course not all the server may be installed!).
+ #- 50mb may be a good choice to avoid almost all problem of insuficient space left...
+ my $minAvailableSize = 50 * sqr(1024);
+
+ int getAvailableSpace_raw($o->{fstab}) * 512 / 1.07 - $minAvailableSize;
+}
+
+sub getAvailableSpace_raw {
+ my ($fstab) = @_;
+
+ do { $_->{mntpoint} eq '/usr' and return $_->{size} } foreach @$fstab;
+ do { $_->{mntpoint} eq '/' and return $_->{size} } foreach @$fstab;
if ($::testing) {
my $nb = 650;
log::l("taking ${nb}MB for testing");
- return $nb << 20;
+ return $nb << 11;
}
die "missing root partition";
}
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 06b486091..503e30bf0 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -2,7 +2,7 @@ package install_steps;
use diagnostics;
use strict;
-use vars qw($minAvailableSize @filesToSaveForUpgrade);
+use vars qw(@filesToSaveForUpgrade);
#-######################################################################################
#- misc imports
@@ -24,11 +24,6 @@ use network;
use any;
use fs;
-#- make sure of this place to be available for installation, this could help a lot.
-#- currently doing a very small install use 36Mb of postinstall-rpm, but installing
-#- these packages may eat up to 90Mb (of course not all the server may be installed!).
-#- 50mb may be a good choice to avoid almost all problem of insuficient space left...
-$minAvailableSize = 50 * sqr(1024);
@filesToSaveForUpgrade = qw(
/etc/ld.so.conf /etc/fstab /etc/hosts /etc/conf.modules
);
@@ -231,7 +226,7 @@ sub choosePackages {
#- make sure we kept some space left for available else the system may
#- not be able to start (xfs at least).
- my $available = install_any::getAvailableSpace($o) - $minAvailableSize;
+ my $available = install_any::getAvailableSpace($o);
my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024);
$available < $availableCorrected or $available = $availableCorrected;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2e6df5371..1e52a1147 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -666,12 +666,13 @@ _("Use NIS") => { val => \$nis, type => 'bool', text => _("yellow pages") },
}
) or return;
+ $o->{authentication}{NIS} &&= $nis;
$o->ask_from_entries_ref('',
_("Authentification NIS"),
[ _("NIS Domain"), _("NIS Server") ],
[ \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}),
{ val => \$o->{authentication}{NIS}, list => ["broadcast"] },
- ]) if $nis;
+ ]) if $nis;
install_steps::setRootPassword($o);
}
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index b592f140a..a41d235cd 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -169,10 +169,11 @@ sub extractHeaders($$$) {
}
#- size and correction size functions for packages.
-my $A = 20471;
-my $B = 16258;
-sub correctSize { ($A - $_[0]) * $_[0] / $B } #- size correction in MB.
-sub invCorrectSize { $A / 2 - sqrt(max(0, sqr($A) - 4 * $B * $_[0])) / 2 }
+my $A = -1.922e-05;
+my $B = 1.18411;
+my $C = 33.2;
+sub correctSize { ($A * $_[0] + $B) * $_[0] + $C } #- size correction in MB.
+sub invCorrectSize { (sqrt(sqr($B) + 4 * $A * ($_[0] - $C)) - $B) / 2 / $A }
sub selectedSize {
my ($packages) = @_;
@@ -432,7 +433,7 @@ sub getOtherDeps($$) {
$pkg or log::l("ignoring package $name-$version-$release in depslist is not in hdlist"), next;
$version eq packageVersion($pkg) and $release eq packageRelease($pkg)
- or log::l("warning package $name-$version-$release in depslist mismatch version or release in hdlist"), next;
+ or log::l("warning package $name-$version-$release in depslist mismatch version or release in hdlist ($version ne ", packageVersion($pkg), " or $release ne ", packageRelease($pkg), ")"), next;
my $index = scalar @{$packages->[1]};
$index >= $pkg->{medium}{min} && $index <= $pkg->{medium}{max}
@@ -479,7 +480,7 @@ sub getDeps($) {
$pkg or
log::l("ignoring $name-$version-$release in depslist is not in hdlist"), $mismatch = 1, next;
$version eq packageVersion($pkg) and $release eq packageRelease($pkg) or
- log::l("ignoring $name-$version-$release in depslist mismatch version or release in hdlist"), $mismatch = 1, next;
+ log::l("ignoring $name-$version-$release in depslist mismatch version or release in hdlist ($version ne ", packageVersion($pkg), " or $release ne ", packageRelease($pkg), ")"), $mismatch = 1, next;
$pkg->{sizeDeps} = $sizeDeps;
diff --git a/perl-install/share/compssList b/perl-install/share/compssList
index c8f99e603..fac386269 100644
--- a/perl-install/share/compssList
+++ b/perl-install/share/compssList
@@ -1267,6 +1267,7 @@ citrix-icaclient-en 40 -70 -40
citrix-icaclient-fr 40 -70 -40
citrix-icaclient-ge 40 -70 -40
citrix-icaclient-sp 40 -70 -40
+eagle 15 0 25
printpro 0 0 0
printpro-agfa 0 0 0
printpro-alps 0 0 0
@@ -1311,9 +1312,12 @@ heroes3-demo 40 0 25
rt2-demo 40 0 25
MainActor 35 0 0
mupad 30 0 20
+mtv 45 0 35
+mtv-fullscrean-extension 45 0 35
NetPartitioner 0 25 0
omnimark 0 0 35
rebol-core 0 0 30
+SDL11 0 0 0
staroffice-de 30 -90 -30
staroffice-en 30 -90 -30
staroffice-fr 30 -90 -30
diff --git a/perl-install/share/compssUsers b/perl-install/share/compssUsers
index 8b118756c..8688a34b6 100644
--- a/perl-install/share/compssUsers
+++ b/perl-install/share/compssUsers
@@ -40,12 +40,15 @@ Office
Multimedia Support
Sound
Video
+ Applications/Multimedia
Games
Games
+ Amusements/Games
Documentation
Books
Databases
Databases
+ Applications/Databases