IMQ Device in den Kernel kompiliert.

[people/pmueller/ipfire-2.x.git] / config / qos / parse-func.pl

diff --git a/config/qos/parse-func.pl b/config/qos/parse-func.pl
index bd0560c25a0695b033717cb072f476a9ee224012..c0b26d0a27ffe782aa0329e7ddd2581892ac6e93 100644 (file)
--- a/config/qos/parse-func.pl
+++ b/config/qos/parse-func.pl
@@ -145,20 +145,21 @@ sub parse_class($) {
            my $burst = $11;
            my $cburst= $12;
 
-#          print "class: $class\n"."parent: $parent\n"."leaf: $leaf\n"."prio: $prio\n";
-#          print "rate: $rate\n"."ceil: $ceil\n"."burst: $burst\n"."cburst: $cburst\n";
+           #print "class: $class\n"."parent: $parent\n"."leaf: $leaf\n"."prio: $prio\n";
+           #print "rate: $rate\n"."ceil: $ceil\n"."burst: $burst\n"."cburst: $cburst\n";
            
            my ($bytes, $pkts, $dropped, $overlimits);
-           if ($tc_output[$i + 1] =~ m/Sent (\d+) bytes (\d+) pkts \(dropped (\d+), overlimits (\d+)\)/ ) {
+           if ($tc_output[$i + 1] =~ m/Sent (\d+) bytes (\d+) pkt \(dropped (\d+), overlimits (\d+) requeues (\d+)\)/ ) {
                $bytes      = $1;
                $pkts       = $2;
                $dropped    = $3;
                $overlimits = $4;
-#              print "bytes: $bytes\n"."pkts: $pkts\n";
-#              print "dropped: $dropped\n"."overlimits: $overlimits\n";
+               $requeues   = $5;
+               #print "bytes: $bytes\n"."pkts: $pkts\n";
+               #print "dropped: $dropped\n"."overlimits: $overlimits\n"."requeues: $requeues\n";
            } else { 
-#              print "$timestamp: ERROR(+1) - Unable to parse (class ${class}_$device): ";
-#              print "\"$tc_output[$i + 1]\"\n";
+               print "$timestamp: ERROR(+1) - Unable to parse (class ${class}_$device): ";
+               print "\"$tc_output[$i + 1]\"\n";
                $return_val="";
                next;
            }