summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-06-07 18:20:40 +0000
committerFrancois Pons <fpons@mandriva.com>2000-06-07 18:20:40 +0000
commit234684d7e2fcca452ee5c0bedd0e82c15a3dc788 (patch)
tree60b1a1022a726c0af371559d4d40b2a062da8162 /perl-install
parent0d81dab56418bb5bac57ae4f6b41d508da2180ec (diff)
downloaddrakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar
drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar.gz
drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar.bz2
drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.tar.xz
drakx-backup-do-not-use-234684d7e2fcca452ee5c0bedd0e82c15a3dc788.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog11
-rw-r--r--perl-install/install_steps_interactive.pm4
-rw-r--r--perl-install/install_steps_newt.pm2
-rw-r--r--perl-install/modules.pm9
-rw-r--r--perl-install/pkgs.pm2
-rw-r--r--perl-install/sbus_probing/main.pm3
-rw-r--r--perl-install/share/diskdrake.rc1
7 files changed, 25 insertions, 7 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 5ea947211..76c2f6415 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,14 @@
+2000-06-07 François Pons <fpons@mandrakesoft.com>
+
+ * diskdrake.pm: added SunOS partition as blue for diskdrake.
+ * install_steps_interactive.pm: make sure of no division by zero may
+ happen.
+ * install_steps_newt.pm: added WARNING for fdisk on sparc*.
+ * modules.pm: make sure of loading sd_mod module after any scsi module.
+ * sbus_probing/main.pm: insmod openprom before trying sbus probing.
+ * pkgs.pm: corrected by use of parabolic solution for size approximation.
+ * silo.pm: try with "silo -p 2 -t" if "silo -t" has failed due to bad probe.
+
2000-06-05 Pablo Saratxaga <pablo@mandrakesoft.com>
* install_steps.pm,lang.pm: added load_console_font, to load the
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 93ee9002a..7ea888904 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -289,7 +289,7 @@ sub choosePackages {
my @l = values %{$packages->[0]};
my @flags = map { pkgs::packageFlagSelected($_) } @l;
pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $min_mark, 0, $o->{installClass});
- my $max_size = pkgs::selectedSize($packages);
+ my $max_size = 1 + pkgs::selectedSize($packages); #- avoid division by zero.
mapn { pkgs::packageSetFlagSelected(@_) } \@l, \@flags;
#- if (!$::beginner && $max_size > $availableC) {
@@ -1165,7 +1165,7 @@ sub load_thiskind {
sub setup_thiskind {
my ($o, $type, $auto, $at_least_one) = @_;
- return if arch() eq "ppc";
+ return if arch() eq "ppc";
my @l;
my $allow_probe = !$::expert || $o->ask_yesorno('', _("Try to find %s devices?", "PCI" . (arch() =~ /sparc/ && "/SBUS")), 1);
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index 015de1c05..4cc5fd9a6 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -42,6 +42,8 @@ sub doPartitionDisks($$) {
print
_("You can now partition your %s hard drive
When you are done, don't forget to save using `w'", $_->{device});
+ arch() =~ /sparc/ and print
+_("\nBE CAREFULL NOT TO USE CYLINDER 0 ELSE YOUR PARTITION TABLE WILL BE DESTROYED!");
print "\n\n";
my $pid = fork or exec "fdisk", devices::make($_->{device});
waitpid($pid, 0);
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6eb380929..c1bdb2cfc 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -127,13 +127,13 @@ arch() =~ /^sparc/ ? (
"sim710" => "sim710",
"sym53c416" => "sym53c416",
"tmscsim" => "tmscsim",
+ "scsi_mod" => "scsi_mod",
),
"aic7xxx" => "Adaptec 2740, 2840, 2940",
"ncr53c8xx" => "NCR 53C8xx PCI",
# "pci2000" => "Perceptive Solutions PCI-2000", # TODO
"qlogicisp" => "Qlogic ISP",
"sym53c8xx" => "Symbios 53c8xx",
- "scsi_mod" => "scsi_mod",
"sd_mod" => "sd_mod",
"ide-mod" => "ide-mod",
"ide-probe" => "ide-probe",
@@ -388,7 +388,10 @@ sub load {
if ($type) {
add_alias('usb-interface', $name) if $type =~ /SERIAL_USB/i;
- add_alias('scsi_hostadapter', $name) if $type eq "scsi" || $type eq $type_aliases{scsi};
+ if ($type eq "scsi" || $type eq $type_aliases{scsi}) {
+ add_alias('scsi_hostadapter', $name);
+ load("sd_mod");
+ }
}
$conf{$name}{options} = join " ", @options if @options;
}
@@ -541,8 +544,6 @@ sub load_thiskind($;&$) {
my @devs = (@pcidevs, @sbusdevs, @pcmciadevs);
- load("sd_mod") if arch() !~ /sparc/ && $type eq 'scsi' && @devs;
-
my %devs; foreach (@devs) {
my ($text, $mod) = @$_;
pci_probing::main::check($mod) or next;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 60b856b83..dff11bea2 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -191,7 +191,7 @@ sub extractHeaders($$$) {
my $A = -1.922e-05;
my $B = 1.18411;
my $C = 23.2; #- 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;
+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.
diff --git a/perl-install/sbus_probing/main.pm b/perl-install/sbus_probing/main.pm
index e5c3f1596..b1fce96f7 100644
--- a/perl-install/sbus_probing/main.pm
+++ b/perl-install/sbus_probing/main.pm
@@ -2,6 +2,7 @@ package sbus_probing::main;
use c;
use log;
+use modules;
my %sbus_table_network = (
hme => [ "Sun Happy Meal Ethernet", "sunhme" ],
@@ -133,6 +134,7 @@ sub check {
sub probe($) {
my ($type) = @_;
+ eval { modules::load("openprom") };
my $root_node = c::prom_open();
my @l;
@@ -145,6 +147,7 @@ sub probe($) {
sub matching_desc($;$) {
my ($regexp) = @_;
+ eval { modules::load("openprom") };
my $root_node = c::prom_open();
my @l;
diff --git a/perl-install/share/diskdrake.rc b/perl-install/share/diskdrake.rc
index e83ed1025..f826d04a9 100644
--- a/perl-install/share/diskdrake.rc
+++ b/perl-install/share/diskdrake.rc
@@ -31,6 +31,7 @@ widget "*Ext2*" style "red"
widget "*Linux swap*" style "green"
widget "*Swap*" style "green"
widget "*FAT*" style "blue"
+widget "*SunOS*" style "blue"
widget "*NT NTFS*" style "blue"
widget "*Empty*" style "white"
widget "*Other*" style "font"