From mboxrd@z Thu Jan  1 00:00:00 1970
X-Recipient: devel@linux.iplabs.ru
Message-ID: <3A93E298.2847CAA2@mtu-net.ru>
From: Stanislav Ievlev <staringer@mtu-net.ru>
X-Mailer: Mozilla 4.72 [en] (X11; U; Linux 2.2.14-12bc i686)
X-Accept-Language: en
MIME-Version: 1.0
To: devel@linux.iplabs.ru
Content-Type: multipart/mixed;
 boundary="------------F3AC688C613B5A31C6FA7499"
Subject: [devel] About Installer bugs
Sender: devel-admin@linux.iplabs.ru
Errors-To: devel-admin@linux.iplabs.ru
X-BeenThere: devel@linux.iplabs.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: devel@linux.iplabs.ru
List-Help: <mailto:devel-request@linux.iplabs.ru?subject=help>
List-Post: <mailto:devel@linux.iplabs.ru>
List-Subscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=subscribe>
List-Id: IPLabs Linux Team Developers mailing list <devel.linux.iplabs.ru>
List-Unsubscribe: <http://www.logic.ru/mailman/listinfo/devel>,
	<mailto:devel-request@linux.iplabs.ru?subject=unsubscribe>
List-Archive: <http://www.logic.ru/pipermail/devel/>
X-Original-Date: Wed, 21 Feb 2001 18:45:28 +0300
Date: Wed, 21 Feb 2001 18:45:28 +0300
Archived-At: <http://lore.altlinux.org/devel/3A93E298.2847CAA2@mtu-net.ru/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

This is a multi-part message in MIME format.
--------------F3AC688C613B5A31C6FA7499
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit

Привет всем!

Посовещавшись, группа товарищей пришла к необходимости исправления
следующих багов в инсталляторе:

1. При установке "по умолчанию" не предлагается сделать загрузочную
дискету
2. При задании пароля root если нажата клавиша "Нет пароля", то должен
быть в результате пустой пароль,а не полное его отсутствие (и
соответственно отсутствие возможности зайти в систему)
3. При установке с минимальным уровнем безопасности не предлагается
ввести пароль администратора
4. При установке с минимальным уровнем безопасности не предлагается
завести пользователей, зато заводится пользователь mandrake с паролем
mandrake (не инсталлятор а троянец какой-то)

Патч прилагается.

----------------------
Stas Ievlev & Co.


--------------F3AC688C613B5A31C6FA7499
Content-Type: text/plain; charset=koi8-r;
 name="last.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="last.diff"

diff -Naur mdkinst.orig/usr/bin/perl-install/install_steps.pm mdkinst/usr/bin/perl-install/install_steps.pm
--- mdkinst.orig/usr/bin/perl-install/install_steps.pm	Wed Dec 27 04:50:00 2000
+++ mdkinst/usr/bin/perl-install/install_steps.pm	Wed Feb 21 03:51:05 2001
@@ -592,6 +592,9 @@
 	    chomp;
 	    my %l; @l{@etc_pass_fields} = split ':';
 	    add2hash($u, \%l);
+	    if ($u->{password} eq ""){
+		$u->{pw}="";
+	    }
 	    $_ = join(':', @$u{@etc_pass_fields}) . "\n";
 	}
 	print F $_;
diff -Naur mdkinst.orig/usr/bin/perl-install/install_steps_interactive.pm mdkinst/usr/bin/perl-install/install_steps_interactive.pm
--- mdkinst.orig/usr/bin/perl-install/install_steps_interactive.pm	Wed Feb  7 00:45:00 2001
+++ mdkinst/usr/bin/perl-install/install_steps_interactive.pm	Wed Feb 21 05:44:52 2001
@@ -749,7 +749,7 @@
     my $nis = $o->{authentication}{NIS};
     $sup->{password2} ||= $sup->{password} ||= "";
 
-    return if $o->{security} < 1 && !$clicked;
+#    return if $o->{security} < 1 && !$clicked;
 
     $o->set_help("setRootPassword", 
 		 $o->{installClass} =~ "server" || $::expert ? "setRootPasswordMd5" : (),
@@ -772,8 +772,9 @@
 			       and $o->ask_warn('', _("This password is too simple (must be at least %d characters long)", 2 * $o->{security})), return (1,0);
 			     return 0
 			 }
-    ) or return;
-
+#    ) or return;
+     );
+     
     $o->{authentication}{NIS} &&= $nis;
     $o->ask_from_entries_ref('',
 			     _("Authentification NIS"),
@@ -790,16 +791,16 @@
 sub addUser {
     my ($o, $clicked) = @_;
     my $u = $o->{user} ||= {};
-    if ($o->{security} < 1) {
-	add2hash_($u, { name => "mandrake", password => "mandrake", realname => "default", icon => 'automagic' });
-	$o->{users} ||= [ $u ];
-    }
+#    if ($o->{security} < 1) {
+#	add2hash_($u, { name => "mandrake", password => "mandrake", realname => "default", icon => 'automagic' });
+#	$o->{users} ||= [ $u ];
+#    }
     $u->{password2} ||= $u->{password} ||= "";
     $u->{shell} ||= "/bin/bash";
     my @fields = qw(realname name password password2);
     my @shells = map { chomp; $_ } cat_("$o->{prefix}/etc/shells");
 
-    if (($o->{security} >= 1 || $clicked)) {
+#    if (($o->{security} >= 1 || $clicked)) {
 	$u->{icon} = translate($u->{icon});
 	if ($o->ask_from_entries_refH(
         [ _("Add user"), _("Accept user"), $o->{security} >= 4 && !@{$o->{users}} ? () : _("Done") ],
@@ -834,7 +835,7 @@
 	    $o->{user} = {};
 	    goto &addUser;
 	}
-    }
+#    }
     install_steps::addUser($o);
 }
 
@@ -845,7 +846,7 @@
 sub createBootdisk {
     my ($o, $first_time) = @_;
 
-    return if $first_time && $::beginner;
+#    return if $first_time && $::beginner;
 
     if (arch() =~ /sparc/) {
 	

--------------F3AC688C613B5A31C6FA7499--

_______________________________________________
Devel mailing list
Devel@linux.iplabs.ru
http://www.logic.ru/mailman/listinfo/devel