diff options
Diffstat (limited to 'lib/Vyatta/Qos/WeightedRandom.pm')
| -rw-r--r-- | lib/Vyatta/Qos/WeightedRandom.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/Vyatta/Qos/WeightedRandom.pm b/lib/Vyatta/Qos/WeightedRandom.pm index 99f9b9e..0b1dc37 100644 --- a/lib/Vyatta/Qos/WeightedRandom.pm +++ b/lib/Vyatta/Qos/WeightedRandom.pm @@ -102,7 +102,7 @@ sub commands { # fill in id of default $default->{id} = ++$maxid; - unshift @$classes, $default; + push @$classes, $default; print "qdisc add dev $dev handle 1: root gred"; printf " setup DPs %d default %d\n", $maxid+1, $maxid; @@ -112,15 +112,16 @@ sub commands { my $avg = $class->{_avgpkt}; my $latency = getTime( $class->{_latency} ); - my ( $qmin, $qmax, $burst ) = RedParam( $classbw, $latency, $avg ); + my ( $qmin, $qmax, $burst, $maxp ) + = RedParam( $classbw, $latency, $avg ); print "qdisc change dev $dev root gred"; - printf " limit %d min %d max %d avpkt %d", - 4 * $qmax, $qmin, $qmax, $avg; + printf " prio %d", $class->{_priority} if $class->{_priority}; + printf " limit %d min %d max %d avpkt %d probability %f", + 4 * $qmax, $qmin, $qmax, $avg, $maxp; printf " burst %d bandwidth %d DP %d", $burst, $rate, $class->{id}; - printf " prio %d", $class->{_priority} if $class->{_priority}; - print " probability 0.02\n"; + print " probability 0.1\n"; foreach my $match ( $class->matchRules() ) { $match->filter( $dev, 1, $class->{_priority} ); |