loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

version 1.15, 2005/01/26 12:13:58	version 1.16, 2005/04/07 22:27:52
Line 144 my $safeuser = $patt;	Line 144 my $safeuser = $patt;
if($DEBUG) {	if($DEBUG) {
print("Save username = $safeuser \n");	print("Save username = $safeuser \n");
}	}
if(($username ne $safeuser) or ($safeuser!~/^[A-za-z]/)) {	if(($username ne $safeuser) or ($safeuser!~/^[A-z]/)) {
if($DEBUG) {	if($DEBUG) {
print("User name $username had illegal characters\n");	print("User name $username had illegal characters\n");
}	}
Line 185 if(!( -e $dirtry1)) {	Line 185 if(!( -e $dirtry1)) {
exit 6;	exit 6;
}	}
}	}
	if ($authentication eq "unix:") {
	# check whether group $safeuser exists.
	my $usergroups = `id -nG $safeuser`;
	if (! grep /^$safeuser$/, split(/\s+/,$usergroups)) {
	if($DEBUG) {
	print("Group \"$safeuser\" does not exist or $safeuser is not a member of that group.\n");
	}
	exit 7;
	}
	}

&EnableRoot;	&EnableRoot;

&System("/bin/mkdir -p $fulldir") unless (-e $fulldir);	&System("/bin/mkdir -p $fulldir") unless (-e $fulldir);