Support comments in password database (/etc/master.passwd).

Comments in group database (/etc/group) are currently not
supported - adduser silently delete blank lines and comments.
This commit is contained in:
Wolfram Schneider 1997-03-09 12:21:45 +00:00
parent 22bf981261
commit eac4b079c7
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=23573

View file

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id$
# $Id: adduser.perl,v 1.27 1997/02/22 16:01:18 peter Exp $
# read variables
@ -245,6 +245,10 @@ sub passwd_read {
while(<P>) {
chop;
push(@passwd_backup, $_);
# ignore comments
next if /^\s*$/;
next if /^\s*#/;
($p_username, $pw, $p_uid, $p_gid, $sh) = (split(/:/, $_))[0..3,9];
print "$p_username already exists with uid: $username{$p_username}!\n"
@ -272,6 +276,10 @@ sub group_read {
while(<G>) {
chop;
push(@group_backup, $_);
# ignore comments
next if /^\s*$/;
next if /^\s*#/;
($g_groupname, $pw, $g_gid, $memb) = (split(/:/, $_))[0..3];
$groupmembers{$g_gid} = $memb;