From 212c6f3f817a03ef6e18d991aa6d821902a04d55 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 12 Jan 2005 11:39:09 +0000 Subject: add user specific shell support in create_user (Nicolas Planel) --- perl-install/any.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/any.pm b/perl-install/any.pm index c4a903e6f..9207245f2 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -76,6 +76,7 @@ sub create_user { 'adduser', '-p', authentication::user_crypted_passwd($u, $isMD5), if_($uid, '-u', $uid), if_($gid, '-g', $gid), + if_($u->{shell}, '-s', $u->{shell}), $u->{name}); } -- cgit v1.2.1