From fe9819cd8f05eb15ceb1beb198a1200dfda21886 Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Sun, 9 Mar 1997 12:21:45 +0000 Subject: 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. --- adduser/adduser.perl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'adduser') diff --git a/adduser/adduser.perl b/adduser/adduser.perl index 0a77087..800694f 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -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(

) { 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() { 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; -- cgit v1.2.3-56-ge451