summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-11 08:06:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-11 08:06:38 +0000
commit806867f788fecb5c8d76c4a316b03e3f33e11bb7 (patch)
tree530e233bc2cf90a0699cd341fc9208740e06f154 /perl-install/bootlook.pm
parente4bdb39854d376b8ff9aa393c864c1b0a6e8aed2 (diff)
downloaddrakx-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar
drakx-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar.gz
drakx-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar.bz2
drakx-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar.xz
drakx-806867f788fecb5c8d76c4a316b03e3f33e11bb7.zip
stop:
- copying stude && useless trace around - reinventing the wheel: kill parse_etc_passwd() and use list_users() instead
Diffstat (limited to 'perl-install/bootlook.pm')
-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`);