--- loncom/Attic/lcuseradd 2004/09/02 18:59:24 1.29 +++ 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.29 2004/09/02 18:59:24 albertel Exp $ +# $Id: lcuseradd,v 1.30 2004/09/02 19:04:00 albertel Exp $ ### ############################################################################### @@ -247,7 +247,6 @@ if ($status) { print "Done adding user\n" unless $noprint; # Make www a member of that user group. my $groups=`/usr/bin/groups www` or &Exit(6); -print "groups $groups\n"; # untaint my ($safegroups)=($groups=~/:\s*([\s\w]+)/); $groups=$safegroups;