diff options
| -rw-r--r-- | perl-install/bootlook.pm | 17 |
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`); |