loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.29, 2004/09/02 18:59:24	version 1.30, 2004/09/02 19:04:00
Line 247 if ($status) {	Line 247 if ($status) {
print "Done adding user\n" unless $noprint;	print "Done adding user\n" unless $noprint;
# Make www a member of that user group.	# Make www a member of that user group.
my $groups=`/usr/bin/groups www` or &Exit(6);	my $groups=`/usr/bin/groups www` or &Exit(6);
print "groups $groups\n";
# untaint	# untaint
my ($safegroups)=($groups=~/:\s*([\s\w]+)/);	my ($safegroups)=($groups=~/:\s*([\s\w]+)/);
$groups=$safegroups;	$groups=$safegroups;