[LON-CAPA-cvs] cvs: loncom(version_1_2_X) / lcuseradd

[albertel]

albertel		Thu Sep  2 15:04:53 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom	lcuseradd 
  Log:
  - backport 1.29 1.30
  
  
Index: loncom/lcuseradd
diff -u loncom/lcuseradd:1.25.2.1 loncom/lcuseradd:1.25.2.2
--- loncom/lcuseradd:1.25.2.1	Thu Aug  5 17:01:20 2004
+++ loncom/lcuseradd	Thu Sep  2 15:04:53 2004
@@ -14,7 +14,7 @@
 #        o LonCapa will add it if/when the user is granted an Author
 #          role.
 #
-# $Id: lcuseradd,v 1.25.2.1 2004/08/05 21:01:20 albertel Exp $
+# $Id: lcuseradd,v 1.25.2.2 2004/09/02 19:04:53 albertel Exp $
 ###
 
 ###############################################################################
@@ -215,7 +215,7 @@
 # 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);