loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.28, 2004/08/06 10:29:37	version 1.31, 2004/10/18 10:43:39
Line 214 if($error_file) {	Line 214 if($error_file) {
}	}


# -- Only add user if we can create a brand new home directory (/home/username)	# -- Only add the user if they are >not< in /etc/passwd.
if (-e "/home/$safeusername") {	# Used to look for the ability to create a new directory for the
print "Error. User already exists.\n" unless $noprint;	# user, however that disallows authentication changes from i
	# internal->fs.. so just check the passwd file instead.
	#
	my $not_found = system("grep -q $safeusername: /etc/passwd");
	if (!$not_found) {
	print "Error user already exists\n" unless $noprint;
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');
&Exit(11);	&Exit(11);
}	}



# -- Only add user if the two password arguments match.	# -- Only add user if the two password arguments match.

if ($password1 ne $password2) {	if ($password1 ne $password2) {
Line 248 print "Done adding user\n" unless $nopri	Line 255 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);