Commit 5e57dd16 authored by Mac Newbold's avatar Mac Newbold
Browse files

Fix broken shark lookup...

parent 09f60525
......@@ -76,9 +76,10 @@ sub portControl {
my $cmd = shift;
my @ports = @_;
print "portControl: $cmd -> (@ports)\n" if $debug;
my @p = map {
my $p = portnum($_);
my $port = (split(":",$p))[1];
my @p = map {
if ( /^([^-]*)-\d:(.*)$/ ) { $_ = "$1:$2"; }
my $pnum = portnum($_);
my $port = (split(":",$pnum))[1];
my $i = $ifIndex{$port};
print "$_ -> $port -> $i\n" if $debug;
if ($cmd =~/able/) { $i; } else { $port }
......
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