loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.21, 2002/05/03 03:43:54	version 1.22, 2002/09/16 13:27:40
Line 162 else {	Line 162 else {
}	}

my ($username,$password1,$password2)=@input;	my ($username,$password1,$password2)=@input;
	print "Username = ".$username unless $noprint;
$username=~/^(\w+)$/;	$username=~/^(\w+)$/;
	print "Username after substitution - ".$username unless $noprint;
my $safeusername=$1;	my $safeusername=$1;
	print "Safe username = $safeusername" unless $noprint;

if (($username ne $safeusername) or ($safeusername!~/^[A-Za-z]/)) {	if (($username ne $safeusername) or ($safeusername!~/^[A-Za-z]/)) {
print "Error. The user name specified has invalid characters.\n"	print "Error. The user name specified $username $safeusername has invalid characters.\n"
unless $noprint;	unless $noprint;
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');
exit 9;	exit 9;