Commit 89d1f48d authored by Kristin Wright's avatar Kristin Wright

make username upper or lower

parent 94484931
#!/usr/local/bin/perl -wT
### $Id: mkacct-ctrl,v 1.7 2000-12-07 08:42:08 kwright Exp $
### $Id: mkacct-ctrl,v 1.8 2000-12-07 21:30:00 kwright Exp $
use English;
use Mysql;
......@@ -228,7 +228,7 @@ sub sanitize() {
}
## sanitize user
if ( $ARGV[1] =~ /^([a-z0-9]+)$/ ) {
if ( $ARGV[1] =~ /^([a-z0-9]+)$/i ) {
$user = $1;
} else {
die "$0: User argument $ARGV[1] has invalid characters.\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