diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-17 17:28:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-17 17:28:14 +0000 |
| commit | 224b14cb6b741fb15dcc4fd170306dc0165cba29 (patch) | |
| tree | 6135c5e28a8638890df3e201b5b349136aedb0ba /perl-install/standalone/adduserdrake | |
| parent | d057708b3e1217b809c383563d54ae9e316bf189 (diff) | |
| download | drakx-backup-do-not-use-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar drakx-backup-do-not-use-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar.gz drakx-backup-do-not-use-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar.bz2 drakx-backup-do-not-use-224b14cb6b741fb15dcc4fd170306dc0165cba29.tar.xz drakx-backup-do-not-use-224b14cb6b741fb15dcc4fd170306dc0165cba29.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/adduserdrake')
| -rwxr-xr-x | perl-install/standalone/adduserdrake | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index 8c3b3c477..98c3ba3f9 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -16,10 +16,10 @@ $::isStandalone = 1; my $in = vnew interactive('su'); my @etc_pass_fields = qw(name pw uid gid realname home shell); -my @shells = map { "/bin/$_" } qw(bash tcsh zsh ash ksh); +my @shells = grep { -x $_ } map { "/bin/$_" } qw(bash tcsh zsh ash ksh); my $isMD5 = cat_("/etc/pam.d/passwd") =~ /md5/; my $isShadow = cat_("/etc/pam.d/passwd") =~ /shadow/; -my $security = $ENV{SECURITY_LEVEL}; +my $security = $ENV{SECURE_LEVEL}; new: if ($in->ask_from_entries_refH( @@ -62,6 +62,10 @@ if ($in->ask_from_entries_refH( } "/etc/passwd"; system("pwconv") if $isShadow; + + my $msec = "/etc/security/msec"; + substInFile { s/^$u->{name}\n//; $_ .= "$u->{name}\n" if eof } "$msec/user.conf" if -d $msec; + system("$msec/init-sh/grpuser.sh --refresh"); $u = {}; goto new; |