loncom/lcpasswd - diff

Return to lcpasswd CVS log

Up to [LON-CAPA] / loncom

version 1.8, 2000/10/29 23:14:16	version 1.9, 2000/10/30 02:31:45
Line 117 if ($username ne $safeusername) {	Line 117 if ($username ne $safeusername) {
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');
exit 9;	exit 9;
}	}
	my $pbad=0;
	map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$oldpwd));
	map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$newpwd));
	if ($pbad) {
	print "Error. A password entry had an invalid character.\n";
	unlink('/tmp/lock_lcpasswd');
	exit 10;
	}

# Grab the line corresponding to username	# Grab the line corresponding to username
my ($userid,$useroldcryptpwd);	my ($userid,$useroldcryptpwd);