--- loncom/Attic/lcuseradd	2004/08/06 10:29:37	1.28
+++ loncom/Attic/lcuseradd	2004/09/02 19:04:00	1.30
@@ -6,7 +6,7 @@
 #             with adding a user with filesystem privileges (e.g. author)
 #
 #
-# $Id: lcuseradd,v 1.28 2004/08/06 10:29:37 foxr Exp $
+# $Id: lcuseradd,v 1.30 2004/09/02 19:04:00 albertel Exp $
 ###
 
 ###############################################################################
@@ -248,7 +248,7 @@ print "Done adding user\n" unless $nopri
 # Make www a member of that user group.
 my $groups=`/usr/bin/groups www` or &Exit(6);
 # untaint
-my ($safegroups)=($groups=~/([\s\w]+)/);
+my ($safegroups)=($groups=~/:\s*([\s\w]+)/);
 $groups=$safegroups;
 chomp $groups; $groups=~s/^\S+\s+\:\s+//;
 my @grouplist=split(/\s+/,$groups);