From 8eac74ae310e046f5b9e15700e1d71ea81764558 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 13 Jul 2003 22:58:51 +0000
Subject: [PATCH] *** empty log message ***

---
 changelog               | 2 ++
 debian/changelog        | 2 ++
 groupmanage/groupmanage | 5 ++++-
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/changelog b/changelog
index b727696..eaceec7 100644
--- a/changelog
+++ b/changelog
@@ -6,6 +6,8 @@ userv-utils (0.2.99.0.2) unstable; urgency=low
   * copyright notices updated
   * groupmanage: do not claim that root doesn't exist.
     (Thanks to report from Ben Harris.)
+  * groupmanage: configurable group name length limit.
+    (Thanks to small patch from Ben Harris.)
 
  --
 
diff --git a/debian/changelog b/debian/changelog
index b727696..eaceec7 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -6,6 +6,8 @@ userv-utils (0.2.99.0.2) unstable; urgency=low
   * copyright notices updated
   * groupmanage: do not claim that root doesn't exist.
     (Thanks to report from Ben Harris.)
+  * groupmanage: configurable group name length limit.
+    (Thanks to small patch from Ben Harris.)
 
  --
 
diff --git a/groupmanage/groupmanage b/groupmanage/groupmanage
index ffb45c0..21a7327 100755
--- a/groupmanage/groupmanage
+++ b/groupmanage/groupmanage
@@ -72,6 +72,7 @@ $callinguser= exists $ENV{'USERV_UID'} ? $ENV{'USERV_UID'} : $<;
        'gtmp-file','gtmp',
        'grouplist-file','grouplist',
        'name-regexp','',
+       'name-maxlen','8',
        'admin-group','',
        'finish-command','');
 %ovalid=  ('user-create','boolean',
@@ -84,6 +85,7 @@ $callinguser= exists $ENV{'USERV_UID'} ? $ENV{'USERV_UID'} : $<;
            'gtmp-file','string',
            'grouplist-file','string',
            'name-regexp','string',
+           'name-maxlen','number',
            'admin-group','string',
            'finish-command','string');
 
@@ -148,7 +150,8 @@ END
 if ($ARGV[0] eq '--create') {
     $opt{'user-create'} || !$callinguser ||
         &quit("group creation by users disabled by administrator");
-    length($groupname) <= 8 || &quit("group names must be 8 chars or fewer");
+    length($groupname) <= $opt{'name-maxlen'} ||
+        &quit("group names must be $opt{'name-maxlen'} chars or fewer");
     $!=0; (@pw= getpwuid($callinguser))
 	|| &quit("cannot get your passwd entry: $!");
     $createby= $pw[0];
-- 
2.30.2