From a8b73def5ea962a0438c9b3058b626630dbe444c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 16 Sep 2000 22:00:54 +0000
Subject: no_comment

---
 perl-install/ChangeLog                    | 22 ++++++++++++++++++++++
 perl-install/install_steps.pm             |  5 +----
 perl-install/install_steps_interactive.pm |  9 ++++++---
 perl-install/network.pm                   |  4 ++--
 perl-install/printer.pm                   |  2 +-
 5 files changed, 32 insertions(+), 10 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1