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 |