summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm17
1 files changed, 1 insertions, 16 deletions
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`);