loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.18, 2001/11/16 06:18:35	version 1.19, 2002/02/14 22:09:14
Line 151 else {	Line 151 else {
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');
exit 3;	exit 3;
}	}
map {chomp} @input;	foreach (@input) {chomp;}
}	}

my ($username,$password1,$password2)=@input;	my ($username,$password1,$password2)=@input;
Line 164 if (($username ne $safeusername) or ($sa	Line 164 if (($username ne $safeusername) or ($sa
exit 9;	exit 9;
}	}
my $pbad=0;	my $pbad=0;
map {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}} (split(//,$password1));	foreach (split(//,$password1)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}
map {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}} (split(//,$password2));	foreach (split(//,$password2)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}
if ($pbad) {	if ($pbad) {
print "Error. A password entry had an invalid character.\n";	print "Error. A password entry had an invalid character.\n";
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');