From 8bf97c2b299c2f650ea9d4dfbc7bca4182e638a8 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Tue, 17 Sep 1996 19:34:56 +0000
Subject: warn if reach group line limit (>200 users, >1024 bytes per line)
 close PR#1595

suggested by: Seppo Kallio <kallio@beeblebrox.cc.jyu.fi
---
 adduser/adduser.perl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/adduser/adduser.perl b/adduser/adduser.perl
index 8e35578..d2e6050 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: adduser.perl,v 1.17 1996/09/11 08:36:54 jkh Exp $
+# $Id: adduser.perl,v 1.18 1996/09/14 23:22:23 wosch Exp $
 
 
 # read variables
@@ -394,6 +394,15 @@ sub add_group {
     $groupmembers{$gid} .= "," if $groupmembers{$gid};
     $groupmembers{$gid} .= "$name";
 
+    local(@l) = split(',', $groupmembers{$gid});
+    # group(5): A group cannot have more than 200 members. 
+    # The maximum line length of /etc/group is 1024 characters. 
+    # Longer lines will be skiped.
+    if ($#l >= 200 || 
+	length($groupmembers{$gid}) > 1024 - 50) { # 50 is for group name
+	warn "WARNING, maybe group line ``$gid{$gid}'' is to long or to\n" .
+	    "much users in group, see group(5)\a\n";
+    }
     return $name;
 }
 
-- 
cgit v1.2.3-56-ge451