loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.28, 2004/08/06 10:29:37	version 1.30, 2004/09/02 19:04:00
Line 248 print "Done adding user\n" unless $nopri	Line 248 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);