Commit e2354ca2 authored by Chad Barb's avatar Chad Barb

Added taint checking switch to #!

Fixed regexps to allow underscores.
('IDS_Eval/Bro_eval', for instance)
parent e21bcef2
#!/usr/bin/perl -w
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
......@@ -58,8 +58,8 @@ if ( defined($options{"v"}) ) {
#my ($pid) = $ARGV[0];
#my ($eid) = $ARGV[1];
my ($pid) = $ARGV[0] =~ /([0-9a-zA-Z\-]+)/;
my ($eid) = $ARGV[1] =~ /([0-9a-zA-Z\-]+)/;
my ($pid) = $ARGV[0] =~ /([0-9a-zA-Z_\-]+)/;
my ($eid) = $ARGV[1] =~ /([0-9a-zA-Z_\-]+)/;
if ( defined($options{"t"}) ) {
my $result = DBQueryFatal("SELECT thumb_hash FROM vis_experiments " .
......
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