From 806867f788fecb5c8d76c4a316b03e3f33e11bb7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 11 Feb 2003 08:06:38 +0000
Subject: stop: - copying stude && useless trace around - reinventing the
 wheel: kill parse_etc_passwd() and use list_users() instead

---
 perl-install/bootlook.pm | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

(limited to 'perl-install/bootlook.pm')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 9953879e1..4292a2b87 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -31,17 +31,11 @@ use log;
 use bootloader;
 use fs;
 use ugtk2 qw(:helpers :wrappers :create);
-if ($::isEmbedded) {
-  print "EMBED\n";
-  print "XID : $::XID\n";
-  print "CCPID :  $::CCPID\n";
-}
 
 my $in = 'interactive'->vnew('su', 'default');
 
 my @winm;
-my @usernames;
-parse_etc_passwd();
+my @usernames = list_users();
 
 my $no_bootsplash;
 my $x_mode = Xconfig::various::runlevel() == 5;
@@ -364,15 +358,6 @@ Gtk2->exit(0);
 # get user names to put in combo  
 #-------------------------------------------------------------
 
-sub parse_etc_passwd {
-    my ($uname, $uid, @user_info);
-    setpwent();
-    do {
-	@user_info = getpwent();
-	($uname, $uid) = @user_info[0,2];
-	push @usernames, $uname if $uid > 500 and !($uname eq "nobody");
-    } while @user_info;
-}
 
 sub get_wm {
     @winm = split(' ', `/usr/sbin/chksession -l`);
-- 
cgit v1.2.1