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

make username upper or lower

parent 94484931
#!/usr/local/bin/perl -wT #!/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 English;
use Mysql; use Mysql;
...@@ -228,7 +228,7 @@ sub sanitize() { ...@@ -228,7 +228,7 @@ sub sanitize() {
} }
## sanitize user ## sanitize user
if ( $ARGV[1] =~ /^([a-z0-9]+)$/ ) { if ( $ARGV[1] =~ /^([a-z0-9]+)$/i ) {
$user = $1; $user = $1;
} else { } else {
die "$0: User argument $ARGV[1] has invalid characters.\n"; die "$0: User argument $ARGV[1] has invalid characters.\n";
......
Supports Markdown
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