diff options
author | ian <ian> | 2003-07-13 22:58:51 +0000 |
---|---|---|
committer | ian <ian> | 2003-07-13 22:58:51 +0000 |
commit | 8eac74ae310e046f5b9e15700e1d71ea81764558 (patch) | |
tree | 106f3472f0405956029cc8e3a6d32c40694a57d7 /groupmanage | |
parent | 6e56f231c21e43ab825cad06eab9f21aca9639c4 (diff) | |
download | userv-utils-8eac74ae310e046f5b9e15700e1d71ea81764558.tar.gz |
*** empty log message ***
Diffstat (limited to 'groupmanage')
-rwxr-xr-x | groupmanage/groupmanage | 5 |
1 files changed, 4 insertions, 1 deletions
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]; |