loncom/lcpasswd - diff

Return to lcpasswd CVS log

Up to [LON-CAPA] / loncom

version 1.14, 2002/02/14 22:09:14	version 1.15, 2002/02/19 21:51:09
Line 10	Line 10
#	#
# YEAR=2001	# YEAR=2001
# 10/22,10/23,11/13,11/15 Scott Harrison	# 10/22,10/23,11/13,11/15 Scott Harrison
	#
	# YEAR=2002
	# 02/19 Matthew Hall
#	#
# $Id$	# $Id$
###	###
Line 131 if (($username ne $safeusername) or ($sa	Line 134 if (($username ne $safeusername) or ($sa
exit 9;	exit 9;
}	}
my $pbad=0;	my $pbad=0;
foreach (split(//,$password1)) {if (($_<32)&&($_>126)){$pbad=1;}}	foreach (split(//,$password1)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}
foreach (split(//,$password2)) {if (($_<32)&&($_>126)){$pbad=1;}}	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');