diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-11 08:06:38 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-11 08:06:38 +0000 |
| commit | 806867f788fecb5c8d76c4a316b03e3f33e11bb7 (patch) | |
| tree | 530e233bc2cf90a0699cd341fc9208740e06f154 /perl-install/bootlook.pm | |
| parent | e4bdb39854d376b8ff9aa393c864c1b0a6e8aed2 (diff) | |
| download | drakx-backup-do-not-use-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar drakx-backup-do-not-use-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar.gz drakx-backup-do-not-use-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar.bz2 drakx-backup-do-not-use-806867f788fecb5c8d76c4a316b03e3f33e11bb7.tar.xz drakx-backup-do-not-use-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.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`); |