From aa2ae2c70a6582431404aab2520aa4afa288b344 Mon Sep 17 00:00:00 2001 From: Mark Huang Date: Wed, 22 Feb 2006 23:47:37 +0000 Subject: [PATCH] - fix a minor (haha) bug: tc reports minor class numbers in hexadecimal, not decimal. Fix things so that it works with VNET, which classifies packets from xid 500 into class 1:1f4, *not* 1:500. - set the "default" minor class number to ffff to emphasize this point. --- pl_mom.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pl_mom.pl b/pl_mom.pl index 55da825..5b4e676 100755 --- a/pl_mom.pl +++ b/pl_mom.pl @@ -248,15 +248,15 @@ sub get_baseline_counts { } my $status = `tc -s -d qdisc show`; - my $sliceid = "9999"; + my $sliceid = 0xffff; @Lines = split(/\n/, $status); foreach $line ( @Lines ) { if ($line =~ /qdisc pfifo (.*): dev/) { - $sliceid = $1; + $sliceid = hex($1); } else { if ($line =~ /Sent (.*) bytes/) { my $bytes = $1; - if ($sliceid != 9999) { + if ($sliceid != 0xffff) { my $slice = $Name{$sliceid}; if ($debug && $bytes) { print "Slice: $slice ($sliceid), bytes $bytes\n"; -- 2.43.0