summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-16 22:00:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-16 22:00:54 +0000
commita8b73def5ea962a0438c9b3058b626630dbe444c (patch)
treeb13f07cc1612dfc90238bec521ad08c2705ca012 /perl-install
parentcbbd8617c7756c82b57544add01c777501ed944e (diff)
downloaddrakx-a8b73def5ea962a0438c9b3058b626630dbe444c.tar
drakx-a8b73def5ea962a0438c9b3058b626630dbe444c.tar.gz
drakx-a8b73def5ea962a0438c9b3058b626630dbe444c.tar.bz2
drakx-a8b73def5ea962a0438c9b3058b626630dbe444c.tar.xz
drakx-a8b73def5ea962a0438c9b3058b626630dbe444c.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog22
-rw-r--r--perl-install/install_steps.pm5
-rw-r--r--perl-install/install_steps_interactive.pm9
-rw-r--r--perl-install/network.pm4
-rw-r--r--perl-install/printer.pm2
5 files changed, 32 insertions, 10 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 482625928..95d63bef0 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,25 @@
+2000-09-16 Pixel <pixel@mandrakesoft.com>
+
+ * install_steps_interactive.pm (choosePartitionsToFormat): move
+ the setting of toFormat before asking for bad blocks, seems to fix
+ things?? weird :-/
+
+ * network.pm (miscellaneousNetwork): fix the setting of focus on
+ error (tx2Thomas Poindessous :)
+
+ * install_steps_interactive.pm (configurePrinter): changed
+ "Cancel" to "None" (for Thomas Poindessous :)
+
+ * printer.pm (poll_ppd_base): max polling time raised from 10s to
+ 30s (for Till)
+
+ * install_steps.pm (ask_mntpoint_s): don't force partition type to
+ be ext2 (at least if it's a known fs) (for Warly)
+
+2000-09-15 DrakX <install@linux-mandrake.com>
+
+ * snapshot uploaded
+
2000-09-15 Pixel <pixel@mandrakesoft.com>
* install_steps_gtk.pm (set_help): save the help message displayed
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 61c3efcec..300a06ecb 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -181,9 +181,6 @@ sub ask_mntpoint_s {
#- TODO: set the mntpoints
- #- assure type is at least ext2
- (fsedit::get_root($fstab) || {})->{type} = 0x83;
-
my %m; foreach (@$fstab) {
my $m = $_->{mntpoint};
@@ -193,7 +190,7 @@ sub ask_mntpoint_s {
$m{$m} = 1;
#- in case the type does not correspond, force it to ext2
- $_->{type} = 0x83 if $m =~ m|^/| && !isFat($_);
+ $_->{type} = 0x83 if $m =~ m|^/| && !isFat($_) && !isTrueFS($_);
}
1;
}
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d679ca432..5b4930a91 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -278,6 +278,7 @@ sub choosePartitionsToFormat($$) {
return if $::beginner && 0 == grep { ! $_->{toFormat} } @l;
+ #- keep it temporary until the guy has accepted
my %toFormat = map { $_ => $_->{toFormat} || $_->{toFormatUnsure} } @l;
my %label;
@@ -290,11 +291,13 @@ sub choosePartitionsToFormat($$) {
$o->ask_many_from_list_ref('', _("Choose the partitions you want to format"),
[ map { $label{$_} } @l ],
[ map { \$toFormat{$_} } @l ]) or die "cancel";
+ #- ok now we can really set toFormat
+ $_->{toFormat} = $toFormat{$_} foreach @l;
+
@l = grep { $_->{toFormat} && !isLoopback($_) && !isReiserfs($_) } @l;
$o->ask_many_from_list_ref('', _("Check bad blocks?"),
[ map { $label{$_} } @l ],
[ map { \$_->{toFormatCheck} } @l ]) or goto &choosePartitionsToFormat if $::expert;
- $_->{toFormat} = $toFormat{$_} foreach @l;
}
@@ -583,9 +586,9 @@ sub configurePrinter {
$::expert or $o->{printer}{mode} ||= 'CUPS';
if ($::expert || !$o->{printer}{mode}) {
$o->{printer}{mode} = $o->ask_from_list_([''], _("Which printing system do you want to use?"),
- [ 'CUPS', 'lpr', __("Cancel") ],
+ [ 'CUPS', 'lpr', __("None") ],
);
- $o->{printer}{want} = $o->{printer}{mode} ne 'Cancel';
+ $o->{printer}{want} = $o->{printer}{mode} ne 'None';
$o->{printer}{want} or $o->{printer}{mode} = undef, return;
}
diff --git a/perl-install/network.pm b/perl-install/network.pm
index a98dce762..ddc601ef7 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -339,8 +339,8 @@ sub miscellaneousNetwork {
\$u->{ftp_proxy},
],
complete => sub {
- $u->{http_proxy} =~ m,^($|http://), or $in->ask_warn('', _("Proxy should be http://...")), return 1,3;
- $u->{ftp_proxy} =~ m,^($|ftp://), or $in->ask_warn('', _("Proxy should be ftp://...")), return 1,4;
+ $u->{http_proxy} =~ m,^($|http://), or $in->ask_warn('', _("Proxy should be http://...")), return 1,0;
+ $u->{ftp_proxy} =~ m,^($|ftp://), or $in->ask_warn('', _("Proxy should be ftp://...")), return 1,1;
0;
}
) || return;
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index feb37eb2a..01fe4c76e 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -369,7 +369,7 @@ sub poll_ppd_base {
run_program::rooted($prefix, "ifup lo"); #- else cups will not be happy!
run_program::rooted($prefix, "/etc/rc.d/init.d/cups start");
- foreach (1..10) {
+ foreach (1..30) {
local *PPDS; open PPDS, ($::testing ? "$prefix" : "chroot $prefix/ ") . "/usr/bin/poll_ppd_base -a |";
foreach (<PPDS>) {
chomp;