loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.25.2.1, 2004/08/05 21:01:20	version 1.25.2.2, 2004/09/02 19:04:53
Line 215 print "Done adding user\n" unless $nopri	Line 215 print "Done adding user\n" unless $nopri
# 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);
# untaint	# untaint
my ($safegroups)=($groups=~/([\s\w]+)/);	my ($safegroups)=($groups=~/:\s*([\s\w]+)/);
$groups=$safegroups;	$groups=$safegroups;
chomp $groups; $groups=~s/^\S+\s+\:\s+//;	chomp $groups; $groups=~s/^\S+\s+\:\s+//;
my @grouplist=split(/\s+/,$groups);	my @grouplist=split(/\s+/,$groups);