Commit 8b4e09e7 authored by Kristin Wright's avatar Kristin Wright
Browse files

Allow characters other than \w in encrypted password field.

(Note: I didn't make Rob's ssh changes since jay is waiting on
this specifically.)
parent cb88a7e0
#!/usr/local/bin/perl -wT
# $Id: mkacct,v 1.28 2000-12-06 23:36:45 kwright Exp $
# $Id: mkacct,v 1.29 2000-12-07 06:51:41 kwright Exp $
use English;
use Mysql;
......@@ -50,7 +50,7 @@ sub doqueries() {
die "Username $row[0] from database invalid\n";
}
if ( $row[1] =~ /^(\w+)$/ ) { # encrypted passwd
if ( $row[1] =~ /^([^:]+)$/ ) { # encrypted passwd
$epasswd{$name} = $1;
} else {
die "Encrypted passwd $row[1] from database not valid.\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment