From 84c66b2c906ebc4289fb3858b3f0d22121361b38 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 4 Apr 2000 13:44:48 +0000
Subject: no_comment

---
 perl-install/install2.pm                  |  1 +
 perl-install/install_any.pm               |  1 +
 perl-install/install_steps_interactive.pm | 36 ++++++++++++++++---------------
 3 files changed, 21 insertions(+), 17 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index f81b7ba8d..12fb6e877 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -545,6 +545,7 @@ sub main {
     if ($::g_auto_install) {
 	(my $root = `/bin/pwd`) =~ s|(/[^/]*){5}$||;
 	symlinkf $root, "/tmp/rhimage" or die "unable to create link /tmp/rhimage";
+	$o->{method} ||= "cdrom";
     }
 
     unless ($::testing) {
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3bcaecb44..53926c3ec 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -581,6 +581,7 @@ sub loadO {
 	    local $/ = "\0";
 	    no strict;
 	    eval <$fh>;
+	    close $fh;
 	    $@ and log::l("Bad kickstart file $f (failed $@)");
 	}
 	add2hash_($o ||= {}, $O);
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 928ca4d25..a0b363efd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -111,9 +111,8 @@ sub selectInstallClass($@) {
     );
 
     my $verifInstallClass = sub {
-	$o->{installClass} = $c{$_[0]};
-	$::beginner = $o->{installClass} eq "beginner";
-	$::expert   = $o->{installClass} eq "expert" &&
+	$::beginner = $c{$_[0]} eq "beginner";
+	$::expert   = $c{$_[0]} eq "expert" &&
 	  $o->ask_from_list_('',
 _("Are you sure you are an expert? 
 Hey no kidding, you will be allowed powerfull but dangerous things here."), 
@@ -124,7 +123,9 @@ Hey no kidding, you will be allowed powerfull but dangerous things here."),
 					      first(list2kv(@c)), ${{reverse %c}}{$o->{installClass}},
 					      [ __("Install"), __("Upgrade") ], $o->{isUpgrade} ? "Upgrade" : "Install") eq "Upgrade";
 
-    unless ($::beginner || $o->{isUpgrade}) {
+    if ($::beginner || $o->{isUpgrade}) {
+	$o->{installClass} = "normal";
+    } else {
 	my %c = (
 		 normal    => _("Normal"),
 		 developer => _("Development"),
@@ -640,14 +641,14 @@ _("Use NIS") => { val => \$o->{authentication}{NIS}, type => 'bool', text => _("
 #------------------------------------------------------------------------------
 sub addUser($) {
     my ($o, $clicked) = @_;
-    my $u = $o->{user} ||= $o->{security} < 1 ? { name => "mandrake", passwd => "mandrake", realname => "default" } : {};
+    my $u = $o->{user} ||= $o->{security} < 1 ? { name => "mandrake", password => "mandrake", realname => "default" } : {};
     $u->{password2} ||= $u->{password} ||= "";
     $u->{shell} ||= "/bin/bash";
     $u->{icon} ||= translate('default');
     my @fields = qw(realname name password password2);
     my @shells = install_any::shells($o);
 
-    if (($o->{security} >= 2 || $clicked) && $o->ask_from_entries_refH(
+    if (($o->{security} >= 2 && !$::beginner || $clicked) && $o->ask_from_entries_refH(
         [ _("Add user"), _("Accept user"), $o->{security} >= 4 && !@{$o->{users}} ? () : _("Done") ],
         _("Enter a user\n%s", $o->{users} ? _("(already added %s)", join(", ", map { $_->{realname} || $_->{name} } @{$o->{users}})) : ''),
         [ 
@@ -965,7 +966,7 @@ sub setupXfree {
 sub generateAutoInstFloppy($) {
     my ($o) = @_;
 
-    return unless $::expert && $::corporate;
+    $::expert && $::corporate || $::g_auto_install or return;
 
     my ($floppy) = detect_devices::floppies();
 
@@ -980,23 +981,24 @@ sub generateAutoInstFloppy($) {
       ${{ hd => 'hd', cdrom => 'cdrom', ftp => 'network', nfs => 'network', http => 'network' }}{$o->{method}};
 	
     if (my $fd = install_any::getFile("$image.img")) {
-	my $w = $o->wait_message('', _("Creating auto install floppy"));
-	local *OUT;
-	open OUT, ">$dev" or log::l("failed to write $dev"), return;
-	local $/ = \ (16 * 1024);
-	print OUT foreach <$fd>;
+	 my $w = $o->wait_message('', _("Creating auto install floppy"));
+	 local *OUT;
+	 open OUT, ">$dev" or log::l("failed to write $dev"), return;
+	 local $/ = \ (16 * 1024);
+	 print OUT foreach <$fd>;
     }
     fs::mount($dev, "/floppy", "vfat", 0);
     substInFile { s/timeout.*//; s/^(\s*append)/$1 kickstart=floppy/ } "/floppy/syslinux.cfg";
 
-    local $o->{partitioning}{clearall} = 1;
-    install_any::g_auto_install("/floppy/auto_inst.cfg");
-
     output "/floppy/ks.cfg", install_any::generate_ks_cfg($o);
-    output "/floppy/boot.msg", "0c",
+    output "/floppy/boot.msg", "\n0c",
 "!! If you press enter, an auto-install is going to start.
    All data on this computer is going to be lost !!
-", "07";
+", "07\n";
+
+    local $o->{partitioning}{clearall} = 1;
+    install_any::g_auto_install("/floppy/auto_inst.cfg");
+
     fs::umount("/floppy");
 }
 
-- 
cgit v1.2.1