Commit c2733c7d authored by Leigh B. Stoller's avatar Leigh B. Stoller

Fix taint check which was not allowing - in usernames. We allow it via

the web interface, so better allow it here.
parent 92b3f242
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -126,7 +126,7 @@ $user = $ARGV[0];
#
# Untaint the arguments.
#
if ($user =~ /^([a-z0-9]+)$/i) {
if ($user =~ /^([-\w]+)$/i) {
$user = $1;
}
else {
......
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -104,7 +104,7 @@ $user = $ARGV[0];
#
# Untaint the arguments.
#
if ($user =~ /^([a-z0-9]+)$/i) {
if ($user =~ /^([-\w]+)$/i) {
$user = $1;
}
else {
......
......@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -122,7 +122,7 @@ my $user = $ARGV[1];
#
# Untaint the arguments.
#
if ($user =~ /^([a-z0-9]+)$/i) {
if ($user =~ /^([-\w]+)$/i) {
$user = $1;
}
else {
......
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