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.
}
my $status = `tc -s -d qdisc show`;
}
my $status = `tc -s -d qdisc show`;
@Lines = split(/\n/, $status);
foreach $line ( @Lines ) {
if ($line =~ /qdisc pfifo (.*): dev/) {
@Lines = split(/\n/, $status);
foreach $line ( @Lines ) {
if ($line =~ /qdisc pfifo (.*): dev/) {
} else {
if ($line =~ /Sent (.*) bytes/) {
my $bytes = $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";
my $slice = $Name{$sliceid};
if ($debug && $bytes) {
print "Slice: $slice ($sliceid), bytes $bytes\n";