Commit a59f79d1 authored by Mac Newbold's avatar Mac Newbold
Browse files

Fixed problem with RE's for matching letters. (It was thinking some MACs were node_ids.)

parent b08c6b32
......@@ -12,11 +12,11 @@ foreach my $mac ( @ARGV ) {
if ( $mac =~ /^(sh\d+)(-\d)?(:\d)?$/ ) {
my $node = $1. (defined $2 ? $2 : "-" );
$list[$n] .= "(node_id like '$node%')";
} elsif ( $mac =~ /^(\w+\d+):(\d+)$/ ) {
} elsif ( $mac =~ /^([a-zA-Z]+\d+):(\d+)$/ ) {
my $node=$1;
my $if=$2;
$list[$n] .= "(node_id='$node' and card='$if')";
} elsif ( $mac =~ /^(\w+\d+)$/ ) {
} elsif ( $mac =~ /^([a-zA-Z]+\d+)$/ ) {
my $node=$1;
$list[$n] .= "(node_id='$node')";
} 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