loncom/pwchange - diff

Return to pwchange CVS log

Up to [LON-CAPA] / loncom

version 1.5, 2001/11/16 06:10:41	version 1.6, 2002/02/19 21:51:09
Line 7	Line 7
# YEAR=2001	# YEAR=2001
# 10/23,11/13,11/15 Scott Harrison	# 10/23,11/13,11/15 Scott Harrison
#	#
	# YEAR=2002
	# 02/19 Matthew Hall
	#
# $Id$	# $Id$
###	###

Line 37 unless (length($safe) and ($user eq $saf	Line 40 unless (length($safe) and ($user eq $saf
}	}

my $pbad=0;	my $pbad=0;
map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$pword));	foreach (split(//,$pword)) {if ((ord($_)<32)\|\|(ord($_)>126)){$pbad=1;}}
exit 3 if $pbad;	exit 3 if $pbad;

# --------------------------------------------------------- Call system command	# --------------------------------------------------------- Call system command