loncom/lcpasswd - diff

Return to lcpasswd CVS log

Up to [LON-CAPA] / loncom

version 1.13, 2001/11/15 18:34:57	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 120 if (@input!=3) {	Line 123 if (@input!=3) {
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;
$username=~/^(\w+)$/;	$username=~/^(\w+)$/;
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;
map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$password1));	foreach (split(//,$password1)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}
map {if (($_<32)&&($_>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');